struct

(**

Liste de claviers testés

  1. Alesis QX49
Détection sous FreeBSD :
ugen0.2: <Alesis> at usbus0
uaudio0: <Alesis QX49, class 0/0, rev 2.00/1.00, addr 1> on usbus0
uaudio0: No playback.
uaudio0: No recording.
uaudio0: MIDI sequencer.
uaudio0: No HID volume keys found.

Pour assigner le canal MIDI numéro 9 aux coussinets percussifs (pads), procéder comme suit :

  • appuyer sur ADVANCED
  • appuyer sur CHAN ASSIGN
  • appuyer sur P1
  • appuyer sur 1
  • appuyer sur 0
  • appuyer sur ENTER
  • appuyer sur CHAN ASSIGN
  • appuyer sur P2
  • appuyer sur 1
  • appuyer sur 0
  • appuyer sur ENTER
  • appuyer sur CHAN ASSIGN
  • appuyer sur P3
  • appuyer sur 1
  • appuyer sur 0
  • appuyer sur ENTER
  • appuyer sur CHAN ASSIGN
  • appuyer sur P4
  • appuyer sur 1
  • appuyer sur 0
  • appuyer sur ENTER
  • appuyer sur ADVANCED
Copyright Stéphane Grognet
IREM des Pays de la Loire - Université de Nantes
Laboratoire de mathématiques Jean Leray UMR 6629 CNRS
version 0.8
@version 0.8 @author Stéphane Grognet @since 2014 *)


let nom_clavier = "CLAVIERs" ;;

let tenue = true ;;

let curseur1 = 0x16 ;;
let curseur2 = 0x17 ;;
let curseur3 = 0x18 ;;
let curseur4 = 0x19 ;;
let curseur5 = 0x1A ;;
let curseur6 = 0x1B ;;
let curseur7 = 0x1C ;;
let curseur8 = 0x1D ;;

(** molette de modulation puisqu'il n'y a que huit curseurs *)


let curseur_1 = 0x01 ;;

let curseur_2 = curseur1 ;;
let curseur_3 = curseur2 ;;
let curseur_4 = curseur3 ;;
let curseur_5 = curseur4 ;;
let curseur_6 = curseur5 ;;
let curseur_7 = curseur6 ;;
let curseur_8 = curseur7 ;;
let curseur_9 = curseur8 ;;

let bouton_1 = 0x0E ;;
let bouton_2 = 0x0F ;;
let bouton_3 = 0x10 ;;
let bouton_4 = 0x11 ;;
let bouton_5 = 0x12 ;;
let bouton_6 = 0x13 ;;
let bouton_7 = 0x14 ;;
let bouton_8 = 0x15 ;;

let alter_swell = bouton_1 ;;

(** Les valeurs des boutons-poussoirs prennent les valeurs 127 à l'enfoncement et 0 au relâchement. *)


let poussoir_boucle = 0x77 ;;
let poussoir_rembobine = 0x76 ;;
let poussoir_avance_rapide = 0x75 ;;
let poussoir_arret = 0x72 ;;
let poussoir_lecture = 0x73 ;;
let poussoir_enregistrement = 0x74 ;;

(** Valeurs absentes *)


let curseur_0 = 0xFF ;;
let poussoir_debut = 0xFF ;;
let poussoir_fin = 0xFF ;;
let bouton_8bis = 0xFF ;;
let bouton_p1 = 0xFF ;;
let bouton_p2 = 0xFF ;;
let bouton_p3 = 0xFF ;;
let bouton_p4 = 0xFF ;;
let bouton_p5 = 0xFF ;;
let bouton_p6 = 0xFF ;;
let bouton_p7 = 0xFF ;;
let bouton_p8 = 0xFF ;;
let bouton_p9 = 0xFF ;;
let bouton_p10 = 0xFF ;;
let alter_modulation = 0xFF ;;
let poussoir_1 = 0xFF ;;
let poussoir_2 = 0xFF ;;
let poussoir_3 = 0xFF ;;
let poussoir_4 = 0xFF ;;
let poussoir_5 = 0xFF ;;
let poussoir_6 = 0xFF ;;
let poussoir_7 = 0xFF ;;
let poussoir_8 = 0xFF ;;
let poussoir_9 = 0xFF ;;
let poussoir_10 = 0xFF ;;
let poussoir_11 = 0xFF ;;
let poussoir_12 = 0xFF ;;
let vers_instru = 0xFF ;;
let pad_5 = 0xFF ;;
let pad_6 = 0xFF ;;
let pad_7 = 0xFF ;;
let pad_8 = 0xFF ;;

(** Coussinets percussifs. Par défaut ce sont des notes envoyées sur le canal MIDI 0x00. *)


let pad1 = 0x30 ;;
let pad2 = 0x31 ;;
let pad3 = 0x32 ;;
let pad4 = 0x33 ;;

(** Valeurs absentes *)


let pad5 = 0xFF ;;
let pad6 = 0xFF ;;
let pad7 = 0xFF ;;
let pad8 = 0xFF ;;

end