let rapide = fun (selection:select ref) (poussoir:int ref) (demi_lune:int ref) (reglages:int array) ->
 selection := Vibrato ;
 if !poussoir = 0 then
  poussoir := 1 ;
 demi_lune := 3 ;
 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 ;
 reglages.(Data.bouton_excursion_vibrato - Data.succ_nombre_de_curseurs) <- Data.excursion_vibrato_stereo ;
 reglages.(Data.bouton_diff_excursion_vibrato - Data.succ_nombre_de_curseurs) <- Data.diff_excursion_vibrato_stereo ;
 aux Data.adresse_etat_clavier ( 128 + Data.bouton_excursion_vibrato ) Data.excursion_vibrato_stereo ;
 aux Data.adresse_etat_clavier ( 128 + Data.bouton_diff_excursion_vibrato ) Data.diff_excursion_vibrato_stereo ;
 reglages.(Data.bouton_dephasage_rotation - Data.succ_nombre_de_curseurs) <- Data.dephasage_rotation_vibrato_stereo ;
 reglages.(Data.bouton_diff_dephasage_rotation - Data.succ_nombre_de_curseurs) <- Data.diff_dephasage_rotation_vibrato_stereo ;
 aux Data.adresse_etat_clavier ( 128 + Data.bouton_dephasage_rotation ) Data.dephasage_rotation_vibrato_stereo ;
 aux Data.adresse_etat_clavier ( 128 + Data.bouton_diff_dephasage_rotation ) Data.diff_dephasage_rotation_vibrato_stereo ;
 reglages.(Data.bouton_tremolo - Data.succ_nombre_de_curseurs) <- Data.tremolo_vibrato_stereo ;
 reglages.(Data.bouton_diff_tremolo - Data.succ_nombre_de_curseurs) <- Data.diff_tremolo_vibrato_stereo ;
 aux Data.adresse_etat_clavier ( 128 + Data.bouton_tremolo ) Data.tremolo_vibrato_stereo ;
 aux Data.adresse_etat_clavier ( 128 + Data.bouton_diff_tremolo ) Data.diff_tremolo_vibrato_stereo ;
 prerr_endline ( ( pourcent_cpu () ) ^ "vibrato rapide" )