let vc = fun (poussoir_mono:int ref) (reglages:int array) ->
 poussoir_mono := ( succ !poussoir_mono ) mod Data.modulo_vibrato_mono ;
 reglages.( Data.poussoir_vibrato_mono_chorus - Data.succ_nombre_de_curseurs ) <- !poussoir_mono ;
 aux Data.adresse_etat_clavier ( 128 + Data.poussoir_vibrato_mono_chorus ) !poussoir_mono ;
 let chaine = match !poussoir_mono with
 | 0 -> "son mono droit"
 | 1 -> "vibrato mono 1"
 | 2 -> "chorus mono 1"
 | 3 -> "vibrato mono 2"
 | 4 -> "chorus mono 2"
 | 5 -> "vibrato mono 3"
 | _ -> "chorus mono 3" in
 prerr_endline ( ( pourcent_cpu () ) ^ chaine )