ガダンス(自動インプロ・バージョン)

てれふたる動画

MML先頭 2000 文字だけ表示していますダウンロード全文を見る

//
//"ガダンス(自動インプロ・バージョン)"
//copyright Hiroyasu Furukawa(furnotiz3n),2018
Tempo = 118;
//
トラック2
Channel(2);
Voice(73);
Chorus(80);
Array SFT=(0,0,0,0,0);
Array SFU=(0,0,0,0,0);
Array SFP=(0,0,0,0,0);
Array SFQ=(0,0,0,0,0);
Array SFR=(0,0,0,0,0);
Array SFS=(0,0,0,0,0);
Array PHA=(89,89,89,89,90,94,89,89,85,84,82);
Array PHB=(89,89,89,89,90,94,89,89,85,84,82);
Int i=0;
Int j=0;
Int LAST=0;
[5
SFT(j)=RandomSelect(-5,-4,-3,-2,2,3,4,5,6,7);
SFU(j)=RandomSelect(-5,-4,-3,-2,2,3,4,5,6,7);
SFP(j)=RandomSelect(0,1,2,3,4,5,6,7,8,9,10);
SFQ(j)=RandomSelect(0,1,2,3,4,5,6,7,8,9,10);
SFR(j)=RandomSelect(0,1,2,3,4,5,6,7,8,9,10);
SFS(j)=RandomSelect(0,1,2,3,4,5,6,7,8,9,10);
j++]
[3 l4 rrrr]
[5
l12 rrn(PHA(0)) 4 n(PHA(1)) n(PHA(2))r n(PHA(3)) n(PHA(4))r n(PHA(5)) n(PHA(6))r n(PHA(7)) n(PHA(8))r n(PHA(9)) n(PHA(10)) 2
l12 rrn(PHB(0)) 4 n(PHB(1)) n(PHB(2))r n(PHB(3)) n(PHB(4))r n(PHB(5)) n(PHB(6))r n(PHB(7)) n(PHB(8))r n(PHB(9)) n(PHB(10)) 4 ^^
l12 n77 n77r n82 n82r n84 n84r n85 n85r n89
l12 n77r n82 n82r n84 n84r n85 n85r n94
l12 n77r n(PHA(10)) n(PHA(10))r n(PHB(9)) n84r n85 n85r n(PHB(1))
l12 n77r n82 n82r n84 n84r n85 n85r n(PHA(5))
PHA(SFP(i))=PHA(SFP(i))+SFT(i)
PHA(SFQ(i))=PHA(SFQ(i))+SFU(i)
PHB(SFR(i))=PHB(SFR(i))+SFT(i)
PHB(SFS(i))=PHB(SFS(i))+SFU(i)
i=i+1
]
IF (PHA(5)>=PHB(5)){LAST = PHA(5)}Else{LAST = PHB(5)}
Array PHA=(89,89,89,89,90,94,89,89,85,84,82);
Array PHB=(89,89,89,89,90,94,89,89,85,84,82);
l12 rrn(PHA(0)) 4 n(PHA(1)) n(PHA(2))r n(PHA(3)) n(PHA(4))r n(PHA(5)) n(PHA(6))r n(PHA(7)) n(PHA(8))r n(PHA(9)) n(PHA(10)) 2
l12 rrn(PHB(0)) 4 n(PHB(1)) n(PHB(2))r n(PHB(3)) n(PHB(4))r n(PHB(5)) n(PHB(6))r n(PHB(7)) n(PHB(8))r n(PHB(9)) n(PHA(10)) 4 ^^
l12 n77 n77r n82 n82r n84 n84r n85 n85r n89
l12 n77r n82 n82r n84 n84r n85 n85r n94
l12 n77r n82 n82r n84 n84r n85 n85r n89
l12 n77r n82 n82r n84 n84r n85 n85r n(LAST)
//
トラック