bonjour
Je voulais essayer de jouer à un mini fichiers midi à notre lapin
et je ai essayé de cette façon ...
modifié le Code de Démarrage fichier main.mtl d'entrer un nouveau type de contrôle pour la chorégraphie
voir ci-dessous.
--------------
const CH_ifne=18;;
const CH_attend=19;;
const CH_setmotordir=20;; // v16
const CH_midi_file=30;; // --------vmidi
var lun;;// ---------------vmidi
var stringa;;// ----------vmidi
-----------------------
------------------------------
// v17
else if code== CH_set_led_off then
(
//Secholn "CH_set_led_off ";
led 4-strget chordata chorindex+1 0;
1
)
// -----------------------vmidi start
// -----------------------vmidi start
// -----------------------vmidi start
else if code==CH_midi_file then
(
Secholn "debug: CH_midi_file";
let strget chordata chorindex+1 -> byte1 in
let strget chordata chorindex+2 -> byte2 in
(
set lun=byte1*256 + byte2;
set stringa=nil;
// set lun=strget (chordata chorindex+1)*256 + strget chordata chorindex+2 ;
// lunghezza file midi
Iecholn lun;
for idx=0;idx
let strget chordata chorindex+idx+3 -> aa in
(
set stringa = strcat stringa ctoa aa
//Secho ctoa aa
)
);
Secholn stringa;
wavstartlocal stringa::nil;
lun+2
)
// ------------------- vmidi end
// ------------------- vmidi end
// ------------------- vmidi end
else if code==CH_randmidi then
(
------------------------
et puis je ai changé le générateur de chorégraphie pour produire un simple transfert de fichier à donner
apparemment cela fonctionne ...
pardonner la laideur du code ...
Je espère que je vous ai donné un peu d'inspiration!
Ciao
Carlo