let frein = fun (selection:select ref) (poussoir:int ref) (demi_lune:int ref) (reglages:int array) ->
 selection := Vibrato ;
 if !poussoir = 0 then
  poussoir := 1 ;
 demi_lune := 2 ;
 reglages.(32) <- !poussoir ;
 reglages.(34) <- !demi_lune ;
 aux Data.adresse_etat_clavier ( 128 + Data.poussoir_vibrato_chorus ) !poussoir ;
 aux Data.adresse_etat_clavier ( 128 + Data.demi_lune ) !demi_lune ;
 prerr_endline ( ( pourcent_cpu () ) ^ "vibrato frein" )