/* Pitchbend Master Records - the PMR 2010 Producer, Vocal, Arranged By, Written-By (c) 2010 Pitchbend Master Records *** the PMR 2010 (Original Vocal Mix) *** http://members.jcom.home.ne.jp/i-am-a-student-boys/tek010v.mp3 *** the PMR 2010 (PMR Dub Mix) *** http://www.youtube.com/watch?v=nWO2-Fe-rl4 */ //-------------------------ORIGINAL MML-------------------------// INT TEMPO_EST = 128 ; //テンポ設定 PlayFrom.SysEx(on)PlayFrom.CtrlChg(on)PlayFrom.RPN_NRPN(on) TrackName={the PMR}Copyright={(c)Pitchbend Master Records}System.MeasureShift(3)Tempo=1000Include(delay.h)ResetGS; Function Autoexec(X1,X2,X3,XA,XB,X4,X5,X6,X7,X8,X9,XC){TR=X1;DL(0)CH=X2;@(X3,XA,XB)Key=X4;P=X5;CHO=X6;REV=X7;v=(X8)q=(X9)M=(XC)}Function DL(ti){Time(ti:1:0)}STR INS={InstrumentName}Function PAN(ER1,ER2){If(ER2==0){P.T(000,127,ER1)}If(ER2==1){P.T(127,000,ER1)}} Function Review(STR OIN,Revalue,ReNo){STR REPO="r"+Revalue;Sub{[(ReNo);OIN;REPO]}}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 MD(Str S,Int Repeat, Int Delay){Int Temp_v=MML(v);Int Dly=Delay;Int Dec_v=Temp_v/(Repeat+2);Int J=Temp_v+20;J=J-(Dec_v*2);v(J);For(Int I=1;I<=Repeat;I++){Sub{r%(Dly)v(J)S}Dly=Dly+Delay;J=J-Dec_v;}v(Temp_v)S} STR LC={"cceg`c}STR LD={"ddf#a`d}STR LDS={"d#d#ga#`d#}STR LE={"eegb`e}STR LF={"ffa`c`f}STR LG={"gga#`d`g}STR LA={"aa`c#`e`a}STR LAS={"a#a#`d`f`a#}STR LB={"bb`f#`b} STR WC={r'LC'}STR WD={r'LD'}STR WDS={r'LDS'}STR WE={r'LE'}STR WF={r'LF'}STR WG={r'LG'}STR WA={r'LA'}STR WAS={r'LAS'}STR WB={r'LB'} //------( TR , CH , @ , @2 , @3 , Key, P , CHO, REV, v , VAR, M ) Autoexec( 001, 001, 005, 000, 000, 000, 064, 000, 000, 110, 090, 000) Autoexec( 002, 002, 003, 000, 000, 000, 064, 000, 000, 110, 093, 000) Autoexec( 003, 003, 003, 000, 000, 000, 010, 000, 000, 120, 100, 000) Autoexec( 004, 004, 003, 000, 000, 000, 117, 000, 000, 120, 100, 000) Autoexec( 005, 005, 039, 001, 000, 000, 064, 000, 000, 127, 100, 010) Autoexec( 006, 006, 081, 000, 000, 000, 054, 000, 000, 127, 100, 020) Autoexec( 007, 007, 039, 000, 000, 000, 074, 000, 000, 127, 100, 000) Autoexec( 008, 008, 012, 000, 000, 000, 044, 000, 000, 127, 100, 020) Autoexec( 009, 009, 012, 000, 000, 000, 084, 000, 000, 127, 100, 020) Autoexec( 010, 010, 025, 000, 000, 000, 064, 000, 000, 127, 100, )DL(-2)GSRY(1)r8 Autoexec( 011, 011, 025, 000, 000, 000, 064, 000, 000, 127, 090, )DL(-2)GSRY(2)r8 Autoexec( 012, 012, 026, 000, 000, 000, 064, 000, 000, 127, 090, )DL(-2)GSRY(1)r8 Autoexec( 013, 013, 119, 009, 000, 000, 010, 000, 000, 127, 090, ) Autoexec( 014, 014, 056, 000, 000, 000, 020, 000, 000, 127, 090, ) Autoexec( 015, 015, 115, 000, 000, 000, 107, 000, 000, 127, 090, ) Autoexec( 016, 016, 091, 000, 000, 000, 117, 000, 000, 127, 100, ) //------( TR , CH , @ , Key, P , P2 , P3 , CHO, REV, v , VAR, M ) //-------------------------------------------------------------------------------------------------------------------------------------------------------------------// DL=0Tempo=TEMPO_EST;INT HAZ=1INT ST0=17INT ST1=33INT ST2=49INT BK0=65INT BGN=81INT ST3=97INT HZ2=113INT BK1=129 INT BN2=145INT ST4=161INT BK2=177INT ST5=193INT END=209 //------------------------------------------------------------------------------TR=001;------------------------------------------------------------------------------// STR MNH={EP=110@5,8MidiDelay({[8"e^"e'gb`e'rr"er"d"e"d'f#a`d'rr"dr]},3,!8)}STR MN1={EP=110@5,0MidiDelay({[8"e^"e'gb`e'rr"er"d"e"d'f#a`d'rr"dr]},3,!8)} STR MN1A={@5,0EP=110q.T(100,200,!1^1^1^1^1^1^1^1)MidiDelay({[8"e^"e'gb`e'rr"er"d"e"d'f#a`d'rr"dr]},3,!8)q=90}STR MN2={EP=110@5,24MidiDelay({[8"e^"e'gb`e'rr"er"d"e"d'f#a`d'rr"dr]},3,!8)} STR MN3={EP=127@5,24MidiDelay({[8"e^"e'gb`e'rr"er"d"e"d'f#a`d'rr"dr]},3,!8)}STR MN4={q.T(0,300,!1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1)[MN2]q=90} TR=1l16DL=HAZ[MNH]MN1;MN1A[MN3]DL=BK0;MN2;DL=BGN[MN1]MN3;DL=BK1;MN4;DL=BN2;>MN1;MNH<[MN1]DL=BK2;>MN1;MNH //------------------------------------------------------------------------------TR=002&003&004;----------------------------------------------------------------------// STR RT={If(CH==3){l64rl16}If(CH==4){l32rl16}}STR RS={BR=6If(CH==3){p%=200}If(CH==4){p%=-200}} STR RS2={BR=6If(CH==3){p%=300}If(CH==4){p%=-300}}STR RTH={[8y64=127"e^a^b^g^a^f#^g^e^y64=0]} STR RT1={EP=127[[3y64=127"e^a^b^g^a^f#^g^e^y64=0]y64=127d^f#^f#^f#^:e^d^e^e^y64=0]e^d^"b^e^y64=0} STR RT2={EP.T(40,127,!1^1^1^1^1^1^1^1)[7y64=127"e^a^b^g^a^f#^g^e^y64=0]f#^d#^f^"b^e^"a^"b^"e^} STR RT3={EP=127[[3y64=127"e^a^b^g^a^f#^g^e^y64=0]y64=127d^f#^f#^f#^:e^d^e^e^y64=0]MidiDelay({e^d^"b^e^},8,!2)y64=0} STR RT4={EP.T(40,127,!1^1^1^1^1^1^1^1)[8y64=127"e^a^b^g^:a^f#^g^e^y64=0]MidiDelay({a^f#^g^e^},8,!2)y64=0} STR RT5={RS;If(CH!=2){l16@82,0EP=80MD({[[['bge'^^r]rr'bf#d'^^rrr]['bgc'^^r]rr'bgc'^^rrr['af#d'^^r]rr'af#d'^^rrr]},2,!8)}Else{RT1}p%=0} STR RT6={RS2;If(CH!=2){l16q=200[[3@88,0"ee"aa"bb"gg"aa"f#f#"gg"ee]@3,0"dd"f#f#"f#f#"f#f#:"ee"dd"ee"ee]"ee"dd""b"b"ee}Else{RT1}p%=0}STR RT7={If(CH==2){RTH}} STR RRF={l16DL=ST2;RT[RTH]DL=BK0;RT;RT1;RT2;DL=BGN;RT;RT1;RT3;DL=ST3+8RT;RT4;DL=BN2;RT5;RT6;RT;RT1;RTH;DL=BK2;RT6;RT5[RT7]}TR=2;>RRF;TR=3RRF;TR=4RRF; //------------------------------------------------------------------------------TR=005&006&007;----------------------------------------------------------------------// STR BSA={@39,1If(CH==6){@81,0}If(CH==7){@39,0}}STR BSB={@82,1If(CH==6){@81,8}If(CH==7){@82,8}} STR BSH={l1BSB;EP.T(70,127,!1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1)e^^^^^^^^^^^^^^^}STR BSI={l16BSB[8e^^e^ee^e^^e^^e^]} STR BS1={l4[e^^^e^^^c^^^d^^^]}STR BS2={l16p=64BSB[[e^^e^ee^e^^e^^e^]c^^c^cc^c^^c^^c^d^^d^dd^d^^d^^d^]} STR BS3={l1EP.T(60,127,!1^1^1^1^1^1^1^1)e^^^^^^l4e^^&&"e}STR BS4={l16BSB;q.T(0,200,!1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1)[16e^^e^ee^e^^e^^e^]q=100} STR BASS={l16<]DL=BK1;BS4;DL=BN2[3BS2]BSI[BS1]BSH;DL=END+16EP.T(90,0,!1)l1e}TR=5BASS;TR=6BASS;TR=7BASS; //------------------------------------------------------------------------------TR=008;------------------------------------------------------------------------------// STR YT1={l4BR=30p.W(70,0,!32)@79,0q=15[32'"g"ec']}STR YT2={EP.T(0,127,!1^1^1^1^1^1^1^1)YT1} TR=8DL=HAZ;V=127DL=ST1[YT1]DL=BK0+8YT2;DL=BGN[4YT1]DL=HZ2+8YT1;DL=BK1+8YT2;DL=BN2[4YT1]DL=ST5[YT1] //------------------------------------------------------------------------------TR=009;------------------------------------------------------------------------------// STR GF1={l4BR=30p.W(70,0,!32)@80,0q=15[32'"gc']}STR GF2={EP.T(0,127,!1^1^1^1^1^1^1^1)GF1} TR=9DL=HAZ;V=127DL=ST1[GF1]DL=BK0+8GF2;DL=BGN[4GF1]DL=HZ2+8GF1;DL=BK1+8GF2;DL=BN2[4GF1]DL=ST5[GF1] //------------------------------------------------------------------------------TR=010;------------------------------------------------------------------------------// STR O1={'n27n32n33n35n36'}STR O2={'n27n32n33n35n36n38'}STR O3={'n27n32n33n35n36n49'}STR O4={'n27n32n33n35n36n57'}STR O5={'n27n32n33n35n36n51n59'}STR DM1={O1;rrr}STR DH1={[7DM1][2O1;r]} STR DM2={O1;rrrO2;rrr}STR DM3={O1;rrrO2;rrrO1;rrrO2;rrO2}STR DM4={[3O1;rrrO2;rrrO1;rrrO2;rrr]O1;rrrO2;rrrO1;rrrO2;rO1;r} STR DM5={[3O1;rrrO2;rrrO1;rrrO2;rrr]O1;rrrO2;rrrO1;O2;r[2O1]r[2O1]}STR DM6={[3O1;rrrO2;rrrO1;rrrO2;rrr]O1;rrrO2;rrrO1;rrr[2O2;r]} STR DM7={[3O1;rrrO2;rrrO1;rrrO2;rrr]O1;rrrO2;rrrO1;rrrO2;r[2O2]}STR DM8={[3O1;rrrO2;rrrO1;rrrO2;rrr]O1;rrrO1;rO2;rrrO1;rO2;r[2O2]} STR DM9={[6DM2]O3[7r]['n28n39'r][4'n28n39']}STR DM10={[4[O1;r]O4;r[O1]:rO4[O1;r:O4;r]][O1]O4;r[4'n27n28']}STR DM11={[3O1;rrrO2;rrrO1;rrrO2;rrr][O2;r[O1]][O2;r][O2]rr} STR DM12={O1;rrrO4;rO1;rrrO4;rO1;O4;rO4}STR DM13={[6DM2]O3[7r][n54rrr]}STR DM14={[7O1;rrr][O1;r][4O1;rrr]O3[7r]['n28n39'r]rrrr} STR DM15={[[O1;r]O4;r[O1]:rO4[O1;r:O4;r]][O1]O4;r[4'n27n28']}STR DM16={[3O1;rrrO2;rrrO1;rrrO2;rrr]rrr['n39n28'r:rr]O1;r[4O1]} STR DM17={[6DM2]p.W(0,127,!16)[3DM1]p%=2000O1;r[O1]}STR DM18={SUB{[32n42r]}[O1;rrrO4;rO1;rrrO4;rO1;O4;rO4:[O1;r]O4;rO1;rrrO1;rO4;r[O4]][O1;r]O4;r[O1;O4]O4;rO1;r[O4]} STR DM19={[O1;r]O4;rO1;rrrO1;rO4;r[O4]}STR DM20={[O1;r]O4;r[O1;O4]O4;rO1;r[O4]}STR DM21={[[[3n27r:r]n28r:r[n27r:r]]:[3n27:r]n27][n28r][n28]}STR DP1={SUB{[4rr['n82n85']]}n64rrn64n63r[3n64r]n63rn64r} STR DD1={[32DM1]}STR DD2={O3}STR DD3={[16DM2]}STR DD4={[31DM1]O1;r[O1]}STR DD5={[15DM2]O1;rrrO2;r[O1]}STR DD6={l1p=32O3^^^l16p.W(32,96,!8)EP.T(0,127,!1^1^1^1)[12DM1][16r]} TR=10l16DL=HAZ;BR=20q=100p.W(32,96,!8)@33DD1;DD3;SUB{n49}DD1;DD4;DL=ST1[DD3:DD5]DD4;DL=BK0;DD2;DL=BK0+8DD6;DL=BGN;BR=20q=100p.W(32,96,!8)@33V=127[3DD1]DD1;DL=HZ2+8DD1;DL=BK1;DD2;DL=BK1+8DD6;DL=BN2[4DD1]DL=ST5;SUB{n49}DD3[3DD1]n49^^^ //------------------------------------------------------------------------------TR=011&012;--------------------------------------------------------------------------// STR GR={'n42n85'}STR GA={n44}STR GB={'n46'}STR TA={n54}STR MT={n51}STR GG={BR=20If(CH==11){p%=-4000P=0}Else{p%=-2000P=127}} STR GGH={EP.onCycle(!16,100,50,70,100,40,80,110,80,30,20,100,110)SUB{n49}[11n44n46rrn44r[4n44]n46rn44r:[6n44]n46rn44r][n44]} STR GG1={EP=120[8SUB{[3n46rn44n44][n46][n44]}[rrrr'n28'rrr]]} STR GG2={EP.T(0,127,!1^1^1^1^1^1^1^1)[8SUB{[3n46rn44n44][n46][n44]}:[rrrr'n28'rrr]][5'n28']r'n28'r[4'n28']l32[8'n28']l16} STR GG3={EP=120[8SUB{[3n46rn44n44][n46][n44]}[rrrr'n28'rrr]]} STR GG4={[8SUB{[3n46rn44n44][n46][n44]}:[rrrr'n28'rrr]][5'n28']r'n28'r[4'n28']l32[8'n28']l16} STR GGG={l16DL=HAZ;GG[GGH]DL=ST1;GG[3GG1]n49DL=BK0+8GG;GG2;DL=BGN;GG[3GG3]SUB{n49}GG4;DL=HZ2;GG;GGH;DL=BK1+8GG;GG2;DL=BN2;GG[4GG3]DL=ST5;GG[GG3]GGH}TR=11GGG;TR=12GGG; //------------------------------------------------------------------------------TR=014;-------------------------------------------------------------------------------// STR BBF={@123,1l1BR=30EP.T(70,127,!1^1^1^1^1^1^1^1,127,0,!1^1^1^1)p.T(32,127,!1^1^1^1^1^1^1^1,127,0,!1^1^1^1)'cde'^^^^^^^^^^^} STR BLH={BBF}STR BL1={l8@41q=100[29r]EP.T(70,100,!1)`e&&^`d`e^^^^^^^^^^^^^^^^^^^^^^^`d^^^^^^^} STR BLI={@123,1l1BR=30EP.T(70,127,!1^1^1^1^1^1^1^1,127,0,!1^1)p.T(32,127,!1^1^1^1^1^1^1^1,127,0,!1^1)'cde'^^^^^^^^^} STR BL2={l8@41q=100[29r]EP.T(70,100,!1)`e&&^`d`e^^^^^^^^^^^^^^^^^^^^^^^`d^^^^^^^l4`d&&`e^^^^^^^^^^^^r`d&&`e^^^^^^^^^^^^^^^} STR BL3={l8[30r]@41q=100p=64EP.T(90,20,!1^1^1^1^1^1^1^1)`d^&&`e^^^^^^&&^^^^^^^^^^^^^^^^^^^^^^^`d#} TR=14DL=ST0+8BLH;DL=ST1+8BL2;HAM({DL=BK0;BL1;})V=127DL=BGN;BL2;DL=ST3+8BLI;DL=HZ2;BL3;DL=ST4;BL2; //------------------------------------------------------------------------------TR=015;-------------------------------------------------------------------------------// STR FRH={l32rBBF}STR FRI={l32rBLI}STR FR1={l8@41BR=24q=100[32r]EP.T(50,100,!1)l4`e&&^^^^^^^``e^^^^^^^} STR FR2={l8@41BR=36q=100[32r]EP.T(50,100,!1)l4q=98`e&&^^^^^^^``e^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^} STR BL4={l8[46r]@41q=100p=64EP.T(90,20,!1^1^1^1^1^1^1^1)a^&&b^^^^^^^^^^^^^^} TR=15DL=ST0+8FRH;DL=ST1+8FR2;HAM({DL=BK0;FR1;})V=127DL=BGN;FR2;DL=ST3+8FRI;DL=HZ2;BL4;DL=ST4;FR2; //------------------------------------------------------------------------------TR=013&016;--------------------------------------------------------------------------// STR BG={If(CH!=13){l32r}}STR BG1={@126,8l2BR=40p.T(127,0,!1^1^1)'ceg'^^^^^^}STR BG2={@126,8l4V=127BR=20p.W(127,40,!4)EP.T(0,127,!1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1)[64'abc']} STR BG3={@109,0V=50BR=0p=64l16>>q=10[MidiDelay({`e`e`er`e`er`e},7,!2)[56r]]<>>@126,8l1BR=20p.T(127,0,!1^1^1^1)'c'^^^<<<}STR BG8={@126,8l4V=127BR=20p.W(127,40,!4)[32'abc']}STR BG9={@126,8l4V=127p.W(127,40,!4)FOR(INT A=0;A<32;A++){BR=20+A;'abc'}} STR BBG={DL=ST0;BG;BG2;DL=ST1;BG[BG3]DL=ST2;BG;BG4;DL=BK0[6BG]BG1;DL=BK0+8[BG]BG6;DL=BGN[BG]BG7;DL=ST3[6BG]BG1; DL=HZ2;BG;EP.T(60,127,!1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1)BG8;BG9;DL=BK1[6BG]BG1;DL=BK1+8[BG]BG5;DL=BN2[BG]BG7;DL=BK2[6BG]BG1;DL=BK2+8[BG]BG5;DL=ST5;BG4;DL=END[6BG]BG1;}TR=13BBG;TR=16BBG;