TrackName = {"Yokohama Bay Side 2010"} Copyright = {"騎士王321"} MetaText = {"Y150の非公認テーマソングをセルフリミックスです。"} テンポ 147 拍子 4,4 KeyFlag-(bea); TrackSync; Include(delay.h);Include(groove.h);Include(unison.h); /* 青と白の世界。 その境の水色へ。 それなりに長いので、BGMとしてごゆっくりとお楽しみください */ System.MeasureShift(1);ResetGS;TrackSync; Function Tune444(){Int I;For(I=1; I<=16;I ++){CH(I)FineTune(80) DataLSB($03) RPN(127,127,0)} CH 1} Tune444() 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(125,120,8)"} CuePoint={"TwmChorus(1,127,30,40,1,20)"} //================================================================================================== STR RS08 = {[8 r1]} STR RS16 = {[16 r1]} //-------------------------------------------------------------------------------------------------- STR SI01 = {v64[4 [3 '"aceg':r16][3 '"acdf':r16][3 '"g"bdf':r16][3 '"g"bce':r16]]} STR SI11 = {EP.T(0,127,3072);[4 [3 '"aceg':r16][3 '"acdf':r16][3 '"g"bdf':r16][3 '"g"bce':r16]]} STR SI02 = {[2 [2 [2 [3 '"aceg':r16]][2 [3 '"acdf':r16]][2 [3 '"g"bdf':r16]]:[2 [3 '"g"bce':r16]]][2 [3 '"g"bce+':r16]]]} STR SI12 = {EP.T(127,127,2976,0,0,!4);[4 [3 '"aceg':r16][3 '"acdf':r16][3 '"g"bdf':r16][3 '"g"bce':r16]] EP.T(127,127,2976,0,0,!4);[4 [3 '"aceg':r16][3 '"acdf':r16][3 '"g"bdf':r16][3 '"g"bce':r16]]EP(127)} STR SI22 = {EP.T(127,127,2976,127,0,96,127,127,2688,127,0,384); [2 [2 [2 [3 '"aceg':r16]][2 [3 '"acdf':r16]][2 [3 '"g"bdf':r16]]: [2 [3 '"g"bce':r16]]][2 [3 '"g"bce+':r16]]]EP(127)} STR SI03 = {[2 [2 [3 '"aceg':r16]][2 [3 '"acdf':r16]][2 [3 '"g"bdf':r16]]:[2 [3 '"g"bce':r16]]][2 [3 '"g"bce+':r16]] [2 [2 [3 '"aceg':r16]][2 [3 '"acdf':r16]][2 [3 '"g"bdf':r16]][2 [3 '"g"bce+':r16]]]} トラック1 V(120) REV(16) CHO(24) M(1) q97 P(64) l8 @81,8 EP.T(64,127,!1);BR(1);p%(2010) SI01 SI01 SI01 SI01 SI01 SI01 SI01|SI12 SI02 SI22|RS16|SI11|SI02 SI03 SI03|SI01 SI01 SI01 SI01 //-------------------------------------------------------------------------------------------------- トラック2 V(80) REV(32) CHO(24) M(10) q98 P(8) l8 @81,8 r8^16 EP.T(64,127,!1);BR(1);p%(2110) SI01 SI01 SI01 SI01 SI01 SI01 SI01|SI12 SI02 SI22|RS16|SI11|SI02 SI03 SI03|SI01 SI01 SI01 SI01 //-------------------------------------------------------------------------------------------------- トラック3 V(40) REV(32) CHO(24) M(20) q99 P(120) l8 @81,8 r4^8 EP.T(64,127,!1);BR(1);p%(2210) SI01 SI01 SI01 SI01 SI01 SI01 SI01|SI12 SI02 SI22|RS16|SI11|SI02 SI03 SI03|SI01 SI01 SI01 SI01 //-------------------------------------------------------------------------------------------------- STR BA01 = {MidiDelay({ar16"ar16"a [3 r1] gr16"gr16"g [2 r1] ar16"ar16"a r1^2},3,!2);} STR BA11 = {MidiDelay({ar16"ar16"a [3 r1] gr16"gr16"g [2 r1] ar16"ar16"a r1^2},2,!2);} STR BA02 = {MidiDelay({[2 ar16"ar16"a r1^1^2 gr16"gr16"g r1^2 ar16"ar16"a r1^2 gr16"gr16"g r2]},3,!2);} STR BA12 = {MidiDelay({[2 ar16"ar16"a r1^1^2 gr16"gr16"g r1^2 ar16"ar16"a r1^2 gr16"gr16"g r2]},2,!2);} STR BA22 = {MidiDelay({[2 ar16"ar16"a r1^1^2 gr16"gr16"g r1^2 ar16"ar16"a r1^2 gr16"gr16"g r2]},3,!2);} STR BA32 = {MidiDelay({[2 ar16"ar16"a r1^1^2 gr16"gr16"g r1^2 ar16"ar16"a r1^2 gr16"gr16"g r2]},2,!2);} トラック5 V(105) REV(0) CHO(64) M(0) q68 P(0) o3 @39,8 l8 EP.T(0,127,!1);BR(1);p%(2010) RS08 RS08 RS08 RS08 BA01 BA01 BA01|RS16 BA02 BA22|RS16|RS08|BA02 BA02 BA02|BA01 BA01 RS08 RS08 //-------------------------------------------------------------------------------------------------- トラック6 V(112) REV(0) CHO(64) M(20) q69 P(127) o3 @39,1 l8 EP.T(0,127,!1);BR(1);p%(2222) RS08 RS08 RS08 RS08 BA11 BA11 BA11|RS16 BA12 BA32|RS16|RS08|BA12 BA12 BA12|BA11 BA11 RS08 RS08 //-------------------------------------------------------------------------------------------------- STR PF01 = {EP.T(32,127,3072);[16 er16br16erede]} STR PF11 = {EP.T(32,127,3072);[8 er16br16erede]} STR PF02 = {v120 a+%8,199b1^4^8,99 r-%8 b4^8ag16a16g8^16d8^16d4e4^8e4^8f4^8g4 f+%8,199g1,99 r-%8 g4^8b4^8d4 Sub{e}g%64c%64c+%64d%64e%64e+%64f4^8e16f16g2 a+%8,199'g1^4^16^32,99b1^4^16^32,99'r-%8`d32`e4^8`d4b2^4^8^16 v-10 a+32,298a32,298g1 v+10 g%8,199a8^16 r-%8 g8^16e1^4^8'd4f4''d1f1''e+1g1'} STR PF03 = {Sub{/*EP.T(127,127,!1,127,32,!1^1^1);*/'g%3072b%3072'v100}[16 r1 EP(127)]} STR PF04 = {EP.T(100,127,!4); Sub{l8 v100 t(0)} v120 a+%8,199b1^4^8,99 r-%8 b4^8ag16a16gr16 v-10 d8^16d4 v+10 e4^8e4^8f4^8g4 f+%8,199g1,99 r-%8 g4^8b4^8`e8^24`d24,199`d-24,199`c4^8`e+16,199`f16,199`e+8^16`c8^16g `c4^8`e+16,199`f16,199`g4 v-10 g8^24a24,199a+24,199 v+10 'g1^4^16^32,99b1^4^16^32,99'`d32`e4^8`d4b4^8 v-10 `f12,298`f+12,298`g4^12`f8 v+10 `e+16,199`f16,199`e+16,199`c8^16g4^8g4a+%8br-%8 a16g16 e1^2'd4f4'Sub{r1'"c4^8,149,60"f4^8,149,60'"a1,,60}'d1^2^4f1^2^4' v100 e,,60d,,40} STR PF05 = {a+%8,199b1^4^8,99 r-%8 b4^8ag16a16gr16 v-10 d8^16d4 v+10 e4^8e4^8f4^8g4 f+%8,199g1,99 r-%8 g4^8b4^8`e8^24`d24,199`d-24,199`c4^8`e+16,199`f16,199`e+8^16`c8^16g `c4^8`e+16,199`f16,199`g4 v-10 g8^24a24,199a+24,199 v+10 'g1^4^16^32,99b1^4^16^32,99'`d32,199`e4^8`d8^24`e24,199`d24,199b4^8 v-10 `f12,298`f+12,298`g4^12`f8 v+10 `e+16,199`f16,199`e+16,199`c8^16g4^8g4a+%8b,149r-%8 a16,199g16,199 e1^2'd4f4''"b1d1,,,2f1,,,4''"b2^4e+2^4,,,8g2^4,,,16' e8d8} STR PF06 = {Sub{'"a1^2^4c1^2^4,,,4e1^2^4,,,8''g4b4'Sub{d1}f2^4^8e16,199d16,199e2^4"bd '"g4^8c4^8e4^8'`d16,199`e16,199`d6b6g6 g16,199a16,199g16,199e16,199"b2"g"e"f^^f2e+16,199f16,199 'e+^^g^^'`f+32,,100`g4^16^32,,100gb b+32,,199`c8^32b8^16g `c8^16b8^16g `cb24,199`c24,199b24,199gegf24,199g24,199f24,199e"b,,80 "g"b"b+c e12 v100 f12g12f12e12,,120"b12 f12g12b12,,120g12f12g12 f12,,120e12c12"b+12"b12,,90"g12,,80 v80 "a8^16"g8^16"e16,199,90"b16 v120 g32,199a8^32g8^16e2^8 cef12e12f12 'd2^4^8f2^4^8'e+16,199f16,199'e+2^4^8g2^4^8'g16,199a16,199} [16 r1]} STR PF07 = {EP.T(32,64,!1,64,0,!1^1^1^1^1^1^1);[8 er16br16erede]} トラック8 V(127) REV(48) CHO(72) M(0) q102 P(96) o6 @1 l8 v100 EP.T(0,127,!1);BR(1);p%(2010) RS08 RS08 RS08 RS08 RS08 RS08 RS08|PF01 PF02 PF03|PF04|PF11|PF02 PF05 PF06|PF03 RS08 PF07 //-------------------------------------------------------------------------------------------------- トラック9 V(105) REV(64) CHO(64) M(32) q101 P(64) o6 @2 l8 v100 EP.T(0,127,!1);BR(1);p%(2222) RS08 RS08 RS08 RS08 RS08 RS08 RS08|PF01 PF02 PF03|PF04|PF11|PF02 PF05 PF06|PF03 RS08 PF07 //-------------------------------------------------------------------------------------------------- KeyFlag-(); STR BD00 = {[4 r1]c1r1c1cr4^8^16c16,,100c8c8,,80} STR BD10 = {[3 c1r1]c1cr4^8^16c16,,100c8c8,,80} STR BD20 = {[8 r1][2 c1r1]c1c1c1c1/*r4^8^16c16,,100c8c8,,80*/} STR BD30 = {c1[3 r1]c1r1c1cr4^8^16c16,,100c8c8,,80} STR BD01 = {[8 [4 c]]} STR BD11 = {[7 [4 c]]cccr} STR BD02 = {[16 [4 c]]} STR BD12 = {[8 r1][7 [4 c]]cc8^16c16,,100c8c8,,80r} STR BD22 = {[15 [4 c]]c,,100c,,80c,,60r} トラック10 V(110) REV(8) CHO(80) M(0) q11 P(64) BR(12) p%(-1000) o3 @27,90 v127 EP.T(0,127,!1) RS08 BD00 BD11 BD10 BD01 BD01 BD11|BD12 BD02 BD22|RS16|RS08|BD20 BD02 BD02|BD30 BD01 RS08 RS08 //-------------------------------------------------------------------------------------------------- STR HC00 = {EP.T(64,127,3072);p%.T(-8191,6000,6144);[15 [2 r'e-e']]r'e-e'r2} STR HC10 = {EP.T(32,127,3072);p%.T(-8191,6000,3072);[8 [2 r'e-e']]} STR HC01 = {[8 [2 r'e-e']]} STR HC02 = {[16 [2 r'e-e']]} STR HC12 = {[8 [2 r'e-e']]EP.T(127,0,3072);[8 [2 r'e-e']]EP(127)} トラック11 V(90) REV.W(0,120,!16) CHO(120) M(0) q13 P(64) BR(12) p%(6000) o3 @26,100 v127 EP.T(0,127,!1) RS08 RS08 RS08 RS08 RS08 RS08 RS08|HC00 HC02 HC12|RS16|RS08|HC02 HC02 HC02|RS08 RS08 HC10 RS08 //-------------------------------------------------------------------------------------------------- STR HH00 = {Sub{`c+,,120}[8 r1]} STR HH01 = {Sub{`c+,,120}[8 [4 r8a+,,120g+,,50]]} STR HH11 = {Sub{`c+,,120}[7 [4 r8a+,,120g+,,50]][3 r8a+,,120:g+,,50]g+,,80a+4,,120} STR HH21 = {Sub{}EP.T(0,127,3072)[8 [4 r8a+,,120g+,,50]]} STR HH31 = {Sub{}EP.T(127,0,3072)[8 [4 r8a+,,120g+,,50]]EP(100)} STR HH02 = {Sub{`c+,,120}[7 r1]r2^4[4 f+ v-20]v120} STR HH12 = {Sub{`c+,,120}[15 r1]r2^4[4 f+ v-20]v120} STR HH03 = {Sub{`c+,,120}[8 [4 rf+,,80a+,,120g+,,50]]} STR HH13 = {Sub{}[7 [4 rf+,,80a+,,120g+,,50]][3 rf+,,80a+,,120:g+,,50]g+,,80a+4,,120} STR HH23 = {Sub{}[8 [4 rf+,,80a+,,120g+,,50]]} STR HH04 = {Sub{`c+,,120}[16 [4 rf+,,80a+,,120g+,,50]]} STR HH14 = {Sub{`c+1,,120[7 r1]}[7 r1]r2^4 v100[4 f+ v-10]v120 Sub{`c+,,120}[7 [4 rf+,,80a+,,120g+,,50]][2 rf+,,80a+,,120:g+,,50]g+,,80a+4,,120 r4} STR HH24 = {[7 [4 rf+,,80a+,,120g+,,50]][3 rf+,,80a+,,120g+,,50]rf+,,80a+24,,120g+24,,120f+24,,100 [7 [4 r8a+,,120g+,,50]][3 r8:a+,,120g+,,50]a+24,,120g+24,,100g+24,,100a+4,,60} STR HH34 = {Sub{`c+,,120}[16 [4 r8a+,,120g+,,50]]} トラック12 V(120) REV(8) CHO(8) M(0) q15 P(64) BR(12) p%(3000) o3 l16 @26 v127 EP.T(0,127,!1) RS08 HH01 HH11 HH02 HH03 HH23 HH13|HH14 HH04 HH24|RS16|HH21|HH12 HH04 HH34|HH00 HH01 HH31 HH00　EP(0) a1a1a1 //================================================================================================== //Solo(1)//トラックソロ。複数トラックで指定可能 //Mute(1)//トラックミュート。