夜の踊り子

AMIO

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

TrackName = {"夜の踊り子"};
Copyright = {"AMIO"};
/*
学生時代の脳内ストックから一つ。
※一部音程がおかしく感じるときはピッチベンドがうまく機能していません。
改めて再生しなおすと改善することがあります。
*/
Int Repeat = 2;
// 繰り返し回数を設定できます
//-----------------------------variables---------------------------------
Int In = 1;//イントロからメロディースタートまでの時間
Int Ltime = 51;//１ループの時間
Int Out = Ltime*Repeat+In+1;//フェードアウト開始時間
Int Fade = 8;//フェードアウトにかかる時間
Int Tmp = 150;//テンポ
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;
/* ↓この部分は騎士王321氏のMMLより拝借いたしました。ありがとうございます。 */
//リズムトラックの拡張です。それぞれの行の『//』を外すことによって有効になります。
//CH(11) SysEx$ = f0,41,10,42,12,{40,1a,15,02},f7;//トラック11
//CH(12) SysEx$ = f0,41,10,42,12,{40,1b,15,02},f7;//トラック12
//CH(13) SysEx$ = f0,41,10,42,12,{40,1c,15,02},f7;//トラック13
//CH(14) SysEx$ = f0,41,10,42,12,{40,1d,15,02},f7;//トラック14
//音の基準の高さを決めるチューニング(0~127)です。どれかひとつを有効にしておきましょう
//GSScaleTuning(40,40,40,40,40,40,40,40,40,40,40,40);//古風な低めのチューニング
GSScaleTuning(64,64,64,64,64,64,