TrackName = {"Rainbow Star!"}; Copyright = {"AMIO"}; /* 今から何かが始まる……という雰囲気のロック風ループBGM。 レースゲームか何かのメニュー画面っぽい。 */ Int Repeat = 2; // 繰り返し回数を設定できます //-----------------------------variables--------------------------------- Int In = 1;//イントロからメロディースタートまでの時間 Int Ltime = 24;//１ループの時間 Int Out = Ltime*Repeat+In+1;//フェードアウト開始時間 Int Fade = 8;//フェードアウトにかかる時間 Int Tmp = 192;//テンポ 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--------------------------------- SoundType=1;TimeBase(96);System.MeasureShift(1);Include(guitar.h);Include(gs.h); Time(0:1:0) Tempo(Tmp);TimeSignature(Sig,4);PrintPlayTime(Ptime); ResetGM; r2 ResetGS; r2 TrackSync; //----------------------------------strings----------------------------------- Str TR1In = {}; Str TR1 = {[16r1] [6r1] l8 v110 ['"f+f+'][3r'"f+f+'] ['"bb'][3r'"bb']}; Str TR1Out = {}; Str TR2In = {}; Str TR2 = {}; Str TR2Out = {}; Str TR3In = {}; Str TR3 = {l8 o5 v110 q100 t_.Random(1); v_.Random(4); [15'"be'4^8'"bd'2^8]'"be'4r2^4 'eg'1,100'f+a'1,100'a-b'1^2,100'f+a'2,100 'eg'1,100'f+a'1,100 [4'a`c`e'][r'a`c`e'] [4'b`e-`f+'][r'b`e-`f+']}; Str TR3Out = {l8 o5 [8'"be'4^8'"bd'2^8]}; Str TR4In = {}; Str TR4 = {}; Str TR4Out = {}; Str TR5In = {}; Str TR5 = {}; Str TR5Out = {}; #T = t.N(0,2,4); Str TR6In = {}; Str TR6 = {l8 o5 t_.Random(1); v_.Random(4); [15#T'"bea-'4r#T'"bdf+'2r]#T'"bea-'4r2^4 #T'ceg'1,100#T'df+a'1,100#T'ea-b'1^2,100#T'df+a'2,100 #T'ceg'1,100#T'df+a'1,100 [Gbm7b5(2,8);Gbm7b5(-2,8);]r8Gbm7b5(2,4);Gbm7b5(-2,8); [B(2,8);B(-2,8);]r8B(2,4);B(-2,8);}; Str TR6Out = {l8 o5 [8#T'"bea-'4r#T'"bdf+'2r]}; Str TR7In = {}; Str TR7 = { l16 q96 t_.Random(1); v_.Random(4); [15r1] r2 o6 v100 d^^e^^f+^ v105 g^^e^^g^e4c4 v95 "a4^8"a-4^8"a4 Slur(0) v95 "b&c&"b&c&"b&c&"b&c&"b&c&"b&c&"b&c&"b&c&"b4 M(0) v100 r4e4f+4,90 v105 g^^e^^g^e4c4 "a4^8 v110 e4^8a4 v115 M(60) '`c``c,,80'2^8,90 M(0) Slur(1) a8&b8&`c8 v110 babf+e-"be-"a"f+8e-8f+8b8}; Str TR7Out = {}; Str TR8In = {}; Str TR8 = {l8 o3 q75 [16e4^8:"b2^8]r2^8 q90 c1d1e1^2d2c1d1 q80 "f+4^8"f+4^8"f+4"b4^8"b4^8"b4}; Str TR8Out = {q75 [8e4^8"b2^8]}; Str TR9In = {}; Str TR9 = {}; Str TR9Out = {}; Str TR10In = {l8 t_.Random(1); v_.Random(4); Sub{v.N(100,85,0,100,0,100,85,0)n35n35rn35rn35n35r} Sub{v.N(105,95,0,105,0,100,105)n49n49rn49rn49n49r}v.N(100,90,100)n38n38rn38rv.N(100,85,100)[3n38,16,50]r16v100n38}; Str TR10 = {[7Sub{v.N(100,0,0,100,0,100,0,85)n35rrn35rn35rn35}Sub{v.N(100,80)[8n46]}v100[rrn38r]] Sub{v.N(100,0,0,100,0,100,0,85)n35rrn35rn35rn35}Sub{v.N(100,80)[6n46]}v100rrn38rrv.N(100,85,100)[3n38,16,50]r16v100n38 Sub{v100n52} Sub{v.N(100,0,0,100,0,100,0,85)n35rrn35rn35rn35}Sub{v.N(100,80)r[7n46]}v100[rrn38r] [6Sub{v.N(100,0,0,100,0,100,0,85)n35rrn35rn35rn35}Sub{v.N(100,80)[8n46]}v100[rrn38r]] v100'n35n36n38n49'rrr [3't.N(0,0,2)n35n36n38n40'16:r]r16 t0 Sub{n49} Sub{v100n35rrn35rrn35r}Sub{v100n36rrn36rrn36r}Sub{v100rrrn42rrrr}v100[rr'n38n65']rr [3Sub{v100n35rrn35rrn35r}Sub{v100n36rrn36rrn36r}Sub{v100n42rrn42rrrr}v100[rr'n38n65']rr] Sub{v100n35rrn35rrn35r}Sub{v100n36rrn36rrn36r}Sub{v70n46rrn46rrrr}v100[rr'n38n65']rr Sub{v100n35rrn35rrn35r}Sub{v100n36rrn36rrn36r}Sub{v80n46rrn46rrrr}v100[rr'n38n65']rr Sub{v100[4n35][rn35]}Sub{v100[4n36][rn36]}Sub{v100n49rrn49rrrr}v100[4'n38n65'][r'n38n65'] Sub{v100[4n35][rn35]}Sub{v100[4n36][rn36]}Sub{v110n49rrn49rrrr}v100[4'n38n65']rv.N(100,85,100)[3n38,16,50]r16v100n38}; Str TR10Out = {[7Sub{v.N(100,0,0,100,0,100,0,85)n35rrn35rn35rn35}Sub{v.N(100,80)[8n46]}v100[rrn38r]] Sub{v.N(100,0,0,100,0,100,0,85)n35rrn35rn35rn35}Sub{v.N(100,80)[6n46]}v100rrn38rrv.N(100,90,100)[3n38,16,50]r16v100n38}; Str TR11In = {}; Str TR11 = {l8 o6 P.N(32,64,96,112,120,104,72,40) v.N(80,90,100,80,90,100,80,90) [15ea-bdf+b"bf+]}; Str TR11Out = {l8 o6 P.N(32,64,96,112,120,104,72,40) v.N(80,90,100,80,90,100,80,90) [8ea-bdf+b"bf+]}; Str TR12In = {}; Str TR12 = {q100 o4 EP(127) [3P.T((24,104,!1^1),(104,24,!1^1))'ea-'1^1^1^1] P.T((24,104,!1^1),(104,24,!1^1)) 'ea-'1^1^1 P(64) EP.T(127,0,!1)'ea-'1 EP(127) e1f+1a-1^2f+2e1f+1'a`c`e'1'b`e-`f+'1}; Str TR12Out = {EP(127) P.T((24,104,!1^1^1^1),(104,24,!1^1^1^1))['ea-'1^1^1^1]}; Str TR13In = {}; Str TR13 = {q100 o4 EP(127) [3e1^1^1^1]e1^1^1 EP.T(127,0,!1)e1 EP(127) [6r1]e1f+1}; Str TR13Out = {[e1^1^1^1]}; Str TR14In = {}; Str TR14 = {}; Str TR14Out = {}; Str TR15In = {}; Str TR15 = {}; Str TR15Out = {}; Str TR16In = {}; Str TR16 = {}; Str TR16Out = {}; //-----------------------------------Tracks-------------------------------------- /* Track 001,002,003,004,005,006,007,008,009,010,011,012,013,014,015,016 */ Array Vols = (100,100,100,100,100,090,100,100,100,100,090,075,100,100,100,100);//各トラックのメインボリューム 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) CH(1) Voice(56) M(0) REV(0) CHO(0) P(24) #Scr(TR1) TR(2) CH(2) Voice(56) M(0) REV(0) CHO(0) P(104) #Scr(TR1) TR(3) CH(3) Voice(1) M(0) REV(0) CHO(0) P(88) #Scr(TR3) TR(4) CH(4) Voice(1) M(0) REV(0) CHO(0) P(64) #Scr(TR4) TR(5) CH(5) Voice(1) M(0) REV(0) CHO(0) P(64) #Scr(TR5) TR(6) CH(6) Voice(30) M(0) REV(20) CHO(0) P(52) #Scr(TR6) TR(7) CH(7) Voice(31) M(0) REV(10) CHO(0) P(102) #Scr(TR7) TR(8) CH(8) Voice(34) M(0) REV(0) CHO(0) P(40) #Scr(TR8) TR(9) CH(9) Voice(1) M(0) REV(0) CHO(0) P(64) #Scr(TR9) TR(10) CH(10) Voice(1) REV(10) CHO(0) P(54) #Scr(TR10) TR(11) CH(11) Voice(12) M(0) REV(0) CHO(0) P(64) #Scr(TR11) TR(12) CH(12) Voice(53) M(0) REV(10) CHO(0) P(64) #Scr(TR12) TR(13) CH(13) Voice(49) M(5) REV(10) CHO(0) P(64) #Scr(TR13) TR(14) CH(14) Voice(1) M(0) REV(0) CHO(0) P(64) #Scr(TR14) TR(15) CH(15) Voice(1) M(0) REV(0) CHO(0) P(64) #Scr(TR15) TR(16) CH(16) Voice(1) M(0) REV(0) CHO(0) P(64) #Scr(TR16) //-------------------------------others---------------------------------- Time(Out:1:0) FadeoutAll(Fade,Vols);