let mono = fun (selection:select ref) (poussoir:int ref) (demi_lune:int ref) (reglages:int array) ->
 selection := Vibrato ;
 poussoir := 0 ;
 demi_lune := 0 ;
 reglages.(32) <- !poussoir ;
 reglages.(34) <- !demi_lune ;
 aux Data.adresse_etat_clavier 179 !poussoir ;
 aux Data.adresse_etat_clavier 181 !demi_lune ;
 prerr_endline ( ( pourcent_cpu () ) ^ "son droit" )