TrackName     = {"Chorale"}
Copyright     = {"騎士王321"}
MetaText      = {"128の音色で真っ向勝負(と思いきやそうでもない)"}
テンポ 135
拍子   4,4
KeyFlag+(fcg);
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 KEEP = {}
STR RS08 = {r%3072}
//--------------------------------------------------------------------------------------------------
STR CY01 = {MidiDelay({[8 [2 age"b"arrr]]},1,!4^8);}
STR CY11 = {EP.T(0,127,3072);MidiDelay({[8 [2 age"b"arrr]]},1,!4^8);}
STR CY12 = {EP.T(64,127,3072);MidiDelay({[8 [2 age"b"arrr]]},1,!4^8);}
STR CY21 = {EP.T(127,64,3072-768,64,0,768);MidiDelay({[8 [2 age"b"arrr]]},1,!4^8);}
トラック1
V(64) REV(64) CHO(64) M(0) q49 P(8) o6 l16 @97,0,0 p%(128) v127 r1
RS08 RS08 CY11 CY21 RS08 RS08 CY12 CY21 RS08 RS08 CY12 CY01 RS08 RS08 RS08 RS08 RS08 RS08 CY11 RS08
//--------------------------------------------------------------------------------------------------
トラック2
V(64) REV(64) CHO(64) M(0) q39 P(120) o6 l16 @97,0,0 p%(0) v127 r1^8^16
RS08 RS08 CY11 CY21 RS08 RS08 CY12 CY21 RS08 RS08 CY12 CY01 RS08 RS08 RS08 RS08 RS08 RS08 CY11 RS08
//--------------------------------------------------------------------------------------------------
STR BS01 = {EP(127);[2 'f`f''d`d''a`a''e`e']}
STR BS02 = {EP.T(16,127,3072);[2 'f`f''d`d''a`a''e`e']}
STR BS11 = {[4 'f`f''a`a'2:'e`e'2]'b`b'2}
STR BS12 = {EP.T(127,0,3072);[4 'f`f''a`a'2:'e`e'2]'b`b'2}
STR BS13 = {[4 'f`f''a`a'2'e`e'2]'f`f'4}
STR BS41 = {EP(127);[2 'f`f''d`d''a`a':'e`e']'c-`c-'}
STR BS51 = {[8 '"bb']}
STR BS61 = {[2 'c`c''a`a''e`e''"bb']}
STR BS62 = {[2 'c`c''a`a''e`e':'"bb']p%.T(8191,-8191,!2);'"bb'2r4 p%(512);r4}
トラック3
V.WR(40,127,!4) REV(1) CHO(100) M(0) q100 P(64) o2 l1 @88,0,0 p%(512) v127 r1
BS11 BS11 BS11 BS12 BS02 BS01 BS01 BS01 BS01 BS41 BS51 BS51 BS61 BS62 BS01 BS01 BS01 BS01 BS13 KEEP
//--------------------------------------------------------------------------------------------------
STR BA01 = {[2 [2 f^"f,29`ff,29`f"f,29`f][2 d^"d,29`dd,29`d"d,29`d][2 a^"a,29aa,29a"a,29a][2 e^"e,29`ee,29`e"e,29`e]]}
STR BA11 = {[4 [2 f^"f,29`ff,29`f"f,29`f]a^"a,29aa,29a"a,29a:e^"e,29`ee,29`e"e,29`e]b^"b,29`b[8 `b32 v-10]v127}
STR BA13 = {[4 [2 f^"f,29`ff,29`f"f,29`f]a^"a,29aa,29a"a,29ae^"e,29`ee,29`e"e,29`e]f&"f}
STR BA41 = {[2 [2 f^"f,29`ff,29`f"f,29`f][2 d^"d,29`dd,29`d"d,29`d][2 a^"a,29aa,29a"a,29a]:[2 e^"e,29`ee,29`e"e,29`e]]
               [2 c-^"c-,29`c-c-,29`c-"c-,29`c-]}
STR BA51 = {[4 [3 "b^"b,29bb,29b"b,29b]"b^"b,29b:"b^"b,29`b]"b4}
STR BA52 = {[4 [3 "b^"b,29bb,29b"b,29b]:"b^"b,29b"b^"b,29`b][8 `b v-10]v127}
STR BA61 = {Key(-5);
            [2 [2 f^"f,29`ff,29`f"f,29`f][2 d^"d,29`dd,29`d"d,29`d][2 a^"a,29aa,29a"a,29a][2 e^"e,29`ee,29`e"e,29`e]]Key(0);}
STR BA62 = {Key(-5);
            [2 [2 f^"f,29`ff,29`f"f,29`f][2 d^"d,29`dd,29`d"d,29`d][2 a^"a,29aa,29a"a,29a]:[2 e^"e,29`ee,29`e"e,29`e]]
            [2 e^"e,29`ee,29`e:"e,29`e]V(125);``e&```e Key(0);V(105);p%(-128);}
トラック4
V(105) REV(16) CHO(80) M(0) q79 P(64) o3 l16 @81,1,0 p%(-128) v127 r1
BA11 BA11 BA11 RS08 RS08 RS08 BA01 BA01 BA01 BA41 BA51 BA52 BA61 BA62 BA01 BA01 BA01 BA01 BA13 KEEP
//--------------------------------------------------------------------------------------------------
STR TS01 = {[2 MidiDelay({'a`e'},16,!16);[15 r][3 r1]]}
トラック5
V(115) REV(100) CHO(0) M(0) q81 P.N(32,96) o5 l16 @8,0,0 p%(128) v127 r1
TS01 RS08 RS08 TS01 RS08 RS08 RS08 TS01 RS08 RS08 TS01 RS08 RS08 RS08 TS01 RS08 TS01 RS08 TS01 RS08
//--------------------------------------------------------------------------------------------------
STR ME01 = {a1^4^8b^^e^`e1`d^^`c^^^^ a1^1^1g1}
STR ME02 = {a1^4^8b^^g^`e1^4^8b^^`c^ a1^4^8a^^`c^`c1b1}
STR ME03 = {EP.T(16,127,3072);a1^4^8b^^e^`e1`d^^`c^^^^ a1^1^1g1}
STR ME06 = {EP.T(32,127,6144);[16 [2 br16`cr16f]]}
STR ME09 = {EP.T(127,0,!1);a1^1[6 r1 EP(127)]}
STR ME11 = {a1^4^8b^^e^`e1`d^^`c^^^^ a1^1b1^1}
STR ME12 = {a1^4^8b^^g^`e1^4^8b^^`c^ a1^4^8a^^`c^`c1^4^8e^^^^}
STR ME13 = {EP.T(16,127,3072);a1^4^8b^^e^`e1`d^^`c^^^^ a1^1b1^1}
STR ME16 = {EP.T(32,127,6144);[16 [2 br16`cr16f]]}
STR ME19 = {EP.T(127,0,!1);a1^1[6 r1 EP(127)]}
STR ME21 = {a1^4^8b^^e^`e1`d^^`c^^^^ a1^1b1^1}
STR ME22 = {a1^4^8b^^e^`e1^4^8b^^`c^ a1^4^8a^^`c^`c1^4^8e^^^^}
STR ME23 = {EP.T(16,127,3072);a1a^^b^^e^`e1`d^^`c^^^^ a1^1b1^1}
STR ME26 = {EP.T(0,127,6144-1536);[16 br16`cr16:f]`f[2 [8 br16`cr16:f]`f]}
STR ME29 = {EP.T(127,0,!1);a1^1[6 r1 EP(127)]}
トラック6
V(120) REV(88) CHO(1) M(8) q105 P(48) o5 l8 @54,0,0 p%(256) v127 r1
RS08 RS08 RS08 RS08 ME03 ME01 ME09 RS08 ME01 ME01 ME09 RS08 RS08 RS08 ME01 ME01 ME01 ME01 ME09 RS08
//--------------------------------------------------------------------------------------------------
トラック7
V(90) REV(72) CHO(80) M(32) q103 P(80) o5 l8 @87,0,0 p%(0) v127 r1
RS08 RS08 RS08 RS08 ME13 ME11 ME19 RS08 ME11 ME11 ME19 RS08 RS08 RS08 ME11 ME11 ME11 ME11 ME19 RS08
//--------------------------------------------------------------------------------------------------
トラック8
V(90) REV(48) CHO(40) M(16) q101 P(24) o6 l8 @49,0,0 p%(128) v125 r1
RS08 RS08 RS08 RS08 RS08 RS08 RS08 RS08 ME21 ME21 ME29 RS08 ME26 KEEP ME21 ME21 ME22 ME22 ME29 RS08
//--------------------------------------------------------------------------------------------------
トラック9
V(90) REV(48) CHO(40) M(24) q101 P(100) o6 l8 @49,0,0 p%(-128) v125 r1
RS08 RS08 RS08 RS08 RS08 RS08 RS08 RS08 ME21 ME21 ME29 RS08 ME26 KEEP ME21 ME21 ME22 ME22 ME29 RS08
//--------------------------------------------------------------------------------------------------
STR CO01 = {[2 '"ff,,80a`c,,100`e''"dfa,,100`c,,80`e''""ae,,100a,,80`c`e''"ee,,80gb,,100`e']}
STR CO02 = {EP.T(0,127,3072);[2 '"ff,,80a`c,,100`e''"dfa,,100`c,,80`e''""ae,,100a,,80`c`e''"ee,,80gb,,100`e']}
STR CO11 = {[2 '"ff,,80`c,,100`f''""ae,,100a,,80`a'2'"ee,,80b,,100`e'2
               '"ff,,80`c,,100`f''""ae,,100a,,80`a'2:'"e"b,,80e`b,,100'2]'""bf,,100b,,80`d+'2}
STR CO12 = {EP.T(127,0,3072);
            [2 '"ff,,80`c,,100`f''""ae,,100a,,80`a'2'"ee,,80b,,100`e'2
               '"ff,,80`c,,100`f''""ae,,100a,,80`a'2:'"e"b,,80e`b,,100'2]'""bf,,100b,,80`d+'2}
STR CO41 = {[2 '"ff,,80a`c,,100`e''"dfa,,100`c,,80`e''""ae,,100a,,80`c`e':'"ee,,80gb,,100`e']'"c-e,,100g`c-,,80`e'}
STR CO51 = {[8 '""bf,,100a`c`e']}
STR CO61 = {KeyFlag+(fcgd);
		[2 '"cegb`e''""acg,,100b,,80`e''"ee,,80gb,,100`e''""bdg,,80b,,100`f']
            KeyFlag+(fcg);}
STR CO62 = {}
トラック14
V.WR(24,80,!4) REV(40) CHO(40) q99 P(0) o4 l1 @82,0,0 p%(256) v120 r1
RS08 CO11 CO11 CO12 RS08 CO02 CO01 CO01 CO01 CO41 CO51 CO51 CO61 CO61 CO01 CO01 CO01 CO01 RS08 RS08
//--------------------------------------------------------------------------------------------------
トラック15
V.WR(24,80,!4) REV(40) CHO(40) q99 P(127) o4 l1 @82,0,0 p%(-256) v120 r1
RS08 CO11 CO11 CO12 RS08 CO02 CO01 CO01 CO01 CO41 CO51 CO51 CO61 CO61 CO01 CO01 CO01 CO01 RS08 RS08
//--------------------------------------------------------------------------------------------------
Key(0);KeyFlag+();
STR DR01 = {Sub{[8 [4 '"g+c'4]]}
            Sub{[8 [4 r8```a+8]]}
		[8 [4 f+f+,,80f+,,64f+,,80]]}
STR DR11 = {Sub{'"g+c'}
            [8 r1]}
STR DR41 = {Sub{[6 [4 '"g+c'4]][8 '"g+c'8][16 '"g+c'16]}
            Sub{[8 [4 r8```a+8]]}
		[8 [4 f+f+,,80f+,,64f+,,80]]}
STR DR51 = {Sub{[8 '"g+c'rr'"g+c'rr'"g+c'r:rr'"g+c'rrrrr]r2}
            Sub{[8 [4 r8```a+8]]}
		[8 r1]}
トラック10
V(100) REV(24) CHO(16) q11 P(64) o3 l16 @26,0,0/*@26,100,0*/BR(12) p%(-3000) v127 r1
DR01 DR01 DR01 DR11 RS08 RS08 DR01 DR01 DR01 DR41 DR51 DR51 DR01 DR41 DR01 DR01 DR01 DR01 DR01 RS08
//--------------------------------------------------------------------------------------------------
STR BD01 = {[8 [4 '"g+c'4]]}
STR BD11 = {EP.T(0,127,3072);[8 [4 '"g+c'4]]}
STR BD21 = {v0[8 [16 '"g+c' v+1]]v127}
STR BD41 = {[6 [4 '"g+c'4]][8 '"g+c'8][16 '"g+c'16]}
STR BD51 = {EP.T(0,127,6144);[16 '"g+c'rr'"g+c'rr'"g+c'r:'"g+c'r'"g+c'rrr'"g+c''"g+c',,100]r2}
トラック11
V(127) REV(1) CHO(100) q13 P(64) o3 l16 @1,0,0 BR(12) p%(-6000) v127 r1
BD11 BD01 BD01 RS08 RS08 BD11 BD01 BD01 BD01 BD41 BD51 KEEP BD01 BD21 BD01 BD01 BD01 BD01 BD01 RS08
//--------------------------------------------------------------------------------------------------
STR CC01 = {'`c+`a'8r2^4^8[7 r1]}
STR CC11 = {r-8[3 '"d+'24,,64]'`c+`a'4,,64'`c+`a'4r2[7 r1]}
STR CC21 = {'`c+`a'8,,64r2^4^8[7 r1]}
トラック12
V(120) REV(125) CHO(0) q15 P(64) o3 l8 @25,0,0 BR(12) p%(2000) v120 r1
CC01 CC11 CC01 CC21 RS08 RS08 CC01 CC11 RS08 RS08 CC21 RS08 CC01 RS08 CC01 RS08 CC11 RS08 CC01 CC01
//--------------------------------------------------------------------------------------------------
STR SD01 = {[6 r1 REV(32);p%(6000);]v0[24 'cd'v+5]v127 'cd'[3 'cd'48,,80]'cd''cd'r'cd'r'cd',,80}
STR SD51 = {REV(72);[8 rrrr p%(1500);'"ed+'rrrrrrr p%(3000);'"ed+'rrr]}
トラック13
V(100) REV(32) CHO(120) q17 P(64) o3 l16 @17,0,0 BR(12) p%(6000) v127 r1
SD01 RS08 SD01 RS08 RS08 RS08 SD01 RS08 RS08 RS08 SD51 SD51 RS08 SD01 RS08 RS08 RS08 RS08 SD01 RS08
//--------------------------------------------------------------------------------------------------
STR AP01 = {REV(100);V(80);P(64);EP.T(0,32,!1^1^1^1^1^1,32,127,!1^1);p%.T(-8191,0,!1^1^1^1^1^1,0,8191,!1^1);
            '"aa'%3072}
STR AP61 = {r-1 @82,0,0 r1 EP.T(64,127,3072);p%.T(-8191,0,3072-768,0,8191,768);'`c+``c+'%3072 r1 @127,0,0 r-1}
STR AP91 = {Sub{[8 [2 V.T(64,64,!8,100,100,!8,64,64,!8,100,100,!8);P.T(0,127,!4,127,0,!4);r2]]}
            REV(32);EP.T(127,0,3072);p%.T(8191,0,3072);'"aa'%3072,99}
STR AP92 = {Sub{[8 [2 V.T(64,64,!8,100,100,!8,64,64,!8,100,100,!8);P.T(0,127,!4,127,0,!4);r2]]}
            REV(32);EP.T(127,0,1536);p%.T(8191,0,1536);'"aa'%3072,99}
トラック16
V(80) REV(100) CHO(16) q100 P(64) o5 l8 @127,0,0 BR(12) p%(0) v127 r1
AP91 AP01 RS08 AP91 RS08 RS08 AP01 RS08 RS08 RS08 RS08 AP01 RS08 AP61 RS08 RS08 RS08 AP01 RS08 AP92
//==================================================================================================
//Solo(1,2)//トラックソロ。複数トラックで指定可能
//Mute(1)//トラックミュート。