TrackName     = {"Snow"}
Copyright     = {"騎士王321"}
MetaText      = {"目指せ!! ダサかっこいい90's!!"}
テンポ 154
拍子   4,4
KeyFlag-(beadgc);
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(120,120,0)"}
CuePoint={"TwmChorus(1,127,60,64,64,48,1)"}
//==================================================================================================
STR RS08 = {[8 r1]}
STR Fout = {EP.T(127,0,6144,0,0,!1,0,127,!1);}
//--------------------------------------------------------------------------------------------------
STR BA00 = {v.N(120,127);q.T(18,98,3072);
            [2 c`cc`c"bb"bb"ee"gg"aa"bb c`cc`c"bb"bb:e`ee-`e-d`d"gg]e`e"ee"gg"gg}
STR BA01 = {q98[2 c`cc`c"bb"bb"ee"gg"aa"bb c`cc`c"bb"bb:e`ee-`e-d`d"gg]e`e"ee"ggrr}
STR BA11 = {[4 [4 "aa][4 "ee]]}
STR BA21 = {[3 [2 c`c][2 "cc][2 "dd][2 "ee]][2 "cc][2 "dd][2 "ee]g4r4}
トラック1
V(127) REV(16) CHO(40) M(0) q98 P(64) @82,1 o3 r1 l8 v127
BA00 BA01 BA01 BA11 BA21 BA01 BA01 BA11 BA21 BA01 BA01 BA01 BA01 BA01 BA01 Fout BA01 BA01
//--------------------------------------------------------------------------------------------------
STR BB00 = {Sub{[8 [4 V.T(32,127,!4);r4]]}@74
            >[2 `c2b2`e4g4a4b4 `c2b2:e4e-4d4g4]e2g2<@88}
STR BB01 = {Sub{[8 [4 V.T(32,127,!4);r4]]}
            [2 `c2b2`e4g4a4b4 `c2b2:e4e-4d4g4]e2g2}
STR BB11 = {Sub{[8 [4 V.T(32,127,!4);r4]]}
            [4 a1`e1]}
STR BB21 = {Sub{[8 [4 V.T(32,127,!4);r4]]}
            >[3 c1d2e2]c2d2e2<g2}
トラック2
V(100) REV(0) CHO(40) M(10) q99 P(64) @88 r1 p%(256) o2 v127
BB00 BB01 BB01 BB11 BB21 BB01 BB01 BB11 BB21 BB01 BB01 BB01 BB01 BB01 BB01 Fout BB01 BB01
//--------------------------------------------------------------------------------------------------
STR VO01 = {OctaveUnison([2 rreccere^"b"be^rrr rredderg^fde^^:rr]ed);}
STR VO02 = {OctaveUnison([2 edcf^efa^:fef^^b&"b]b`d`e^^ba edcf^edg^fea^gfg2rgaa+b2r2);}
STR VO03 = {l16 v127 OctaveUnison([2 r1^8b8ra8rb4r4:r1^8b^r`d^r`e^r`e+^r`f^&fr]r1rrg8rf8re4r4);l8 v120}
STR VO04 = {l16 v127 q103 r-8 OctaveUnison(efga);q93 OctaveUnison(
		b2^8a8`d8g2^8r2b2^8a8`d8`e16^32`f32`g6`f6`d6b6g6f6 b2^8a8`d8g2r4^8efgab2^8a8`d8`e2^8r4^8
            );l8 v120}
トラック13
V(88) REV(40) CHO(8) M(0) q93 P(54) @51,110 o4 l8 r1 v120
RS08 RS08 RS08 VO01 VO02 VO03 RS08 VO01 VO02 VO04 VO04 RS08 RS08 VO04 VO04 Fout VO03 VO03
//--------------------------------------------------------------------------------------------------
トラック14
V(88) REV(40) CHO(8) M(8) q93 P(74) @51,110 o4 l8 r1 v120
RS08 RS08 RS08 VO01 VO02 VO03 RS08 VO01 VO02 VO04 VO04 RS08 RS08 VO04 VO04 Fout VO03 VO03
//--------------------------------------------------------------------------------------------------
STR SW01 = {MidiDelay({[4 [3 'egb'r:r]r1^2]},4,!4^8);}
トラック3
V(48) REV(16) CHO(64) M(0) q69 P(0) @82,110 p%(-128) l16 r1 v120
SW01 SW01 SW01 SW01 SW01 SW01 SW01 SW01 SW01 SW01 SW01 SW01 SW01 SW01 SW01 Fout SW01 SW01
//--------------------------------------------------------------------------------------------------
トラック4 r8^16
V(40) REV(16) CHO(64) M(10) q69 P(127) @82,110 p%(128) l16 r1 v120
SW01 SW01 SW01 SW01 SW01 SW01 SW01 SW01 SW01 SW01 SW01 SW01 SW01 SW01 SW01 Fout SW01 SW01
//--------------------------------------------------------------------------------------------------
STR PF01 = {[2 q121
            "cr'egb'r"c'egb'^"c'dfb'^""b'dfb'^""b'dfb'^ "er'egb'r""g'dgb'^""g'"aeg'^""a'egb'^""a'dgb'""b
            "cr'egb'r"c'egb'^"c'dfb'^""b'dfb'^""b'dfb'^ "er'egb'r""e'dgb'^""e'"beg'< q221:
		OctaveUnison(`b`a`g`e`dba);>]OctaveUnison(ab`d`e`g`a`b);>q121}
STR PF11 = {[2 t.N(0,2,4,6,8);'"c"gdeb'2'""b"adfa'2Sub{"e2""e2}'"bdeg'1
               '"c"gdeb'2'""b"adfa'2:Sub{"e4"d+4"d2}'"bdeg'1]Sub{"e2"g2}'"bdeg'1 t(0);}
STR PF02 = {t.N(0,1,2,3,4);[3 '"c"gdeb'1'"d"aefa'2'"e"bdeg'2]
                              '"c"gdeb'2'"d"aef`d'2'"e"bdeb'2'""g"dgb`d'2 t(0);}
トラック5
V(120) REV(32) CHO(32) M(0) q121 P(64) @1,90 l16 r1 v120
RS08 RS08 PF01 RS08 PF02 RS08 PF01 RS08 PF02 PF11 PF11 RS08 RS08 RS08 RS08 Fout RS08 PF01
//--------------------------------------------------------------------------------------------------
STR RIFF = {OctaveUnison(beba^f`dg^^^^rgfd beba^f`e`d^^^^);l16 q202 OctaveUnison(r"bdefgaa+);l8 q102
            OctaveUnison(beba^f`dg^^^^rgfd beba^gfe^^^^^^rr);}//なんかこいつKey()使っても転調してくれないんですけど
STR RF01 = {l16 v100 OctaveUnison([2 r1^2^8"br"b"a"b^:r1^2^8"br"bdeg]r1^1);l8 v120}
STR RI90 = {}
トラック6
V(80) REV(24) CHO(16) M(0) q102 p%(-128) P(96) @63 l8 r1 v120
RS08 RIFF RF01 RF01 RS08 RIFF RIFF RS08 RS08 RS08 RS08 RIFF RIFF RS08 RS08 Fout RIFF RIFF
//--------------------------------------------------------------------------------------------------
トラック7
V(80) REV(24) CHO(16) M(0) q102 p%(256) P(32) @63 l8 r1 v120
RS08 RIFF RF01 RF01 RS08 RIFF RIFF RS08 RS08 RS08 RS08 RIFF RIFF RS08 RS08 Fout RIFF RIFF
//--------------------------------------------------------------------------------------------------
STR ST01 = {Sub{[8 [4 V.T(40,40,!8,64,64,!8);r4]]}v127
		[2 '"c"gcgb'2'""b"f"ba`d'2Sub{""e""g""a""b}'"bdg`e'1
		   '"c"gcgb'2'""b"f"ba`d'2:Sub{""e""d+}'"bdg`e'2'""d"a"df-a'2]'""e"bdg`e'2'""g"dgb`e'2}
STR ST02 = {Sub{[8 [4 V.T(40,40,!8,64,64,!8);r4]]}v127[6 r1]
		EP.T(0,127,!1^1);'"cegb'2'"dfgb'2Sub{'"eeg'2'""ge+g'2}'b'1}
トラック8
V(32) REV(32) CHO(8) M(0) q100 P(8) @82 l4 o5 v120 r1
RS08 ST01 ST01 RS08 ST02 ST01 ST01 RS08 RS08 RS08 ST01 ST01 ST01 ST01 ST01 Fout ST01 ST01
//--------------------------------------------------------------------------------------------------
トラック9
V(32) REV(32) CHO(8) M(0) q100 P(120) p%(-256) @82 l4 o5 v120 r1
RS08 ST01 ST01 RS08 ST02 ST01 ST01 RS08 RS08 RS08 ST01 ST01 ST01 ST01 ST01 Fout ST01 ST01
//--------------------------------------------------------------------------------------------------
KeyFlag-();
STR BD00 = {p%.T(8191,0,3072);Sub{v32[8 [4 c v+3]]}v127[8 [4 '"a-"a']]}
STR BD01 = {p%(-1000);[8 Sub{[2 r"""d]}[4 '"""c"a-"ac']]}
STR BD02 = {p%(-1000);Sub{[16 r:"""d]r}[31 '"""c"a-"ac']REV(40)'`c+`a'REV(0)}
トラック10
V(100) REV(0) CHO(40) M(0) q9 P(64) o3 BR(12) p%(-1000) @27,90 v127 r1
BD00 BD01 BD02 BD01 BD02 BD01 BD02 BD00 BD02 RS08 BD01 BD01 BD01 BD01 BD02 Fout BD01 BD02
//--------------------------------------------------------------------------------------------------
STR HC00 = {Sub{[8 [4 g+,,64rf+r]]}
            [7 r1]r2^4`a4}
STR HC01 = {Sub{[8 [4 g+,,64rf+r]]}
            Sub{>>v80[8 [2 aa,,64aa,,64a,,100aa,,64a,,88]]v127<<}
		`c+1[7 r1]}
STR HC02 = {Sub{[8 [4 g+,,64rf+r]]}
            Sub{>>v80[8 [2 aa,,64aa,,64a,,100aa,,64a,,88]]v127<<}
		`c+1[6 r1]r2^4EP(0);r4 EP(127)}
トラック11
V(110) REV(1) CHO(120) M(0) q11 P(68) o3 BR(12) p%(1000) @25 l16 v127 r1
HC00 HC01 HC01 HC00 HC02 HC01 HC01 HC00 HC02 HC00 HC01 HC01 HC01 HC01 HC02 Fout HC01 HC01
//--------------------------------------------------------------------------------------------------
STR CP01 = {[2 [4 [2 r4d4]]r-8^16 p%(3000);[3 d+]p%(1500)]}
STR CP02 = {Sub{[7 [2 r4d4]]}[7 r1]v64[8 e v+8]v127[3 'dea+'g+,,32:r]}
トラック12
V(127) REV(40) CHO(80) M(0) q13 P(64) o3 BR(12) p%(1500) @1,7 l16 r1 v127
RS08 CP01 CP01 CP01 CP02 CP01 CP01 RS08 CP01 RS08 CP01 CP01 CP01 CP02 CP01 Fout CP01 CP01
//--------------------------------------------------------------------------------------------------
STR RC01 = {REV(120) CHO(100) q101 P(64) o10 @126,7 P(0) l1
            [7 r1]p%.T(-8191,0,!2^4);EP.T(32,127,!2);'cde'2^4 EP(0);r4}
STR RC11 = {REV(120) CHO(100) q101 P(64) o10 @126,7 P(127) l1
            [7 r1]p%.T(-8191,0,!2^4);EP.T(32,127,!2);'cde'2^4 EP(0);r4}
STR SD01 = {REV(8) CHO(48) q101 P(64) o4 @119 P(64) EP(127);l16
            [7 r1]`c`cggcc"g"g"cr"crr4}
トラック15
V(127) REV(8) CHO(48) M(0) q101 P(64) o4 @119 BR(12) v127 l16 r1
RC11 RS08 SD01 RS08 RC11 RS08 SD01 RS08 SD01 RC01 RS08 RS08 SD01 RS08 SD01 Fout 
//--------------------------------------------------------------------------------------------------
トラック16
V(127) REV(120) CHO(100) M(0) q101 P(64) o10 @126,7 v127 BR(12) r1
RC01 RS08 RS08 RS08 RC01 RS08 RS08 RS08 RS08 RC11 RS08 RS08 RS08
//==================================================================================================
//Solo(10,13,14)//トラックソロ。複数トラックで指定可能
//Mute()//トラックミュート。