struct

(**

Aucun clavier testé

Ceci modélise un clavier générique.

Copyright Stéphane Grognet
IREM des Pays de la Loire - Université de Nantes
Laboratoire de mathématiques Jean Leray UMR 6629 CNRS
version 0.9
@version 0.9 @author Stéphane Grognet @since 2014 *)


let nom_clavier = "CLAVIERo" ;;

let tenue = true ;;

(**

Liste des masques d'évènements réservés

0x80 0x90 0xA0 0xB0 0xC0 0xD0 0xE0 0xF0

Liste des numéros de contrôleurs réservés

0x01 0x0B 0x40

all notes off : 0xFB 0xFC 0xFD 0xFE 0xFF

*)




(**

Contrôleurs

*)



let bouton_1 = 0x10 ;;
let bouton_2 = 0x11 ;;
let bouton_3 = 0x12 ;;
let bouton_4 = 0x13 ;;
let bouton_5 = 0x14 ;;
let bouton_6 = 0x15 ;;
let bouton_7 = 0x16 ;;
let bouton_8 = 0x17 ;;
let bouton_8bis = 0x18 ;;

let alter_swell = 0x19 ;;
let alter_modulation = 0x1A ;;

let bouton_p1 = 0x20 ;;
let bouton_p2 = 0x21 ;;
let bouton_p3 = 0x22 ;;
let bouton_p4 = 0x23 ;;
let bouton_p5 = 0x24 ;;
let bouton_p6 = 0x25 ;;
let bouton_p7 = 0x26 ;;
let bouton_p8 = 0x27 ;;
let bouton_p9 = 0x28 ;;
let bouton_p10 = 0x29 ;;

let curseur_0 = 0x30 ;;
let curseur_1 = 0x31 ;;
let curseur_2 = 0x32 ;;
let curseur_3 = 0x33 ;;
let curseur_4 = 0x34 ;;
let curseur_5 = 0x35 ;;
let curseur_6 = 0x36 ;;
let curseur_7 = 0x37 ;;
let curseur_8 = 0x38 ;;
let curseur_9 = 0x39 ;;

let poussoir_boucle = 0x50 ;;
let poussoir_rembobine = 0x51 ;;
let poussoir_avance_rapide = 0x52 ;;
let poussoir_arret = 0x53 ;;
let poussoir_lecture = 0x54 ;;
let poussoir_enregistrement = 0x55 ;;
let poussoir_debut = 0x56 ;;
let poussoir_fin = 0x57 ;;

let poussoir_1 = 0x60 ;;
let poussoir_2 = 0x61 ;;
let poussoir_3 = 0x62 ;;
let poussoir_4 = 0x63 ;;
let poussoir_5 = 0x64 ;;
let poussoir_6 = 0x65 ;;
let poussoir_7 = 0x66 ;;
let poussoir_8 = 0x67 ;;
let poussoir_9 = 0x68 ;;
let poussoir_10 = 0x69 ;;
let poussoir_11 = 0x6A ;;
let poussoir_12 = 0x6B ;;

let pad_1 = 0x70 ;;
let pad_2 = 0x71 ;;
let pad_3 = 0x72 ;;
let pad_4 = 0x73 ;;
let pad_5 = 0x74 ;;
let pad_6 = 0x75 ;;
let pad_7 = 0x76 ;;
let pad_8 = 0x77 ;;
let pad_9 = 0x78 ;;
let pad_10 = 0x79 ;;
let pad_11 = 0x7A ;;
let pad_12 = 0x7B ;;
let pad_13 = 0x7C ;;
let pad_14 = 0x7D ;;
let pad_15 = 0x7E ;;
let pad_16 = 0x7F ;;

let vers_instru = 0x80 ;;



(**

Notes

*)



let pad1 = 0x70 ;;
let pad2 = 0x71 ;;
let pad3 = 0x72 ;;
let pad4 = 0x73 ;;
let pad5 = 0x74 ;;
let pad6 = 0x75 ;;
let pad7 = 0x76 ;;
let pad8 = 0x77 ;;



end