Int TYPE = 0;              //0はProgressive　1はR*3さんとの共作(未完)

IF(TYPE=0){
TrackName     = {"Progressive  - ver.2011 -"}
Copyright     = {"騎士王321"}
MetaText      = {"2011年終わってました"}
テンポ 127
拍子   4,4
KeyFlag+(fc);
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,40)"}
CuePoint={"TwmChorus(1,127,48,64,64,48,1)"}
// ChorusSetting     Wave  Mix Dpth   FB Freq  Dly  Phs
//==================================================================================================
STR KEEP = {}
STR RS08 = {r%3072}
//--------------------------------------------------------------------------------------------------
STR XS01 = {[2 '"gdgb`d`f''"aea`c`e`f':'"bfb`d+`f'1]'"bfb`d+`f''"ddfa`c-`f'[2 '"gdgb`d`f''"aea`c`e`f''"bfb`d+`f'1]}
トラック1
V.WR(0,80,!4) REV(0) CHO(24) M(0) q100 P(0) o4 l2 @82,90,1 p%(256) v127 r1
XS01
//--------------------------------------------------------------------------------------------------
トラック2
V.WR(0,80,!4) REV(0) CHO(24) M(0) q100 P(127) o4 l2 @82,90,1 p%(-256) v127 r1
XS01
//--------------------------------------------------------------------------------------------------
STR BA01 = {[2 [2 "gg][2 "aa][2 "bb]:[2 "bb]]d[3 `d24]d16`d16r16`d16
            "gg"gb"aa"a`c"bb"b`e"b`d+"bf[2 "gg][2 "aa][4 "bb]}
