「久しぶりなのにこれかよぅ」な曲

かまきりざーど

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

// メタイベント
Copyright = {"かまきりざーど"}
TrackName = {"「久しぶりなのにこれかよぅ」な曲"}
// 基本的な設定
Tempo = 110;
TimeBase = 480;
// 関数（この曲で使ってないのもある）
/*:
MT (開始トラック, 終了トラック, S)
MT: 文字列Sを複数のトラックに対して実行する。
【使い方】
// トラック2～5のベロシティを+20する。
MT (2, 5, { v+20 })
ET (S, トラック,..<可変>)
ET: 文字列Sを一部のトラックに対して実行する。
【使い方】
// トラック1とトラック11に対して「ドミソ」と鳴らす。
ET ({ ceg }, 1, 11)
ONCE (フラグ, A, B)
ONCE: フラグがオフならAを実行する。オンならBを実行する。
戻り値には必ずオンが返る。一度だけAを実行させる処理をIfを使わずに書きたい時に。
【使い方】
// 1回だけ途中で「かっこー」と鳴らす。
[3 cdef #F = ONCE(#F, { ``d32r8`b32r8 }) gab`c ]
LTR (S, ティック)
LTR: 指定したティックの経過後、Sを実行する。LaTeRの略。
【使い方】
// 対位法的な
LTR { l4 "g"b"a-c"bd },!2
l8 ce-df e-cd"b cde-f g2
TRCH (チャンネル)
TRCH: トラックとチャンネルを同時に設定しちゃう。
DRTR (トラック)
DRTR: チャンネルを10にして別トラックに分ける。
MsToTickAbout (ミリ秒)
MsToTickAbout: 指定した時間（ミリ秒）をティックに変換する。
ただし、テンポやタイムベースによっては誤差が生じる場合がある。
【使い方】
// 「ドミソ」の和音を500ミリ秒くらい鳴らす
'ceg'%(MsToTickAbout(500))
:*/
Function MT (From, To, Str S) { For (; From <= To; From++) { TR(From) S } }
Function ET (Str S, Array TRs) { For (Int I = 0; I < SizeOf(TRs); I++) { TR(TRs(I)) S } }
Function ONCE (Flag, Array A) { Str S; Result = on; S = A(Flag == on); S }
Function LTR (Str S, Len) { Sub { r%(Len); S } }
Function TRCH (Ch) { TR(Ch) CH(Ch) }
Function DRTR (Tr) { TR(Tr) CH(10) }
Function MsToTickAbout (Ms) { Result = (Ms * TimeBase) / (60000 / Tempo) }
// MIDIリセットに必要なブランクタイムを計算する
Int BlankMs = 50;
Int BlankTick = MsToTickAbout(BlankMs);
// 初期化
System.MeasureShift(1)
System.TimeSignature(4, 4)
TR(00) Time(0:1:0) ResetGS;
MT(01, 16, { ArgOrder(lvqto); Time(0:1:BlankTick) })
// トラック設定
/*:
TRCH(01) y0(000) r%1; y32(000) r%1; @(001) r%1; P(064) r%1;
V(100) r%1; EP(127) r%1; REV(000) r%1; CHO(000) r%1;
:*/
TRCH(01) y0(000) r%1; y32(000) r%1; @(045) r%1; P