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)//トラックミュート。
}