TrackName = {"真夜中"};
Copyright = {"AMIO"};

/*

*/



Int Repeat = 2;
// 繰り返し回数を設定できます







//-----------------------------variables---------------------------------

Int In = 0;//イントロからメロディースタートまでの時間
Int Ltime = 28;//１ループの時間
Int Out = Ltime*Repeat+In+1;//フェードアウト開始時間
Int Fade = 6;//フェードアウトにかかる時間
Int Tmp = 84;//テンポ
Int Sig = 6;
Int SigBase = 8;

Int Ptime = (In+Ltime*Repeat+Fade)*Sig*240/(Tmp*SigBase);

//---------------------------functions---------------------------------

Function Repstr(Str MML,Int Tim,Int Rep,Int Beg=0)//MML繰り返し処理関数
{
	Int I;
	
	For(I=0;I<Rep-Beg;I++){
		Time((I+Beg)*Tim+In+1:1:0) MML;
	}
}

Function PrintPlayTime(Int Tim)
{
	Int Minute = Tim/60;
	Int Second = Tim%60;
	If(Tim<60){ Print({"演奏時間："}+Second+{"秒"}); }
	Else{Print({"演奏時間："}+Minute+{"分"}+Second+{"秒"}); }
}

Function FadeoutVol(Int Mes,Int Prev)// Prev:pre-volume フェードアウト前のメインボリューム
{
	Str I = {!1};
	While(Mes>1){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,SigBase);PrintPlayTime(Ptime);
ResetGM; r4 ResetGS; r4 TrackSync;

//----------------------------------strings-----------------------------------

#v1 = {v.N(0,80,90,100,105,110,115,120,127,113,90)};
#v6 = {v.N(105,100,100,105,108,110,105,100,100,100)};
#v7 = {v.N(105,100,100)};

Str TR1In = {};
Str TR1 = {l8 [4r2^4]
		[#v1 rdfgab- `d`e`f`e`c^ [r2^4]]
		[4r2^4]
		#v6 `db-`c`d`e`f `e`cb-a^r
		#v7 `db-`crrr    v100 `d^^^^^,96
		[#v1 rdfgab- `d`e`f`e`c^ [r2^4]]};
Str TR1Out = {[4r2^4]
		#v1 rdfgab- `d`e`f`e`c^ [r2^4]};

#v8 = {v.N(80,65,85,65, 80,65,85,65)};	

Str TR2In = {};
Str TR2 = {l8 [r2^4] o6 P(96) #v8 adag^^ fcfg^^
		o5 P(52)
		[#v1 rdfgab- `d`e`f`e`c^ [r2^4]]
		[4r2^4]
		#v6 `db-`c`d`e`f `e`cb-a^r
		#v7 `db-`crrr    v100 `d^^`c+^^
		[#v1 rdfgab- `d`e`f`e`c^ [r2^4]]};
Str TR2Out = {l8 [r2^4] o6 P(96) #v8 adag^^ fcfg^^
		o5 P(52)
		#v1 rdfgab- `d`e`f`e`c^ [r2^4]};

Str TR3In = {};
Str TR3 = {l8 EP(100) [4r2^4]
		[#v1 r"acefg b-`c`d`cf^ [r2^4]]
		[4r2^4]
		#v6 gdfgab- ac"b-"a^r
		#v7 gdfrrr  v100 a^^^^^,96
		[#v1 r"acefg b-`c`d`cf^ [r2^4]]};
Str TR3Out = {l8 EP(100) [4r2^4]
		#v1 r"acefg b-`c`d`cf^ [r2^4]};

#v2 = {v.N(105,90,100,90,100,100,95,95,105,95,90,90)};
#v3 = {v.N(105,100,100,100,105,100,100,100,105)};
#v4 = {v.N(105,100,100,105,108,110,105,105,100,90,90)};
#v5 = {v.N(105,100,100,105,108,110,105,108,115,115,112)};
#v9 = {v.N(0,0,0,105,100,100)};
		
Str TR4In = {};
Str TR4 = {l8 [4r2^4]
		[r2^4] M(10) #v2 Slur(0,0) dc24&!48d24&!48c24"b-"a"f"g "a"g"e M(40) "f^^,90
		[r2^4] M(10) #v3 Slur(0,!24) dc24&!24"b-12cdc24&!24"b-12c  M.T(10,40,!2^4)d^^^^^
		M(10) #v4 d"b-cdef Slur(0,0) d24&24e12c"b- M(40) "a^^
		M(10) #v5 d"b-cdef Slur(0,0) egg24&24b-12  M(40)  a^^
		[r2^4]
		M(10) #v9 rrrd"b-c d^^,100,100 M(20) c+^^,96,95
		[r2^4] M(10) #v2 Slur(0,0) dc24&!48d24&!48c24"b-"a"f"g "a"g"e M(40) "f^^,90
		[r2^4] M(10) #v3 Slur(0,!24) dc24&!24"b-12cdc24&!24"b-12c  M.T(10,40,!2^4)d^^^^^,90
		};
Str TR4Out = {l8 [4r2^4]
		[r2^4] M(10) #v2 Slur(0,0) dc24&!24d24&!24c24"b-"a"f"g "a"g"e M(40) "f^^,90};

Str TR5In = {};
Str TR5 = {l4^8 q100 [4r2^4]
		[r2^4] gd"ad
		[r2^4] gcd^
		[4g:cfd]ea^
		[r2^4] gd"ad
		[r2^4] gcd^};
Str TR5Out = {l4^8 q100 [4r2^4]
		[r2^4] gd"ad};

Str TR6In = {};
Str TR6 = { l16 EP(110)
		[d^,,80['dfa'r] c^,,80['ceg'r] "b-^,,80['"b-df'r] c^,,80['ceg'r]]
		[d^,,80['dfa'r] c^,,80['ceg'r] "b-^,,80['"b-df'r] "f^,,80['"f"ac'r]
		 "g^,,80['"g"b-d'r] : d^,,80['dfa'r] "a^,,80['"ace'r] d^,,80['dfa'r]]
		 c^,,80['ceg'r]  d^,,80['dga'r]   d^,,80['df+a'r]
		 EP(120)
		"g^,,80['"g"b-d'r] c^,,80['ceg'r]  "f^,,80['"acf'r]  d^['dfa'r]
		"g^,,80['"g"b-d'r] c^,,80['ceg'r]  "f^,,80['"ace'r]  d^['df+a'r]
		"g^,,80['"g"b-d'r] c^,,80['ceg'r]  "f^,,80['"acf'r]  d^['dfa'r]
		"g^,,80['"g"b-d'r] e^,,80['egb-'r] EP(127) "a^,,80['"ade'r] "a^['"ac+e'r]
		EP(110)
		[d^,,80['dfa'r] c^,,80['ceg'r] "b-^,,80['"b-df'r] "f^,,80['"f"ac'r]
		 "g^,,80['"g"b-d'r] : d^,,80['dfa'r] "a^,,80['"ace'r] d^,,80['dfa'r]]
		 c^,,80['ceg'r] d^,,80['dga'r] d^,,80['df+a'r]};
Str TR6Out = {EP(110)
		 [d^,,80['dfa'r] c^,,80['ceg'r] "b-^,,80['"b-df'r] c^,,80['ceg'r]]
		  d^,,80['dfa'r] c^,,80['ceg'r] "b-^,,80['"b-df'r] "f^,,80['"f"ac'r]
		 "g^,,80['"g"b-d'r] d^,,80['dfa'r] "a^,,80['"ace'r] d^,,80['dfa'r]};

Str TR7In = {};
Str TR7 = {};
Str TR7Out = {};

Str TR8In = {};
Str TR8 = {l8 o3 v105
		[drrcrr"b-rrcrr]
		[drrcrrb-rrfrr grr:drrarrdrr]crrdrrdrr
		[4grr:crrfrrdrr]errarrarr
		[drrcrrb-rrfrr grr:drrarrdrr]crrdrrdrr};
Str TR8Out = {l8 o3
		[drrcrr"b-rrcrr]
		drrcrrb-rrfrr grrdrrarrdrr};

Str TR9In = {};
Str TR9 = {};
Str TR9Out = {};

Str TR10In = {};
Str TR10 = {l16
		[8Sub{v90n35}Sub{v70n40}v90rrn42rn42r]
		[16Sub{v90n35}Sub{v70n40}v90rrn42rn42r]
		[16Sub{v90n35}Sub{v80n40}Sub{v90n69rn75rn75r}v90rrn42rn42r]
		[16Sub{v90n35}Sub{v70n40}v90rrn42rn42r]};
Str TR10Out = {l16
		[8Sub{v90n35}Sub{v70n40}v90rrn42rn42r]
		[8Sub{v90n35}Sub{v70n40}v90rrn42rn42r]};

Str TR11In = {};
Str TR11 = {l8 q100 [4r2^4]
		[r2^4] dc"b-"a"f"g agef^^
		[r2^4] d"b-cd"b-c  d^^^^^
		d"b-cdef ec"b-"a^r
		d"b-cdef egb-a^r
		[r2^4]
		rrrd"b-c 'da'4^8,,95'c+a'4^8,,95
		[r2^4] dc"b-"a"f"g agef^^
		[r2^4] d"b-cd"b-c  d^^^^^};
Str TR11Out = {l8 q100 [4r2^4]
		[r2^4] dc"b-"a"f"g agef^^};

Str TR12In = {};
Str TR12 = {l4^8 q100 [4r2^4]
		[8r2^4]
		[4r2^4]
		M(5) gcfd ge M.T(5,60,!2^4) a2^4};
Str TR12Out = {};

Str TR13In = {};
Str TR13 = {l4^8 q100 [4r2^4]
		[7r2^4] M(10) g4^8f+4^8
		[6r2^4] M(10) rd8"b-8c8 M.T(10,40,!2^4) d2^4
		[7r2^4] M(10) g4^8f+4^8};
Str TR13Out = {};

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 = (127,110,100,110,080,080,100,100,100,090,110,076,080,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(73) M(10) REV(20) CHO(0) P(48) #Scr(TR1)
TR(2)  CH(2)  Voice(9) M(0) REV(20) CHO(0) P(52) #Scr(TR2)
TR(3)  CH(3)  Voice(74) M(10) REV(20) CHO(0) P(44) #Scr(TR3)
TR(4)  CH(4)  Voice(69) M(10) REV(20) CHO(0) P(80) o5 #Scr(TR4)
TR(5)  CH(5)  Voice(53) M(0) REV(20) CHO(0) P(64) o4 #Scr(TR5)
TR(6)  CH(6)  Voice(26) M(0) REV(20) CHO(0) P(88) #Scr(TR6)
TR(7)  CH(7)  Voice(1) M(0) REV(0) CHO(0) P(64) #Scr(TR7)
TR(8)  CH(8)  Voice(34) M(0) REV(20) 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(0) CHO(20) P(64) #Scr(TR10)
TR(11) CH(11) Voice(19) M(0) REV(20) CHO(0) P(80) o5 #Scr(TR11)
TR(12) CH(12) Voice(49) M(0) REV(20) CHO(0) P(64) #Scr(TR12)
TR(13) CH(13) Voice(80) M(0) REV(20) CHO(40) P(96) o6 #Scr(TR13)
TR(14) CH(14) Voice(1) M(0) REV(20) CHO(40) 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);