TrackName = {"Dreaming of You -Bossa Nova REMIX-"};
Copyright = {"AMIO"};

/*
	練習用に、過去作 Dreaming of You (http://oto.chu.jp/mmlbbs6/post.php?mml_id=1554) の
	ボサノバ風アレンジを作ってみました。
	
*/



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







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

Int In = 4;//イントロからメロディースタートまでの時間
Int Ltime = 52;//1ループの時間
Int Out = Ltime*Repeat+In+1;//フェードアウト開始時間
Int Fade = 8;//フェードアウトにかかる時間
Int Tmp = 164;//テンポ
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;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,4);PrintPlayTime(Ptime);
ResetGM; r2 ResetGS; r2 TrackSync;

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

Str TR1In = {l8 o6};
Str TR1 = {[rre-d^e-^d ^c"b-c"b-^^^ rre-d^e-^d ^e-^f^^e-f
		g^e-f^c^^ ^^^^rr`e-`f `g^`e-`f^`c^^ ^^^^^^rr]
		
		rrcg^c^f  ^e-^d^e-d"b- "g1^1
		rrcg^c^d  ^e-^f^dcd    c^^"b-^^^^ ^^^^^^^^
		rrcg^c^f  ^e-^d^e-d"b- c^d"b-^^^^ ^^"b-^"a^"b-^
...(続く)...