Et si ça intéresse quelqu’un, voici une ébauche d’harmoniseur…
Prenez-le comme un modèle, je n’ai pas le temps d’aller jusqu’au bout, mais le principe est là.
Il vous suffira de modifier les valeurs de tierce et quinte en fonction de la gamme que vous voulez obtenir.
Je suis preneur d’une version finie pour un tuto… -)
Philippe
// Start the macro
// record three drone tracks
// change the counter value
// Enjoy…
// $third$ défini la tierce
IfThen {$counter$==1} Do Redeclare int $third$ = {$counter$+3}
IfThen {$counter$==2} Do Redeclare int $third$ = {$counter$+3}
IfThen {$counter$==3} Do Redeclare int $third$ = {$counter$+4}
IfThen {$counter$==4} Do Redeclare int $third$ = {$counter$+4}
IfThen {$counter$==5} Do Redeclare int $third$ = {$counter$+3}
IfThen {$counter$==6} Do Redeclare int $third$ = {$counter$+4}
IfThen {$counter$==7} Do Redeclare int $third$ = {$counter$+3}
IfThen {$counter$==8} Do Redeclare int $third$ = {$counter$+3}
IfThen {$counter$==9} Do Redeclare int $third$ = {$counter$+3}
IfThen {$counter$==10} Do Redeclare int $third$ = {$counter$+3}
IfThen {$counter$==11} Do Redeclare int $third$ = {$counter$+3}
IfThen {$counter$==12} Do Redeclare int $third$ = {$counter$+3}
// $fifth $ défini la quinte
IfThen {$counter$==1} Do Redeclare int $fifth$ = {$counter$+7}
IfThen {$counter$==2} Do Redeclare int $fifth$ = {$counter$+6}
IfThen {$counter$==3} Do Redeclare int $fifth$ = {$counter$+7}
IfThen {$counter$==4} Do Redeclare int $fifth$ = {$counter$+7}
IfThen {$counter$==5} Do Redeclare int $fifth$ = {$counter$+7}
IfThen {$counter$==6} Do Redeclare int $fifth$ = {$counter$+7}
IfThen {$counter$==7} Do Redeclare int $fifth$ = {$counter$+7}
IfThen {$counter$==8} Do Redeclare int $fifth$ = {$counter$+7}
IfThen {$counter$==9} Do Redeclare int $fifth$ = {$counter$+7}
IfThen {$counter$==10} Do Redeclare int $fifth$ = {$counter$+7}
IfThen {$counter$==11} Do Redeclare int $fifth$ = {$counter$+7}
IfThen {$counter$==12} Do Redeclare int $fifth$ = {$counter$+7}
// ici la tonique est toujours à la valeur de $counter$
TrackSpeed trk1 = {pow(2, ($counter$*0.08333333))}
TrackSpeed trk2 = {pow(2, ($third$*0.08333333))}
TrackSpeed trk3 = {pow(2, ($fifth$*0.08333333))}
TrackSpeed trk4 = {pow(2, (($counter$+12)*0.08333333))}
Sleep 10
RestartMacro