夜明け（仮題）

AMIO

MML先頭 2000 文字だけ表示していますダウンロード全文を見る

TrackName = {"夜明け(仮題)"};
Copyright = {"S.Zayo"};
/*
歌詞未定。
*/
//-----------------------------variables---------------------------------
Int Intro = 8; Int Apart = 16; Int Bpart = 10; Int Cpart = 15; Int Dpart = 4; Int Epart = 16; Int Fpart = 9; Int Gpart = 8; Int Hpart = 7; Int Ipart = 8; Int Finish = 2;
Array Part = ( Intro , Apart , Bpart , Cpart , Dpart , Epart , Bpart , Cpart , Fpart , Gpart , Hpart , Ipart , Finish , 0 );//最後の0は消さない
Int Tmp = 120;//テンポ
//---------------------------functions---------------------------------
Int N;Int Ptime=0;
FOR(N=0;Part(N)!=0;N++){ Ptime = Ptime + Part(N); }
Ptime = Ptime*240/Tmp;
Function PrintPlayTime(Int Tim)
{
Int Minute = Tim/60;
Int Second = Tim%60;
If(Tim<60){ Print({"演奏時間：約"}+Second+{"秒"}); }
Else{Print({"演奏時間：約"}+Minute+{"分"}+Second+{"秒"}); }
}
//------------------------------system setting---------------------------------
TimeBase(96);System.MeasureShift(1);
Time(0:1:0) Tempo(Tmp);TimeSignature(4,4);TrackSync;PrintPlayTime(Ptime);
//-------------------------------parts---------------------------------
Str MelIn = {[8r1]};
Str MelA = {[l8 b4^8b b8^16d8^16b `c8^16,,105b8^16a a8^16g8^16a b8^16,,105g8^16e d2 r1
b4^8b b8^16d8^16b `c8^16,,105b8^16a a8^16g8^16a b8^16,,105d8^16`d,,105 b2 r1]};
Str MelB = { l8 `e4^8,,110`e,,110 `e8^16,,110`d8^16,,105`c `d8^16,,105g8^16a g4^8r `d4^8,,105`d,,105 `d8^16,,105`c8^16b `c8^16,,105g8^16a g4^8r
`e4^8,,110`e,,110 `e4,,110b4 `f+4,,115b4 a4ba rg8^16g8^16 ef+gb ra8^16a8^16 aab`c `d2^4,,105`e4,,110 `d4,,110r4 gabg};
Str MelC = { [[l8 `e2,,110`e-4^8,,110r `d8^16,,105`g8^16,,120`d,,105 `c+8^16,,105`g8^16,,120`c+,,105 `c,,110r`c4,,110 b4,,105a4,,105 : `d4^8,,110r gabg] :g4^8r gabg]};
Str MelD = {g1 [3r1]};
Str MelE = MelA;
Str MelF = {g1 [7r1] r2 l8 gabg};
Str MelG = {[l8 `e2,,110`e-4^8,,110r `d8^16,,105`g8^16,,120`d,,105 `c+8^16,,105`g8^16,,120`c+,,105 `c,,110r`c4,,110 b4,,105a4,,105 : `d4^8,,110r gabg] g4^8r gabg};
Str M