// //"ガダンス(自動インプロ・バージョン)" //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) // トラック3 Channel(3); Voice(107); EP(108) l4 rrr l12 rrv(108)q(50)o4a# [100 l12 v(84)q(80)o4a#^ v(105)a# v(78)q(50)a# r v(108)q(50)a# ] // トラック4 Channel(4); Voice(59); EP(108) l4 rrrr [50 l4 rrv(114)q(110)'o2a#o3a#'^ ] // トラック9 Channel(9); Voice(117); l12 rrr o5frr 'o5fo6g'rgrg rrgrg rrgrg rr