TrackName     = {"The Euphoric"}
Copyright     = {"騎士王321"}
MetaText      = {"下から二行目のコメントを有効にしたほうが良いかもしれません"}
テンポ 143
拍子   4,4
KeyFlag-(bead);
TrackSync;
Include(delay.h);Include(groove.h);Include(unison.h);
System.MeasureShift(1);ResetGS;TrackSync;
CH(11) SysEx$ = f0,41,10,42,12,{40,1a,15,02},f7;
CH(12) SysEx$ = f0,41,10,42,12,{40,1b,15,02},f7;
CH(13) SysEx$ = f0,41,10,42,12,{40,1c,15,02},f7;
CH(14) SysEx$ = f0,41,10,42,12,{40,1d,15,02},f7;
CuePoint={"TwmParam(100,125,16)"}
CuePoint={"TwmChorus(0,64,32,32,64,32,1)"}//Wave,Mix,Dpth,FB,Freq,Dly,Phs
//==================================================================================================
STR RS08 = {r%3072}
STR RS16 = {r%6144}
//--------------------------------------------------------------------------------------------------
STR PF00 = {MidiDelay({r-4^8 a8g8e8 r1^1^1^2^4c8"f8 r1^1^1^2^8 "g8"a8e8 r1^1^1^2^8"f8"b8c8 r1^1^1^1},3,!1)}
STR PF01 = {EP.T(64,127,!1^1^1^1);
            MidiDelay({[2 r1^4^8gag^ec^^"a^:r1^4^8gab^ag^^e^]r1^1
                       [2 r1^4^8gag^ec^^"a^:r1^4^8gab^ag^^e^]r1^2a32,,100a+8^16^32r4},2,!4);}
STR PF11 = {MidiDelay({[2 r1^4^8gag^ec^^"a^:r1^4^8gab^ag^^e^]r1^1
                       [2 r1^4^8gag^ec^^"a^:r1^4^8gab^ag^^e^]r1^2a32,,100a+8^16^32r4},2,!4);}
トラック1
V(125) REV(60) CHO(40) M(0) q99 P(64) o6 @3,8,0 v127 l16 p%(256) r1
RS08 RS08 RS08 RS08 RS08 RS08|/*PF00*/ PF00 PF00 RS16 PF01 PF11 PF11 PF11
//--------------------------------------------------------------------------------------------------
トラック2
V(80) REV(90) CHO(40) M(0) q99 P(32) o6 @3,8,0 v127 l16 p%(0) r1^2
RS08 RS08 RS08 RS08 RS08 RS08|/*PF00*/ PF00 PF00 RS16 PF01 PF11 PF11 PF11
//--------------------------------------------------------------------------------------------------
トラック3
V(64) REV(120) CHO(40) M(0) q99 P(96) o6 @3,8,0 v127 l16 p%(512) r1^1
RS08 RS08 RS08 RS08 RS08 RS08|/*PF00*/ PF00 PF00 RS16 PF01 PF11 PF11 PF11
//--------------------------------------------------------------------------------------------------
STR XS00 = {Sub{[128 V.T(35,35,!8,70,70,!8);r4]}
            EP.T(0,127,12096);'""d"af'%12288[24 r-1]}
STR XS10 = {Sub{[128 V.T(35,35,!8,70,70,!8);r4]}
            EP.T(64,0,6144);'""d"af'%12288[24 r-1]}
STR XS01 = {Sub{[64 V.T(35,35,!8,70,70,!8);r4]}
            '""d"af`c'%2880'""e"bgb'%192 '""fcea'%2880'""e"beg'%192}
STR XS02 = {Sub{[64 V.T(35,35,!8,70,70,!8);r4]}EP.T(127,64,6144);
            '""aeg`c'%5760'""aeg-`c'EP(127)}
STR XS03 = {/*Sub{[64 V.T(35,35,!8,65,65,!8);r4]}*/EP.T(64,127,!1^1^1^1);
            [4 '""d"af'2'""e"bg'4^8:'""fca'4r2^4^8]'""fca+'2^8'""gd+b+'2
		[4 '""d"aa`f'2'""e"b`e`g'4^8:'""fc`f`a'4r2^4^8]'""fc`f`a+'1r8}
STR XS04 = {Sub{[64 V.T(40,40,!8,75,75,!8);r4]}
            [4 '""d"af'2'""e"bg'4^8:'""fca'1^8]'""fca+'2^8'""gd+b+'2
		[4 '""d"aa`f'2'""e"b`e`g'4^8:'""fc`f`a'1^8]'""fc`f`a+'1^8}
STR XS05 = {r-2 EP.T(127,64,!2);r2[16 r1]EP(127)}
トラック4
V(65) REV(100) CHO(80) M(0) q100 P(8) o5 @82,90,1 l1 v127 r1 Sub{[200 [2 p%.T(256,-256,!4,-256,256,!4);r2]]}
RS08 RS08 XS00 RS08 RS08 RS08|/*XS01*/ XS01 XS01 XS02 XS03 XS04 XS04 XS04 XS10
//--------------------------------------------------------------------------------------------------
STR YS00 = {Sub{[128 V.T(35,35,!8,70,70,!8);r4]}
            EP.T(0,127,12288);'"dfa'%12288 [24 r-1]}
STR YS10 = {Sub{[128 V.T(35,35,!8,70,70,!8);r4]}
            EP.T(64,0,6144);'"dfa'%12288 [24 r-1]}
STR YS01 = {Sub{[64 V.T(35,35,!8,70,70,!8);r4]}
            '"d"ffa'%2880'"e"ggb'%192 '"f"afa'%2880'"e"gcg'%192}
STR YS02 = {Sub{[64 V.T(35,35,!8,70,70,!8);r4]}EP.T(127,64,6144);
            '"aceb'%6144 EP(127)}
STR YS03 = {/*Sub{[64 V.T(35,35,!8,65,65,!8);r4]}*/EP.T(64,127,!1^1^1^1);
            [4 '"ddf'2'"eeg'4^8:'"ffa'4r2^4^8]'"ffa+'2^8'"ggb+'2
		[4 '"d"adf'2'"e"beg'4^8:'"fcea'4r2^4^8]'"fcfa+'1r8}
STR YS04 = {Sub{[64 V.T(40,40,!8,75,75,!8);r4]}
            [4 '"ddf'2'"eeg'4^8:'"ffa'1^8]'"ffa+'2^8'"ggb+'2
		[4 '"d"adf'2'"e"beg'4^8:'"fcea'1^8]'"fcfa+'1^8}
STR YS05 = {r-2 EP.T(127,64,!2);r2[16 r1]EP(127)}
トラック5
V(65) REV(100) CHO(80) M(0) q100 P(120) o5 @82,90,1 l1 v127 r1Sub{[200 [2 p%.T(-256,256,!4,256,-256,!4);r2]]}
RS08 RS08 YS00 RS08 RS08 RS08|/*YS01*/ YS01 YS01 YS02 YS03 YS04 YS04 YS04 YS10
//--------------------------------------------------------------------------------------------------
STR SP00 = {Sub{[64 V.T(64,127,!4);r4]}Sub{[16 [2 P(0);r4 P(127);r4]]}Sub{[16 [16 p%(Random(-512,512));r]]}
            MidiDelay({[4 r1[4 'f`c']r1^1^2^4]},8,!4)}
STR SP01 = {Sub{[64 V.T(64,127,!4);r4]}Sub{[16 [2 P(0);r4 P(127);r4]]}Sub{[16 [16 p%(Random(-512,512));r]]}
            MidiDelay({[8 r1[4 'f`c']r2^4]},8,!4)}
トラック6
V(110) REV(48) CHO(64) M(30) q39 o4 l16 @40,90,0 v127 r1
RS08 RS08 RS08 RS08 RS08 RS08|/*RS16*/ RS16 SP00 RS16 RS16 SP01 SP01 SP01
//--------------------------------------------------------------------------------------------------
STR CY00 = {Sub{[64 V.T(64,127,!4);r4]}EP.T(127,0,6144);MidiDelay({[4 ""a16"a16a`aar1^1^1^2]},3,!16);REV(120);EP(127)<}
STR CY01 = {V(65);REV(120);'""d"af'1}
STR AS00 = {Sub{[64 V.T(35,65,!4);r4]}o5 q101
            Sub{[4 ""d^^^""e^^:""f^^^^^^^^]""f^^^^""g^^^ [4 ""d^^^""e^^""f^^^^^^^^]}
		Sub{[4 "f^^^"b^^:"e^^^^"a^^^]"a+^^^^"d+^^^ [4 "f^^^"b^^:"e^^^^"a^^^]c^^^^^^^^}
		[4 a^^^g^^:a^^^^^^^^]a+^^^^b+^^^ [4 a^^^g^^:a^^^^^^^^]a+^^^^^^^^}
STR AS01 = {Sub{[62 V.T(35,65,!4);r4]}o5 q101
            Sub{[4 ""d^^^""e^^:""f^^^^^^^^]""f^^^^""g^^^ [4 ""d^^^""e^^""f^^^^^^^^]}
		Sub{[4 "f^^^"b^^:"e^^^^"a^^^]"a+^^^^"d+^^^ [4 "f^^^"b^^:"e^^^^"a^^^]c^^^^^^^^}
		[4 a^^^g^^:a^^^^^^^^]a+^^^^b+^^^ [4 a^^^g^^:a^^^^^^^^]a+^^^^^^^^ r-2 V.T(35,127,!2);REV.T(120,0,!2);r2}
トラック7
V(100) REV(80) CHO(80) M(8) q29 P(64) o5 @64,8,0 l8 v127 r1
RS08 RS08 RS08 RS08 RS08 RS08|/*RS16*/ RS16 RS16 CY00 RS16 RS16 AS00 AS01
//--------------------------------------------------------------------------------------------------
STR BA00 = {/*Sub{q.T(79,79,!1);r1 q.T(79,59,!1^1);r1^1 q.T(59,129,!1^1^1);r1^1^1 q.T(129,79,!1^1);r1^1}*/
            [4 [3 "dd`d"dd"dd`d]"dd`d"d"c-`c-c-`c-]}
STR BA10 = {@39,1 q.T(49,9,3072);
            [4 [3 "dd`d"dd"dd`d]"dd`d"d"c-`c-c-`c-]}
STR BA01 = {@40,16,0 q49
            MidiDelay({[7 [2 "dd`d"dd"dd`d]]"dd`d"dd"dd`d "ee`e"ee"ee`e
                       [7 [2 "ff`f"ff"ff`f]]"ff`f"ff"ff`f "ee`e"ee"ee`e},2,!16)}
STR BA02 = {q.T(49,9,6144);< MidiDelay({[16 [2 "aa`a"aa"aa`a]]},2,!16)r1 > q98r-1}
STR BA03 = {v0[4 d2e4^8:f4r2^4^8]f2^8 EP.T(64,127,!4);v127 g2
            [4 d2e4^8:f4r2^4^8]f1r8 q49}
STR BA04 = {MidiDelay({[4 "dd`d"dd"dd`d"ee`e"ee"ef`f "ff`f"ff"ff`f:"ff`f"ff"ff`f]"gg`g"gg"gg`g
                       [4 "dd`d"dd"dd`d"ee`e"ee"ef`f "ff`f"ff"ff`f"ff`f"ff"ff`f]},2,!16)}
トラック8
V(125) REV(16) CHO(40) M(0) q79 P(64) o3 @39,1,0 l16 v127 r1
RS08 RS08 BA00 BA00 BA00 BA00|/*BA01*/ BA01 BA01 BA02 BA03 BA04 BA04 BA04 BA00 BA00 BA10
//--------------------------------------------------------------------------------------------------
STR BS01 = {[7 [2 "dd`d"dd"dd`d]]"dd`d"dd"dd`d "ee`e"ee"ee`e
            [7 [2 "ff`f"ff"ff`f]]"ff`f"ff"ff`f "ee`e"ee"ee`e}
STR BS02 = {q.T(79,0,6144);<[16 [2 "aa`a"aa"aa`a]]>q97}
STR BS03 = {@81,1,0;< v0[4 d2e4^8:f4r2^4^8]f2^8 EP.T(64,127,!4);v0 g2
            [4 d2e4^8:f4r2^4^8][18 f16]>EP.T(0,127,6144);q79 @8,0,0 v127}
STR BS04 = {[4 "dd`d"dd"dd`d"ee`e"ee"ef`f "ff`f"ff"ff`f:"ff`f"ff"ff`f]"gg`g"gg"gg`g
            [4 "dd`d"dd"dd`d"ee`e"ee"ef`f "ff`f"ff"ff`f"ff`f"ff"ff`f]}
トラック9
V(125) REV(8) CHO(24) M(20) q79 P(64) o3 @8,0,0 l16 v127 r1
RS08 RS08 RS08 RS08 RS08 RS08|/*BS01*/ BS01 BS01 BS02 BS03 BS04 BS04 BS04
//--------------------------------------------------------------------------------------------------
Key(0);KeyFlag-();
STR BD01 = {[8 [4 '"cd+`c,,127']]}
STR BD02 = {[30 '"cd+`c,,127'][2 '"cd+`c,,127'8][4 '"cd+`c,,127'16]}
STR BD03 = {[31 '"cd+`c,,127']r v127}
STR BD11 = {[16 [4 '"cd+`c,,127']]}
STR BD21 = {[8 [4 '"cd+`c,,127']][30 '"cd+`c,,127'][2 '"cd+`c,,127'8][4 '"cd+`c,,127'16]}
STR BD31 = {[15 [4 '"cd+`c,,127']][2 '"cd+`c']'"cd`c'8^16'"cd`c'16,,100[2 '"cd`c'8]}
STR BD12 = {[15 [4 '"cd+`c,,127']]REV.T(0,40,!1);[4 '"cd+`c,,127'8][8 '"cd+`c,,127'16]'"cd+`c,,127'r-4}
STR BD13 = {REV(40)[8 '"cd+`c,,127'2'"cd+`c,,127'4^8'"cd+`c,,127'8:r1]REV.T(40,0,!1);[4 '"cd+`c,,127'8][8 '"cd+`c,,127'16]}
STR BD14 = {[15 [4 '"cd+`c,,127']][2 '"cd+`c,,127'][2 '"cd+`c,,127'8]r4 REV(80)'"cd+`c,,127'r-4}
トラック10
V(127) REV(0) CHO(0) P(64) BR(12) p%(-3000) q11 o2 @27,90 v105 r1
BD01 BD02 BD01 BD01 BD01 BD03|/*BD11*/ BD11 BD21 BD12 RS16 BD13 BD31 BD02 BD01 BD01 BD01 BD01 BD02
//--------------------------------------------------------------------------------------------------
STR SD00 = {[8 [2 r'"e']]}
STR SD01 = {[8 [2 r'"ed+']]}
STR SD02 = {[7 [2 r'"ed+']][2 r:'"ed+']r}
STR SD11 = {[16 [2 r'"ed+']]}
STR SD12 = {EP.T(127,0,6144);[16 [2 r'"ed+']]EP(127)}
STR SD13 = {[15 [2 r'"ed+']]r'"ed+'r2}
トラック11
V.WR(100,105,!8^16,0,0,!16) REV(80) CHO(127) P(80) BR(12) p%.WR(1500,1500,!8,1500,-4500,!16,-4500,1500,!16);q13 o3 @27,90 v127 r1
SD00 SD01 SD01 SD01 SD01 SD02|/*SD11*/ SD11 SD11 SD12 RS16 RS16 SD11 SD13 SD00 SD00 SD00 SD00
//--------------------------------------------------------------------------------------------------
STR HH01 = {Sub{[8 [4 p%.T(6000,5000,!4);r4]]}[8 [4 g+,,64a+]]}
STR HH02 = {Sub{[8 [4 p%.T(6000,5000,!4);r4]]}[31 g+,,64a+]r4}
STR HH11 = {Sub{[16 [4 p%.T(6000,5000,!4);r4]]}[16 [4 g+,,64a+]]}
STR HH12 = {Sub{[8 [4 p%.T(6000,5000,!4);r4]]}[16 [4 g+,,64a+]]r-%3072 p%.T(6000,-8192,3072,-8192,8192,!1);r%3072 a+1r1 p%(6000);r-1^1}
STR HH13 = {Sub{[8 [4 p%.T(6000,5000,!4);r4]]}[16 [4 g+,,64a+]]r-%3072 p%.T(6000,-8192,3072);r%3072 a+}
トラック12
V(105) REV(32) CHO(64) P(64) BR(12) p%(6000) q15 o3 @12,7 l8 v127 r1
HH01 HH01 HH01 HH01 HH01 HH02|/*HH11*/ HH11 HH11 HH12 RS16 RS16 HH11 HH12 HH01 HH13
//--------------------------------------------------------------------------------------------------
STR CL01 = {Sub{[8 [16 P(Random(0,127));r]]}[8 [4 d+,,80d+,,100d+d+,,100]]}
STR CL02 = {Sub{[8 [16 P(Random(0,127));r]]}[8 [4 d+,,80d+,,100d+d+,,100]]
		r-1^1 p%.T(-6000,8192,!1^1);P.T(48,127,!1^1);V.T(100,127,!1^1);r1^1 p%(-6000);V(100)}
STR CL03 = {Sub{[8 [16 P(Random(0,127));r]]}[31 d+,,80d+,,100d+d+,,100]r4}
STR CL11 = {Sub{[16 [16 P(Random(0,127));r]]}[16 [4 d+,,80d+,,100d+d+,,100]]}
STR CL12 = {Sub{[16 [16 P(Random(0,127));r]]}[16 [4 d+,,80d+,,100d+d+,,100]]
            r-1^1 p%.T(-6000,8192,!1^1);P.T(48,127,!1^1);V.T(100,127,!1^1);r1^1 p%(-6000);V(100)}
トラック13
V(100) REV(1) CHO(32) BR(12) p%(-6000) q17 o2 @25 v127 l16 r1
CL01 CL02 CL01 CL01 CL01 CL03|/*CL11*/ CL11 CL11 CL12 RS16 RS16 CL11 CL12 CL01 CL01 CL01 CL02
//--------------------------------------------------------------------------------------------------
/*
STR BO01 = {[8 [4 'eg`c']]}
トラック14
V(100) REV(0) CHO(40) P(64) BR(12) p%.onNoteWave(0,-8191,!16) q11 o4 @79 v127 r1
*/
STR SR01 = {EP.T(127,0,!32,0,127,3060);p%.T(0,0,2200,0,8192,768);[7 [16 "d]][16 "d32][12 "d48][16 "d64]}
STR SR11 = {[8 r1]EP.T(127,0,!32,0,127,3060);p%.T(0,0,2200,0,8192,768);[7 [16 "d]][24 "d24]}
STR SR12 = {Sub{MidiDelay({p%(1000);c+^^},7,!4)}
            [8 r1]EP.T(127,0,!32,0,127,3060);p%.T(0,0,2200,0,8192,768);[7 [16 "d]][16 "d32][12 "d48][16 "d64]}
STR CC01 = {Sub{MidiDelay({p%(1000);c+^^},7,!4)}[8 r1]v127}
STR CC11 = {Sub{MidiDelay({p%(1000);c+^^},7,!4)}[16 r1]v127}
トラック14
V(120) REV(32) CHO(48) M(0) q19 P(64) o4 v127 @26,100 l16 r1
CC01 CC01 RS08 RS08 RS08 SR01|CC11 RS16 /*CC11*/ SR11 CC11 SR12 CC11 SR11 CC01 RS08 RS08 CC01 CC01
//--------------------------------------------------------------------------------------------------
STR RC00 = {r1 p%.T(8191,-8191,3072);r-1 EP.T(0,0,!1,127,0,3072);'cde'^^^^^^^^}
STR RC01 = {r-1 EP.T(0,127,!1,127,0,3072);p%.T(0,8191,!1,8191,-8191,3072);'cde'^^^^^^^^}
STR RC11 = {r-1 EP.T(0,127,!1,127,0,3072);p%.T(0,8191,!1,8191,-8191,3072);'cde'^^^^^^^^r%3072}
STR RC12 = {r-1 EP.T(0,127,!1,127,0,3072);p%.T(0,8191,!1,8191,-8191,3072);'cde'^^^^^^^^
            EP.T(0,127,3072);p%.T(-8192,8192,3072);'cde'^^^^^^^}
STR RC13 = {r-1 EP.T(0,0,!1,0,100,3072,100,0,!1^1);p%.T(0,-8191,!1,-8191,8191,3072,8191,0,!1^1);
            'cde'^^^^^^^^^^^^}
トラック15
V(127) REV(127) CHO(0) P(64) BR(12) M(40) q100 o5 @123,1 l1 v120 RC00
RS08 RS08 RS08 RS08 RS08 RC11|/*RS16*/ RS16 RS16 RC11 RC12 RS16 RC11 RS16 RS08 RC13
//--------------------------------------------------------------------------------------------------
STR DP01 = {Sub{'c'%3072}[16 r1]}
STR DP02 = {Sub{'c'%3072}[8 r1]}
トラック16
V(120) REV(127) CHO(127) P(64) BR(12) M(60) q99 o1 @117,8 l1 v125 r1
RS08 RS08 RS08 RS08 RS08 RS08|/*RS16*/ RS16 RS16 RS16 RS16 DP01 DP01 RS16 DP02 RS08 RS08 RS08 DP02
//==================================================================================================
//Solo(7)//トラックソロ。複数トラックで指定可能
//Mute(7)//トラックミュート。