// on the floor INT EST=130PlayFrom.SysEx=1PlayFrom.CtrlChg=1PlayFrom.RPN_NRPN=1TrackName={MML}Copyright={Pitchbend Master Records}System.MeasureShift=3Tempo=1000Include(delay.h)ResetGS; FUNCTION WIN(X1,X2,X3,XA,XB,X4,X5,X6,X7,X8,X9,XC){TR=X1;DL(0)CH=X2;@(X3,XA,XB)TrackKey=X4;P=X5;CHO=X6*10REV=X7*10v=(X8)q=(X9*10)M=(XC*10)} FUNCTION DL(ti){Time(ti:1:0)}FUNCTION PAN(ER1,ER2){If(ER2==0){P.T(0,127,ER1)}If(ER2==1){P.T(127,0,ER1)}}FUNCTION GSRY(_D){INT _TCH=Channel;INT _CH;If(_TCH==10){_CH=$00;}Else{If(_TCH<10){_CH=_TCH;}Else{_CH=_TCH-1}}_CH=$10+_CH;SysEx=$F0,$41,(DeviceNumber),$42,$12,{$40,(_CH),$15,(_D)},$F7;} FUNCTION HAM(STR SA){Sub{Key=12SA;Key=0}SA}FUNCTION HAM2(STR SA){Sub{Key=-12SA;Key=0}SA}FUNCTION HAM3(STR SA){Sub{Key=-12SA;Key=0}Sub{Key=12SA;Key=0}SA}FUNCTION REC(FF=127){EP.T(FF,0,!1^1^1^1^1^1)}FUNCTION REC2(FF=100){V.T(FF,0,!1^1^1^1^1^1)}FUNCTION IP(DW=1){DL(-2)GSRY(DW)r8}INT K=0DL=0Tempo=EST; //-(TR,CH,@ ,2 ,3,K, P ,C,R, v ,q ,M)---(TR,CH,@ ,2 ,3,K, P ,C,R, v ,q ,M)---(TR,CH,@ ,2 ,3,K, P ,C,R, v ,q ,M) WIN(01,01,004,08,0,K,064,4,2,100,09,0)WIN(07,07,039,01,0,K,096,1,2,100,10,0)WIN(13,13,119,00,0,K,084,5,0,127,10,0) WIN(02,02,082,01,0,K,064,2,2,100,09,0)WIN(08,08,079,00,0,K,044,3,2,127,09,0)WIN(14,14,082,01,0,K,044,2,2,127,10,0) WIN(03,03,082,01,0,K,000,2,2,100,10,0)WIN(09,09,080,00,0,K,084,3,2,127,09,0)WIN(15,15,127,00,0,K,000,2,2,120,10,0) WIN(04,04,082,01,0,K,127,2,2,100,10,0)WIN(10,10,025,00,0,0,064,3,1,127,10,0)WIN(16,16,127,00,0,K,127,2,1,120,10,0) WIN(05,05,039,00,0,K,064,2,2,100,10,0)WIN(11,11,025,00,0,0,064,3,0,127,09,0)//--Light source ver1.7--// WIN(06,06,039,01,0,K,032,1,2,100,10,0)WIN(12,12,026,00,0,0,064,3,0,127,09,0)TR=10IP;TR=11IP=2TR=12IP; INT HAZ=1INT BK0=17INT BGN=33INT BK1=49INT BN1=81INT NK1=97INT BK2=113INT BN2=145INT NK2=161INT NK3=177INT END=193 /*1*/STR MNH={@81,1EP.T(40,100,!1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1)q.T(90,90,!1^1^1^1^1^1^1^1,100,300,!1^1^1^1^1^1^1^1)MidiDelay({[16rr'f#c#"a'rr'f#c#"a'rr'f#c#"a'rr'f#c#"a'rrrr]},2,!16)} STR MN1={@82,8EP=105q=80MidiDelay({[8rr'f#c#"a'rr'f#c#"a'rr'f#c#"a'rr'f#c#"a'rrrr]},2,!16)} STR MN2={@82,8EP.T(100,127,!1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1)q.T(80,300,!1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1)MidiDelay({[16rr'f#c#"a'rr'f#c#"a'rr'f#c#"a'rr'f#c#"a'rrrr]},2,!16)} STR MN3={@82,8EP=105q=80MidiDelay({[rr'f#c#"a'rr'f#c#"a'rr'f#c#"a'rr'f#c#"a'rrrr] [rr'g#c#"a'rr'g#c#"a'rr'g#c#"a'rr'g#c#"a'rrrr][rr'f#d"a'rr'f#d"a'rr'f#d"a'rr'f#d"a'rrrr] rr'f#d"b'rr'f#d"b'rr'f#d"b'rr'f#d"b'rrrr;rr'f#c#"g#'rr'f#c#"g#'rr'fc#"g#'rr'fc#"g#'rrrr; [rr'f#d"a'rr'f#d"a'rr'f#d"a'rr'f#d"a'rrrr][rr'g#e"b'rr'g#e"b'rr'g#e"b'rr'g#e"b'rrrr] [4rr'f#c#"a'rr'f#c#"a'rr'f#c#"a'rr'f#c#"a'rrrr]},2,!16)} TR=1l16>DL=BK0;MNH;DL=BGN[4MN1]MN2;DL=BN1[MN1][MN3]MN2;DL=BN2[MN1]MN2; /*2&3&4*/STR RTA={@82,1q=90BR=10If(CH==3){p%=100q=100}If(CH==4){p%=-100q=100}} STR RTH={RTA<[8"f#"f#f#"f#"f#f#"f#"f#g#f#"f#af#"f#b"f#]q.T(100,300,!1^1^1^1^1^1^1^1)[8"f#"f#f#"f#"f#f#"f#"f#g#f#"f#af#"f#b"f#]>} STR RTI={RTA;EP.T(60,110,!1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1) FOR(INT A=0;A<16;A++){MidiDelay({"f#"f#f#"f#"f#f#"f#"f#g#f#"f#af#"f#b"f#},16-A,!16)}} STR RT1={EP=115RTA[16"f#"f#f#"f#"f#f#"f#"f#g#f#"f#af#"f#b"f#]} STR RT2={EP=115RTA[8"f#"f#f#"f#"f#f#"f#"f#g#f#"f#af#"f#b"f#]EP.T(115,127,!1^1^1^1^1^1^1^1)q.T(90,300,!1^1^1^1^1^1^1^1)[8"f#"f#f#"f#"f#f#"f#"f#g#f#"f#af#"f#b"f#]} STR RT3={EP=115RTA[8"f#"f#f#"f#"f#f#"f#"f#g#f#"f#af#"f#b"f#]If(CH==3){p%.T(100,300,!1^1^1^1^1^1^1^1)q=100}If(CH==4){p%.T(-100,-300,!1^1^1^1^1^1^1^1)q=100}[8"f#"f#f#"f#"f#f#"f#"f#g#f#"f#af#"f#b"f#]} STR RRF={l16DL=HAZ;RTH;RTI;DL=BGN[RT1]v=110RT2;DL=BN1;RT1;DL=BK2+16RTH;DL=BN2;RT3;}TR=2RRF;TR=3RRF;TR=4RRF; /*5&6&7*/STR BSA={BR=10@39,0If(CH==6){p%=100@39,1}If(CH==7){p%=-100@39,1}}STR BSB={BR=10@40,0If(CH==6){p%=100@82,8}If(CH==7){p%=-100@82,8}} STR BSH={BSB} STR BS1={EP=110BSA[16[12"f#]rrrr]}STR BS2={EP.T(100,127,!1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1)BSA[16[16"f#]]} STR BASS={DL=BK0;l16>@45,0l16EP.T(90,127,!1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1)p=64[4[3rrf#^rf#^re^rf#^re^]rr`c#^r`c#^rb^ra^rf#^]<<} TR=14DL=BK1+16SP1;SP2;DL=BK2+16SP1;DL=BN2;SP2;V=120SP3;DL=NK3;SP1; /*15&16*/STR BG={If(CH!=15){l32r}} STR BGH={@123,1l1EP.T(127,0,!1^1^1^1)BR=48p.T(127,32,!1^1^1^1)'>>cde<<'^^^} STR BG1={@123,1l1EP.T(40,127,!1^1^1^1^1^1^1^1,127,0,!1^1^1^1^1^1)BR=64p.T(30,127,!1^1^1^1^1^1^1^1,127,0,!1^1^1^1^1^1)'>>cde<<'^^^^^^^^^^^} STR BG2={@123,1l1EP.T(80,127,!1^1^1^1^1^1^1^1,127,50,!1^1)BR=32p.T(0,127,!1^1^1^1^1^1^1^1,127,0,!1^1)'>>cde<<'^^^^^^^^^} STR BG3={@126,7l1EP=95BR=48p=127'cd'^}STR BG4={@123,1l1EP.T(40,127,!1^1^1^1^1^1^1^1,127,100,!1^1^1^1^1^1^1^1)BR=64p.T(30,127,!1^1^1^1^1^1^1^1,127,0,!1^1^1^1^1^1^1^1)'>>cde<<'^^^^^^^^^^^^^^^} STR BGMM={DL=HAZ;BGH;DL=HAZ+8BG;BG1;DL=BK0+8BG;BG2;DL=BGN+14BG;BG3;BGH;DL=BK1+8BG;BG4;DL=BK1+24BG;BG2;DL=BN1+14BG;BG3;BGH;DL=NK1+14BG;BG3;BGH; DL=BK2+8BG;BG4;DL=BK2+24BG;BG2;DL=BN2+14BG;BG3;DL=NK2+8BG;BG2;DL=NK3+14BG;BG3;BGH;}TR=15BGMM;TR=16BGMM;