STR BA90 = {[2 [3 p%.T(0,-8191,!2^4^8);"b1]:d4"g4c4"f4]p%(0);"a1^2^4r4}
トラック3
V(127) REV(40) CHO(1) M(0) q119 P(80) o3 l8 @82,1,0 BR(12) p%(0) v127 r1
BA01
//--------------------------------------------------------------------------------------------------
トラック4
V(100) REV(8) CHO(64) M(0) q79 P(80) o3 l8 @39,1,0 BR(12) p%(0) v127 r1
BA01
//--------------------------------------------------------------------------------------------------
STR GT01 = {M.T(0,64,!1);`b1^1}
STR GT90 = {>[3 b^abfae EP.T(127,127,!4,127,0,!4);M.T(0,0,!4,0,0,!4);p%.T(0,0,!4,0,-8191,!4);f4^8rr <EP(127);M(0);p%(0);r]}
トラック5
V(100) REV(32) CHO(0) M(0) q107 P(40) o5 l16 @31,90,0 p%(0) v127 r1
GT01
//--------------------------------------------------------------------------------------------------
トラック6
V(80) REV(64) CHO(40) M(0) q97 P(40) o4 l16 @31,8,0 p%(0) v127 r1
GT01
//--------------------------------------------------------------------------------------------------
STR PF01 = {[2 >[3 b^abfae:f]f^de<b`dabf[2 b^abfaef]:b^ab`d^b`dr`d`e`f`a`f`a`a+]b^abfaefr'efb'^r'd+fb'^^^}
STR PF90 = {Sub{o4[3 '"bdfa'4^8r8'"beg+b'4^8r8]'dfa`c-'^^r'df-gb'^^r'ce+g+b'^^r'cefa+'^^r
                [3 '"bdfa'4^8r8'"beg+b'4^8r8]""a1^2^4r4}
            o7[2 b^abfaef^de"bd"a"b"f<b^abfaef^de"bd"a"b"f<:b^abfaef^defafaa+b4`d4`e+^^`g+`ar`a+r>]
		     b^abfaef^de"bd"a"b"f "ac-d+f l24 a`c-`d+`fgg+ l32 a`c-`d+`f>[2 a`c-`d+`f]>a`c-`d+`f
		     l24[9 'a`d+''`c-`f'v-10]`a8^16r16 o5 l16 v127}
トラック7
V(80) REV(48) CHO(16) M(0) q102 P(96) o5 l16 @103,0,0 p%(-128) v127 r1
PF01
//--------------------------------------------------------------------------------------------------
トラック8
V(80) REV(16) CHO(0) M(0) q129 P(64) o5 l16 @3,0,0 p%(0) v127 r1
PF01
//--------------------------------------------------------------------------------------------------
トラック9
V(80) REV(48) CHO(8) M(0) q121 P(32) o5 l16 @82,111,3 p%(0) v127 r1
PF01
//--------------------------------------------------------------------------------------------------
Key(0);KeyFlag+();
STR BD01 = {[8 [4 '"g+"b']]}
STR BD90 = {[3 "brrr][4 "b][4 "brrr]r1}
トラック10
V(100) REV(1) CHO(0) q11 P(64) o3 l4 @27,7,0 BR(12) p%(0) v127 r1
BD01
//--------------------------------------------------------------------------------------------------
STR DR01 = {Sub{[8 [4 rg+a+g+]]}[8 [4 c4]]}
STR DR90 = {[3 c1][4 c4][4 c1]r1}
トラック11
V(100) REV(8) CHO(0) q13 P(64) o3 l16 @26,100,0 BR(12) p%(6000) v127 r1
DR01
//--------------------------------------------------------------------------------------------------
STR HC01 = {[8 [2 r'"ed+']]}
トラック12
V(120) REV(80) CHO(120) q15 P(64) o3 l4 @27,90,0 BR(12) p%(1500) v127 r1
HC01
//--------------------------------------------------------------------------------------------------
STR CC01 = {Sub{'`c+`a'}[8 r1]}
トラック13
V(100) REV(120) CHO(0) q17 P(64) o3 l8 @25,0,0 BR(12) p%(6000) v127 r1
CC01
//--------------------------------------------------------------------------------------------------
STR SR01 = {}
トラック14
V(120) REV(40) CHO(24) q19 P(64) o3 l8 @1,7,0 BR(12) p%(0) v127 r1
//--------------------------------------------------------------------------------------------------
トラック15
V(100) REV(0) CHO(0) q11 P(64) o5 l8 @1,0,0 BR(12) p%(0) v127 r1
//--------------------------------------------------------------------------------------------------
STR TM01 = {}
トラック16
V(127) REV(48) CHO(80) q11 P(64) o5 l8 @119,9,0 p%(1280) v127 r1

//==================================================================================================
//Solo(1)//トラックソロ。複数トラックで指定可能
//Mute(1)//トラックミュート。
}
IF(TYPE=1){
TrackName     = {""}
Copyright     = {""}
MetaText      = {""}
テンポ 130
拍子   4,4
KeyFlag-(bea);
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 = {r%3072}
STR RS16 = {r%6144}
//--------------------------------------------------------------------------------------------------
STR ME01 = {Sub{[3
                r-8""a+24""b24""b+24"c^r"cr2^4^2^8"c^r"c^r
                ""b^r""br2^4^4^8""g24""a24""a+24""b^rr""b^rr]
		    r-8""f+24""g24""a24""a+^r""a+r2^4^2^8""a+^r""a+^r
		    ""a^r""ar2^4^4^8"e+24"f24"f+24"g^rr"g^rr}
            [3
		'gb`d'^r'gb`d'r2^4^2^8'gb`d'^r'gb`d'^r
		'fa`c'^r'fa`c'r2^4^2^8'fa`c'^r'fa`c'^r]
		'e+gb+`d'^r'e+gb+`d'r2^4^2^8'e+gb+`d'^r'e+gb+`d'^r
		'ga`c`e'^r'ga`c`e'r2^4^2^8'fa+`c`e+'^r'`c`e+`f`a+'^r}
STR ME02 = {Sub{[2
                r-8"e+24"f24"f+24"g^r"gr2^4^2^8"g^r"g^r
                "a+^r"a+r2^4^4^8"f+24"g24"a24"a+^rr"a+^rr
		    r-8"f24"f+24"g24"a^r"ar2^4^2^8"a^r"a^r:
                ""a^r""ar2^4^4^8""f24""f+24""g24""a^rr"a^rr]
		    "d-^r"d-r2^4^4^8""b24""b+24"c24"d-^rr"d-^rr}
		[2
		'dfa+`c'^r'dfa+`c'r2^4^2^8'dfa+`c'^r'ef+b`c+'^r
		'e+gb+`d'^r'e+gb+`d'r2^4^2^8'e+gb+`d'^r'e+gb+`d'^r
		'ga`c`e'^r'ga`c`e'r2^4^2^8'ga`c`e'^r'ga`c`e'^r:
		'ga`c`e'^r'ga`c`e'r2^4^2^8'ga`c`e'^r'ga`c`e'^r]
		'a`c`d-`f'^r'a`c`d-`f'r2^4^2^8'a`c`d-`f'^r'a`c`d-`f'^r}
トラック1
V(80) REV(32) CHO(64) M(10) q101 P(0) o4 @82,90,1 v120 l16 p%(256) r1
ME01 ME02 ME01 ME02
//--------------------------------------------------------------------------------------------------
トラック2
V(80) REV(32) CHO(64) M(20) q102 P(127) o4 @82,90,1 v120 l16 p%(-256) r1
ME01 ME02 ME01 ME02
//--------------------------------------------------------------------------------------------------
トラック3
V(100) REV(0) CHO(0) M(0) q99 P(64) o5 @1,0,0 r1
//--------------------------------------------------------------------------------------------------
STR BA01 = {[3
            c4[2 "g,19]f&grrrrg,19b&`cf c8[2 "g,19]r8f&gr8f&gc,19b&`c"g,19 Key(-2);
		c4[2 "g,19]f&grrrrg,19b&`cf c8[2 "g,19]:r8f&gr8   f&g c,19b&`c"g,19 Key(0);]
		 r`c [2 "g,19 ]  a&b,19[2 "g,19 ] fb,19`e^Key(-3);	//■コード変更前にワンクッション
		Key(-3);
		c4[2 "g,19]f&grrrrg,19b&`cf c8[2 "g,19]r8f&gr8f&gc,19b&`c"g,19 Key(0);
		"a2[2 "e,19]e8"e,19a&be,19 M(64)f&g^^M(0)"g^"g,19gd&fg"g"a,19c&d"f }
		
STR BA02 = {[2 Key(-5);
            c4[2 "b,19]f&grrrrg,19b&`cf c8[2 "g,19]r8f&gr8f&gc,19b&`c"g,19 Key(-3);
		c4[2 "g,19]f&grrrrg,19b&`cf c8[2 "g,19]r8f&gr8f&gc,19b&`c"g,19 Key(0);
		"a^[2 "g,19]fe&fbrra,19r"a,19a^e,19 "a8[2 "g,19]r8f&gr8b&`cc,19"a&"b"g,19:
		"a"a,19a^"b"b,19b^c[2 c,19]e[2 e,19]a"e,19 `a^a,19"a,19e^b&`crrrrcef"f]
		d-2[2 "a,19]"a8e&fa&b d-^d-,19`d-"a^a&b M(64)[2 `e&`f]d-,19`e&`f M(0)d-,19}
トラック4
V(120) REV(0) CHO(8) M(0) q99 P(64) o3 @37,0,0 v120 l16 r1
BA01 BA02 BA01 BA02
//--------------------------------------------------------------------------------------------------
トラック5
V(100) REV(0) CHO(16) M(0) q98 P(64) o3 @39,1,0 v120 l16 r1
BA01 BA02 BA01 BA02
//--------------------------------------------------------------------------------------------------
STR LD01={BR=24  c&d&g&b  
           b&b*&`c^   ^^^^  ^^^^ ^^b&a&        g^^^     ^^&b&`c  ^^^^ ^^&`e&`f&
	     b^^^       ^^b&`c &g^^^ ^^b&a      &g^^^   ^^^^ ^be&g `c&ag&b 
	    `c^^^       ^^^^  ^^^^  ^^^^         b^^^     ^^b*&`c ^^f^ g&b^^
	     g^^^       ^^^^  ^^f^  ^^a&g       &f^^^     c&d^^    e^"g&"b   c&d&g&b  

           b&b*&`c^   ^^^^  ^^^^ ^^b&a&        g^^^     ^^&b&`c  ^^^^ ^^&`e&`f&
	     b^^^      ^^b&`c &g^^^ ^^b         &a&g^^^ ^^g&"g   &"bc&d&g  &`e^>d&d-
           c^^^   ^^"c&"g  &"b&cd&e f&g^c     e&f&g^   fce"b    c<bgb    gg-ff-
           f^^^ ^^ce frer  drc^                 ^^^^   ^^"b&"b*&c^^^   ^^^^ 
	     
	            }


トラック6
V(127) REV(40) CHO(0) M.W(0,0,!8,0,90,!2) q99 P(64) o6 @82,1,0 r2. v127 l16  
[ RS16 ]             //■リードメロ
LD01 

//--------------------------------------------------------------------------------------------------
トラック7
V(70) REV(100) CHO(0) M.W(0,0,!4,0,90,!2) q99 P.onNote(127,0) o6 @82,1,0 r2. v127 l16 r4
[ RS16 ]　　　　　　　//■リードメロ
LD01 

//--------------------------------------------------------------------------------------------------
トラック8
V(60) REV(100) CHO(0) M.W(0,0,!4,0,90,!2) q99 P.onNote(0,127) o6 @82,1,0 r2. v127 l16 r2
[ RS16 ]　　　　　　 //■リードメロ
LD01

//--------------------------------------------------------------------------------------------------
トラック9            //■思いつきホルン
V(110) REV(80) CHO(0) M=0q99 P(20) o5 @64,16 r2. l4 r4 RS08 [r1+1+1+1] 

Sub{ v40  o4 g^^^ l8 f^^e^^^^ l4  v70  a*^^^ l8 a*^^a*^^b^ v90 l4  a^^^   ^^^^      v40         g^^^ ^^^^}
Sub{ v30  o6 r^^^ l8 r^^r^^^^ l4  v50  r^^^  l8  r^^ r^^r^ v70 l4  c^^^   ^^^^      v50         c^^^ ^^^^}
     v100 o5 c^^^ ^^^^                 d^^^  l8 e^^e*^^f^  l4  g^^^ l8f^^b^^al16 ga   l4 e^^^ ^^^^ 

[7
Sub{ v30   o4 e^^^ l8 f^^e^^^^ l4  v50  a*^^^ l8 a*^^a*^^b^ v90 l4  a^^^   ^^^^      v40         g^^^ ^^^^}
Sub{ v50   o6 g^^^ l8 g^^^f^^^ l4  v60  g^^^  ^^^^          v70 l4  f^^^   ^^^^      v50         b^^^ ^^^^}
     v100  o5 c^^^ ^^^^                 d^^^  l8 e^^e*^^f^  l4  g^^^ l8f^^b^^al16 ga   l4 e^^^ ^^^^ 
]
//--------------------------------------------------------------------------------------------------
Key(0);KeyFlag-();
STR BD00 = {'"e-"a-c'8`d24`c24b24a12g12r12}
STR BD01 = {[16 [4 '"e-"a-c'4]]}
トラック10
V(127) REV(1) CHO(1) P(64) BR(12) p%(-6000) q11 o3 @25,90,1 v127 r2 BD00
BD01 BD01 BD01 BD01
//--------------------------------------------------------------------------------------------------
STR HH01 = { v127 [4 [3 [4 r8'g+'8]][3 r8'g+'8]r8[3 'g+'24]]}
Str SH01 = { l16 v90 [2 rrrr rrrr rrn70n70 rrn82r rrrr rrrr rn69n70n70 rn69n82r ]  
             l24 v80   n42n42n42l16n42n42 rrn42r v90 rrn70n70 rrn82r rrrr rrrr rn69n70n70 rn69n82r
                       rrrr rrrr rrn70n70 rrn82r rrrr rn69rr rn69n70n70 n69n82n69n82   }

トラック11
V(100) REV(24) CHO(80) P(68) BR(12) p%(0) q12 @26,100 v127 o3 r1
HH01 Sub{ [4 SH01 ] } HH01 HH01 HH01  //■シェイカー
//--------------------------------------------------------------------------------------------------
STR CP00 = {[15 r1]v20[8 '"ed'v+10][3 '"ed'24][6 '"ed'v+5]v127}
STR CP01 = {[4 [4 r4 EP.T(127,0,!32);'"ed'4r4 EP.T(127,0,!32);'"ed'rr:
                  EP.T(127,0,!32);'"ed',,80]r]}
トラック12
V(127) REV(64) CHO(64) P(64) BR(12) p%(8000) q13 @26 o3 v127 l16 r1 r-12'"ed'12
RS16 CP00 CP01 CP01
//--------------------------------------------------------------------------------------------------
トラック13
V(100) REV(0) CHO(0) P(64) BR(12) p%(0) q11 o3 r1
//--------------------------------------------------------------------------------------------------
KeyFlag-(bea);
トラック14
V(127) REV(0) CHO(0) P(64) BR(12) p%(0) q11 o6 r1 l16 
//--------------------------------------------------------------------------------------------------
トラック15
V(127) REV(0) CHO(100) P(64) BR(12) p%(0) q80 o5 r1 @81,8 l16 v127

EP.T(50,127,!1+1+1+1 +1+1+1+1 +1+1+1+1)


[4

Sub{ [ P.T(0,127,!1,127,0,!1,0,127,!1,127,0,!1,0,127,!1,127,0,!1,0,127,!1,127,0,!1,0,127,!1,127,0,!1) [8 r1 ] ]}
V.T(25,100,!1,100,25,!1+1,25,100,!1,100,25,!1+1,25,100,!1,100,25,!1+1,25,100,!1,100,25,!1+1,25,100,!1,100,25,!1+1)
Sub{ v20  r2  [32 gab>cdefg< ] }
Sub{ v40  r4. [32 gab>cdefg< ] }
Sub{ v60  r4  [32 gab>cdefg< ] }
Sub{ v80  r8  [32 gab>cdefg< ] }
     v100     [32 gab>cdefg< ]    ]

//--------------------------------------------------------------------------------------------------
トラック16
V(100) REV(0) CHO(0) P(64) BR(12) p%(0) q11 o3 r1
//==================================================================================================
//Solo(1)//トラックソロ。複数トラックで指定可能
//Mute(1)//トラックミュート。
}