TrackName = {"躍動する絵画"}; Copyright = {"S.Zayo"}; /* 絵が踊りだす、そんな感じ。 */ Int Repeat = 2; // 繰り返し回数を設定できます //-----------------------------variables--------------------------------- Int In = 3;//イントロからメロディースタートまでの時間 Int Ltime = 27;//1ループの時間 Int Out = Ltime*Repeat+In+1;//フェードアウト開始時間 Int Fade = 4;//フェードアウトにかかる時間 Int Tmp = 130;//テンポ Int Sig = 4; Int Ptime = (In+Ltime*Repeat+Fade)*Sig*60/Tmp; //---------------------------functions--------------------------------- Function Repstr(Str MML,Int Tim,Int Rep,Int Beg=0)//MML繰り返し処理関数 { Int I; For(I=0;I1){I = I+{^1}; Mes--;} Str CMD = {V.onTime(Prev,0,LEN)}; CMD.s({LEN},I); CMD; } Function FadeoutAll(Int Mes,Array X) { Int T = Time; For(Int J=1;J<=16;J++){ TR(J); CH(J); Time(T); FadeoutVol(Mes,X(J-1)); } } //------------------------------system setting--------------------------------- TimeBase(96);System.MeasureShift(1);Include(guitar.h); Time(0:1:0) Tempo(Tmp);TimeSignature(Sig,4);TrackSync;PrintPlayTime(Ptime); //-------------------------------string definitions--------------------------------- Str TrpIn = {}; Str Trp = {[r1] [8 l24 r8 c^rd^^e^f^^^f^rrrrrrr r1][4r1]l16 d^^"b-^^f^ e^^^rrrr e^^c^^g^ f+^^^rrrr b-8r8a8r8d8e8f8g8 f2^4^8f16&g16 e8}; Str TrpOut = {[r1] l24 r8 c^rd^^e^f^^^f^rrrrrrr r1}; Str Trb = {[6r1]l24 r8 "a^r"b-^^c^d^^^d^rrrrrrr r1 l24 r8 "a^r"b-^^"b^c^^^c^rrrrrrr r1 [l24 r8 "a^r"b-^^"b^c^^^c^rrrrrrr r1]l24 r8 "a^r"b-^^c^d^^^d^rrrrrrr r1 l24 r8 "a^r"b-^^"b^c^^^c^rrrrrrr r1 [4r1]l16 "b-^^"g^^d^ c^^^rrrr c^^"a^^e-^ d^^^rrrr g8r8f8r8"b8c8d8e8 d2^4^8d16&e16 c8}; Str Obe = {[18r1] Slur(0,!32) l16 d^^f^^f^ f^^f^^f^ g^^g32&f32^^c+^ f^^^rrrr c^^a^^a^ a^^a^^a^ b-^^b-32&a32^^g^ a^^^rrrr}; Str BasIn = {r1 l8 fa`cfdafdgab-b`cceg}; Str Bas = {l8 [3fa`cfdafdgab-b`cceg]ab`c`c+`ddfdgab-b`cceg fa`cfdafdcc"b-"b-"a"a"gc[fa`cfdafdgab-b`cceg]ab`c`c+`ddfdgab-b`cceg Slur(0,-!24) fa`cfdafdfab-`d`f`e12&`f24`cf l1 ["b-]"a l2 d l8 def+d gab-b`ccegab`c`c+`ddf+d12&f+24 gab-`cbb-12&b24`dg cefg`cgec crrrrrrr}; Str BasOut = {l8 [fa`cfdafdgab-b`cceg]}; Str OrgIn = {r1 EP.onTime(110,70,!1)'"f1c1' EP(110) ['"g4d4'] EP(127)'c16e16'r8 EP(120)'"b-8^16d8^16' EP(115)'"a16c+16'r16}; Str Org = {[3 EP.onTime(110,70,!1)'"f1c1' EP(110) ['"g4d4'] EP(127)'c16e16'r8 EP(120)'"b-8^16d8^16': EP(115)'"a16c+16'r16]EP(115)'"a16c16'r16 EP.onTime(110,70,!1)'"d1"a1' EP(110) ['"g4d4'] EP(127)'c16e16'r8 EP(120)'"b-8^16d8^16' EP(115)'"a16c+16'r16 EP.onTime(110,70,!1)'"f1c1' EP(127) ['c4e4'] 'c16e16'r8 'c8^16e8^16' 'c16e16'r16 [EP.onTime(110,70,!1)'"f1c1' EP(110) ['"g4d4'] EP(127)'c16e16'r8 EP(120)'"b-8^16d8^16' : EP(115)'"a16c+16'r16]EP(115)'"a16c16'r16 EP.onTime(110,70,!1)'"d1"a1' EP(110) ['"g4d4'] EP(127)'c16e16'r8 EP(120)'"b-8^16d8^16' EP(115)'"a16c+16'r16 EP.onTime(110,70,!1)'"f1c1' EP(110) ['"f4e-4'] EP(127)'"f16e-16'r8 EP(120)'"a8^16d8^16' EP(115)'c16e-16'r16 EP.onTime(127,100,!1) '"b-1d1''"b-1c+1''"a1e1''d1f+1' EP(110)['"f4"b-4'] EP(120)'c16e16'r8 'c8^16e8^16' 'c16e16'r16 EP(110)['"a4c4'] EP(120)'d16f+16'r8 'd8^16f+8^16' 'd16f+16'r16 EP(110)['"b-4g4'] EP(120)'"b16f16'r8 '"b8^16f8^16' '"b16f16'r16 EP(127)['"b-4f4'] '"b-16f16'r8 '"b-8^16f8^16' '"b-16f16'r16 '"b-4e4'}; Str OrgOut = {[EP.onTime(110,70,!1)'"f1c1' EP(110) ['"g4d4'] EP(127)'c16e16'r8 EP(120)'"b-8^16d8^16': EP(115)'"a16c+16'r16]}; Str CymIn = {l16 [[n46]r[n49]r]r4 [l16 [3n42rn51r] l24 n42rn51n51rr]}; Str Cym = {[l16 [3n42rn51r] l24 n42rn51n51rr][7 l16 [3n42rn51r] l24 n42rn51n51rr]l16 [3n49rn51r] l24 n49rn51n49rr[8 l16 [3n42rn51r] l24 n42rn51n51rr] l1 n49n52n49 l2 n46 l8 [4n51][3 l16 [3n42rn51r] l24 n42rn51n51rr]l8[9n51]rn46}; Str CymOut = {[4 l16 [3n42rn51r] l24 n42rn51n51rr]}; Str SnrIn = {l16 [[n40]r[n38]r]n38rrr[l8 [3rn38] l24 rrn38n38rr]}; Str Snr = {[l8 [3rn38] l24 rrn38n38rr][8 l8 [3rn38] l24 rrn38n38rr][8 l8 [3rn38] l24 rrn38n38rr] l1 n38n38n38 l2 n38 l8[4n38][4 l8 [3rn38] l24 rrn38n38rr]l8 n38rrr EP.onTime(60,127,!2)[4n38]}; Str SnrOut = {[4 l8 [3rn38] l24 rrn38n38rr]}; Str TomIn = {l16 r2^4 rn48n45n41 l4 [8n35]}; Str Tom = {l4 [72n35]l1[4n35]l4[12n35]l8[9n35]rrr EP.onTime(60,127,!2)[4n35]}; Str TomOut = {l4 [16n35]}; Str VibIn = {r1 EP.onTime(127,100,!1) c1 EP(127) d4d4c+4c+4}; Str Vib = {[5 EP.onTime(127,100,!1) c1 : EP(127) d4d4c+4c+4] EP(127) [4e4] [4 EP.onTime(127,100,!1) c1 : EP(127) d4d4c+4c+4]EP(127) [4f4] [4r1] "b-4"b-4c4c4"a4"a4d4d4g4g4[6f4]e4}; Str VibOut = {[EP.onTime(127,100,!1) c1 EP(127) d4d4c+4c+4]}; Str Sax = {[10r1] l16 f^rf^rf^ rrd^f^a^ l24 g^dg^`db-^ge^dc^b-a^ge^c+c^"b- l16 f^rf^rf^ rrd^f^a^ l24 g^dg^`db-^ge-^d`c^`e`g^``c`g^`e`c^g l24 e^"aa^`e`c^ae^cd^"ac^df^ga^d "g^"b-d^g`d^b-g^"b-c^eg^`cg^ec^"g l16 f^rf^rf^ rrf^f^f^ l24 f^ce-^a`c^`d`e-^`g `a^`g`f^`ca^fc^"a [4r1] l24 d^"b-d^fb-^fd^"b-e^ff+^g`c^ce^g a^gf^ec^"ac^e d^ef+^ga^e"a^d "b-^"fd^fb-^fd^"f"b^df^b`d^fe^"b g^ab-^`e`d^`c`d^`e `d^`e`f^`a`g^`a`b-^`b ``c^}; //-----------------------------------Tracks-------------------------------------- /* Track 001,002,003,004,005,006,007,008,009,010,011,012,013,014,015,016 */ Array Vols = (127,115,127,100,100,070,100,100,100,127,100,100,100,100,060,090);//各トラックのメインボリューム FOR(Int A=1;A<=16;A++){CH(A); V(Vols(A-1));} #Scr = {Time(1:1:0) #?1In; Repstr(#?1,Ltime,Repeat); Time(Out:1:0) #?1Out;} TR(1) Voice(57) M(15) REV(30) CHO(10) P(48) q100 o5 v95 #Scr(Trp) TR(2) Voice(58) M(15) REV(30) CHO(10) P(48) q100 o5 v95 Repstr(Trb,Ltime,Repeat); TR(3) Voice(69) M(10) REV(40) CHO(40) P(96) q100 o5 Repstr(Obe,Ltime,Repeat); TR(4) Voice(57) M(15) REV(30) CHO(10) P(48) q100 o5 v95 #Scr(Trp) TR(5) Voice(58) M(15) REV(30) CHO(10) P(48) q100 o5 v95 Repstr(Trb,Ltime,Repeat); TR(8) Voice(34) M(0) REV(0) CHO(0) P(40) q98 o3 v95 #Scr(Bas) TR(10) CH(10) REV(0) CHO(0) P(64) #Scr(Cym) TR(11) CH(10) #Scr(Snr) TR(12) CH(10) #Scr(Tom) TR(13) Voice(65) M(0) REV(60) CHO(40) P(64) q100 o5 v95 Repstr(Sax,Ltime,Repeat); TR(15) Voice(12) M(20) REV(20) CHO(20) P(32) q100 o5 #Scr(Vib) TR(16) Voice(18) M(0) REV(0) CHO(20) P(80) q90 o5 #Scr(Org) //-------------------------------other---------------------------------- Time(Out:1:0) FadeoutAll(Fade,Vols);