TrackName = {"あけおめ"} Copyright = {"騎士王321"} MetaText = {""} テンポ 144 拍子 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 RS16 = {r%6144} //-------------------------------------------------------------------------------------------------- STR GT01 = {"c&"fc4^8"b32c32"b8^16"f"f"g"c2""b4"c"f"c2^8""b""b"c"c2^8r "c"f&c2r-64g64a2g4c4`c4b4^8a1^8g2 agfc"b"f,,100c"f,,100 e"b,,100f"b,,100a"b,,100b"b,,100 b4`ca4^8&`f4`c4b4a4g4 g4af4^8c4"b4"a4"g4"a"f1^8} STR GT91 = {v100[4 r1r'"gc'r'"f"b''"f"b'16'"gc'16r16'"gc'16r4r1^1]v127} STR GT92 = {v100[2 r1r'"gc'r'"f"b''"f"b'16'"gc'16r16'"gc'16r4r1^1]v127 l8 '""c"c',799d+64er-64rcr"brc^cecr"brc^ ceff64f+r-64f64f+r-64rf+f+16g16ff+ece"bc^ ercr"brc^cecr"brc^ r"b+64cr-64"b"g"b"f"g l12 r"f"g"b"g"bc"bcece c1 l8 r-1} STR GT93 = {EP.T(0,127,6144);v100 [8 rd+64er-64rcr"brc^e^cr"brc]l8 v127} STR GT94 = {[2 rd+64er-64rcr"brc^cecr"brc^ ceff64f+r-64f64f+r-64rf+f+16g16f+fece"bc^ ercr"brc^cecr"brc^ r"b+64cr-64"b"g"b"f"g l12 r"f"g"b"g"bc"bc l8 ec]} トラック1 V(105) REV(40) CHO(0) M(8) q108 P(54) o6 l8 @26/*@86*/ v127 r1 RS16 RS16 RS16 GT93 GT92 RS16 GT94 GT94 GT91 //-------------------------------------------------------------------------------------------------- トラック2 V(125) REV(40) CHO(8) M(16) q108 P(74) o6 l8 @107/*@82,90,1*/ v127 r1 RS16 RS16 RS16 GT93 GT92 RS16 GT94 GT94 GT91 //-------------------------------------------------------------------------------------------------- STR XS00 = {Sub{[32 [4 V.T(32,80,!4);r4]]}EP.T(0,90,11904,0,0,384);CHO.T(0,0,6144,80,127,3072); Sub{[24 r]f^^^^^^}Sub{[28 r]g^b}'"c"g"bd+'%11904 REV.T(64,127,!2);CHO(0);EP.T(80,127,!1);'"c"ge+g`c'} STR XS01 = {Sub{[16 [4 V.T(32,80,!4);r4]]}REV(32);CHO(24);EP(90); '"c"ge+g`c'%6144} STR XS02 = {Sub{[16 [4 V.T(32,80,!4);r4]]}REV(32);CHO(24);EP(90); [2 '"c"ge+g`c'^'"e"begb'^'"c"f"a+a+`c'^'"c"ge+g`c''"d+"g"b+fg']} STR XS03 = {Sub{[16 [4 V.T(32,80,!4);r4]]}REV(32);CHO(24);EP.T(90,0,6144); [2 '"c"ge+g`c'^'"e"begb'^'"c"f"a+a+`c'^'"c"ge+g`c''"d+"g"b+fg']} トラック3 V(80) REV(32) CHO(24) M(0) q100 P(0) o5 p%(128) l1 v127 @82 r1 XS00 KEEP XS01 XS01 XS02 XS02 XS02 XS02 XS02 XS03 //-------------------------------------------------------------------------------------------------- トラック4 V(80) REV(32) CHO(24) M(0) q100 P(127) o5 p%(-256) l1 v127 @82 r1 XS00 KEEP XS01 XS01 XS02 XS02 XS02 XS02 XS02 XS03 //-------------------------------------------------------------------------------------------------- STR CY00 = {CHO.T(127,0,6144);EP.T(0,127,6144); MidiDelay({[16 [2 `e"e,9b`d+"e,9beg+]]},2,!4^8);} STR CY01 = {MidiDelay({[16 [2 `e"e,9b`d+"e,9beg+]]},2,!4^8);} STR CY11 = {MidiDelay({[16 [2 `a"a,9`e`g"a,9a`c`g]]},2,!4^8);} STR CT01 = {V(64);REV(24);CHO(1);EP(127);o5[16 [8 '"be+g',8,90]'ce+g''"be+g',18,80'"be+g',18,80 '"be+f''"be+g',18,80'"be+g',18,80'ce+g''"be+g',18,80]} STR CT02 = {EP.T(127,0,6144); V(64);REV(24);CHO(1);o5[16 [8 '"be+g',8,90]'ce+g''"be+g',18,80'"be+g',18,80 '"be+f''"be+g',18,80'"be+g',18,80'ce+g''"be+g',18,80]} トラック5 V(64) REV(80) CHO(0) M(0) q39 P(16) o6 l16 v127 p%(256) @31,8/*@82,110,4*/ r1 RS16 RS16 CT01 CT02 RS16 CT01 CT01 CT01 CT01 CT02 //-------------------------------------------------------------------------------------------------- トラック6 V(40) REV(96) CHO(0) M(0) q29 P(112) o6 l16 v127 p%(-128) @28/*@82,110,5 r8^16*/r1 RS16 RS16 CT01 CT02 RS16 CT01 CT01 CT01 CT01 CT02 //-------------------------------------------------------------------------------------------------- STR BO01 = {Sub{[16 [4 V.T(32,127,!4);r4]]} [4 'c`c'1^2^4'"bb'4'c`c'1^2^4'e`e'4]} STR BO11 = {Sub{[16 [4 V.T(32,127,!4);r4]]} 'd`d''e`e''f`f''c`e+' 'd`d''e`e''f`f''e`e' 'd`d''e`e''e+`e+''f`f' 'd`d''e`e''f`f''e`e'} STR BO91 = {Sub{[16 [4 V.T(32,127,!4);r4]]} [2 'c`c'^'e`e'^'f`f'^'c`c''"gg']} トラック7 V(110) REV(1) CHO(40) M(20) q100 P(64) o2 l1 @82,0,0 p%(256) v127 r1 RS16 RS16 BO01 BO01 BO91 BO91 BO91 BO91 BO91 BO91 BO91 r-1 EP(0) //-------------------------------------------------------------------------------------------------- STR BA01 = {MidiDelay({[4 [4 "cc`cc:"c`c"c,39`c]""bb""b,39b[4 "cc`cc:"c`c"c,39`c]"e`e"e,39`e]},2,!8);} STR BA02 = {EP.T(0,127,6144); MidiDelay({[4 [4 "cc`cc:"c`c"c,39`c]""bb""b,39b[4 "cc`cc:"c`c"c,39`c]"e`e"e,39`e]},2,!8);} STR BA03 = {MidiDelay({[3 [4 "cc`cc:"c`c"c,39`c]""bb""b,39b[4 "cc`cc:"c`c"c,39`c]"e`e"e,39`e] [4 "cc`cc:"c`c"c,39`c]""bb""b,39b[2 "cc`cc"c`c"c,39`c]r1},2,!8);} STR BA11 = {MidiDelay({[2 "dd`dd"d`d"d,39`d][2 "ee`ee"e`e"e,39`e][2 "ff`ff"f`f"f,39`f] "e+e+`e+e+"e+`e+"e+,39`e+"aa`aac`c""c,39`c [2 "dd`dd"d`d"d,39`d][2 "ee`ee"e`e"e,39`e][2 "ff`ff"f`f"f,39`f][2 "ee`ee"e`e"e,39`e] [2 "dd`dd"d`d"d,39`d][2 "ee`ee"e`e"e,39`e][2 "e+e+`e+e+"e+`e+"e+,39`e+][2 "ff`ff"f`f"f,39`f] [2 "dd`dd"d`d"d,39`d][2 "ee`ee"e`e"e,39`e][2 "ff`ff"f`f"f,39`f][2 "ee`ee"e`e"e,39`e]},2,!8);} STR BA91 = {Sub{EP.T(127,127,3072,127,0,384,0,127,3072-384);} MidiDelay({[3 [4 "cc`cc:"c`c"c,39`c]""bb""b,39b[4 "cc`cc:"c`c"c,39`c]"e`e"e,39`e] [4 "cc`cc:"c`c"c,39`c]""bb""b,39b[2 "cc`cc"c`c"c,39`c]r1},2,!8);} STR BA92 = {Sub{EP.T(127,0,384,0,127,6144-384);} MidiDelay({[3 [4 "cc`cc:"c`c"c,39`c]""bb""b,39b[4 "cc`cc:"c`c"c,39`c]"e`e"e,39`e] [4 "cc`cc:"c`c"c,39`c]""bb""b,39b[2 "cc`cc"c`c"c,39`c]r1},2,!8);} STR BA55 = {MidiDelay({[2 [4 "cc`cc:"c`c"c,39`c]""bb""b,39b[4 "ee`ee"e`e"e,39`e] [4 "ff`ff:"f`f"f,39`f]"f+`f+"f+,39`f+ [2 "cc`cc:"c`c"c,39`c]""bb""b,39b [2 "gg`gg"g`g"g,39`g]]},2,!8);} トラック8 V(110) REV(40) CHO(8) M(0) q89 P(64) o3 l16 p%(-256) @40,90,0 v127 r1 BA01 BA91 BA01 BA03 RS16 BA55 BA55 BA55 BA55 BA55 BA55 r-1EP(0);r1 EP(127);"c1^1 //-------------------------------------------------------------------------------------------------- トラック9 V(80) REV(0) CHO(32) M(0) q79 P(64) o3 l16 p%(512) @8,0,0 v127 r1 BA02 BA03 BA01 BA03 RS16 BA55 BA55 BA55 BA55 BA55 BA55 r-1EP(0);r1 EP(127);"c1^1 //-------------------------------------------------------------------------------------------------- Key(0);KeyFlag-(); STR BD01 = {[16 [4 '"a-"b']]} STR BD90 = {[16 [4 '"b']]} STR BD91 = {Sub{r%3072 p%.T(3072,8064,!1^1^1^1^1^1,8064,-1000,!1^1);} [8 [4 '"b']][7 [4 '"a-"b']]r1} トラック10 V(127) REV(0) CHO(8) P(64) BR(12) p%(-1000) @27,7 q11 o3 v127 r1 BD90 BD91 BD01 BD91 RS16 RS16 BD01 BD91 RS16 BD01 BD01 r-1EP(0) //-------------------------------------------------------------------------------------------------- STR HH01 = {[16 [4 f+,,64g+,,80f+g+,,80]]} トラック11 V(100) REV(40) CHO(80) P(60) BR(12) p%(0) q12 @1,7 o3 l16 v127 r1 HH01 HH01 HH01 HH01 RS16 HH01 HH01 HH01 HH01 HH01 HH01 //-------------------------------------------------------------------------------------------------- STR BB01 = {Sub{p%.T(0,4000,!1^1,4000,-4000,!1^1,-4000,8000,!1^1^1^1);} [8 [4 ``a+,,80``a+``a+,,100``a+,,80]] [7 r1] Sub{p%.T(-4000,0,!4,0,-8000,!4,-8000,8000,!2^4);[3 P.T(64,0,!8,0,127,!4,127,64,!8);r2]} MidiDelay({"b8"b8d8"b"b,,80"bd"b"b,,80d4},2,!8);} STR BB02 = {Sub{[2 p%.T(0,4000,!1^1,4000,-4000,!1^1^1^1,-4000,0,!1^1);r%3072]} [16 [4 ``a+,,80``a+``a+,,100``a+,,80]]} STR BB03 = {Sub{p%.T(0,4000,!1^1,4000,-4000,!1^1,-4000,8000,!1^1^1^1);} [8 [4 ``a+,,80``a+``a+,,100``a+,,80]] [7 r1]V(80);REV(40);CHO(127);p%.T(0,-8000,!1); [4 `d][4 `c][4 b][4 f]V(127);REV(8);CHO(48);} トラック12 V(127) REV(8) CHO(48) P(64) BR(12) p%(0) @27,7 q13 l16 v127 o3 r1 BB02 BB01 BB02 BB03 RS16 BB01 BB02 BB02 BB02 BB02 BB01 //-------------------------------------------------------------------------------------------------- STR CC01 = {Sub{'`c+`a'}[16 r1]} STR CC02 = {Sub{r%3072v0[7 [16 d16 v+1]]}v127 Sub{'`c+`a'}[14 r1][2 '`c+`a'2][2 '`c+`a']r2} トラック13 V(100) REV(100) CHO(120) P(64) BR(12) p%(0) @27,90 v127 q14 o3 r1 RS16 RS16 CC01 RS16 CC01 CC02 CC01 RS16 CC01 RS16 RS16 CC01 //-------------------------------------------------------------------------------------------------- STR SP00 = {EP.T(127,0,6144); [16 [2 V.T(0,0,!4,90,90,!8^16,0,0,!16);r p%.T(0,-2000,!16,-2000,5000,!16);'"cc']]} STR SP01 = {EP(127);[16 [2 V.T(0,0,!4,90,90,!8^16,0,0,!16);r p%.T(0,-2000,!16,-2000,5000,!16);'"cc']]} トラック14 V(32) REV(24) CHO(80) P(64) BR(12) p%(0) q82 @128,3 v127 o9 r1 RS16 RS16 SP01 SP00 RS16 RS16 SP01 SP01 SP01 SP01 SP00 //-------------------------------------------------------------------------------------------------- STR RC01 = {@126,7[14 r1 EP(32);]EP.T(0,32,!1,32,127,!1,0,0,!1);'"gceg'1^1} STR AP01 = {@127[8 r1 EP(32);]EP.T(0,64,!1^1^1^1^1^1,64,127,!1^1);p%.T(-8191,0,3072);'""""g'%3072} トラック15 V(127) REV(120) CHO(120) P(64) BR(12) p%(0) q101 v127 @126,7 o10 r1 RS16 RC01 RS16 RC01 RS16 AP01 RS16 RC01 AP01 RS16 RS16 //-------------------------------------------------------------------------------------------------- STR WN01 = {r-2 EP.T(0,0,!2,127,0,6144);p%.T(0,8191,!2,8191,-8191,6144);'g'%6144+192r2} トラック16 V(100) REV(100) CHO(64) P(64) BR(12) p%(0) @123,1 v127 q99 o5 r1 r-128 WN01 RS16 RS16 RS16 WN01 RS16 WN01 RS16 WN01 RS16 RS16 //================================================================================================== //Solo(1,2)//トラックソロ。複数トラックで指定可能 //Mute(1,2)//トラックミュート。