Copyright = {"spark.K"}
TrackName = {"さいころファンファーレ"}

Tempo = Random(120, 150);
TimeBase = 480;

// ------------------------------------------------------------
// spark.K's template for Sakura MML (2013/08/20)
// ------------------------------------------------------------

Function MT(From, To, Str S) { For(; From <= To; From++) { TR(From) S } }
Function SS(Number, Array Arr) { Str S = Arr(Number % SizeOf(Arr)); S }

// Initialization
System.MeasureShift(1)
System.TimeSignature(4, 4)
TR(00) Time(0:1:0) ResetGS; r16 TrackSync
MT(01, 16, { ArgOrder(lvqto) })

// Track Setup
TR(01) CH(01) r%-10 @(058,000,000);
               EP(127) r%1;   V(100) r%1; P(064) r%1; M(000) r%1
							REV(060) r%1; CHO(020) r%10
							l(4) o(5) v(100) q(080)
TR(02) CH(02) r%-10 @(033,000,000);
               EP(127) r%1;   V(100) r%1; P(064) r%1; M(000) r%1
							REV(060) r%1; CHO(020) r%10
							l(4) o(5) v(100) q(080)

// Write song data below
Int Number = Random(5);
Key(Random(-6, 6));

TR(01)
~{ぺ} = {'"a"bd'}
~{ぼ} = {'"a"bc+'}
~{ゃ} = {'"adea'}
~{ぽ} = {'"ac+eb'}
~{ぷ} = {'"g+"bd'}
~{ぴ} = {'"b-ce-'}
~{ち} = {'"f"b-c'}
~{べ} = {'"d"f"b-'}
~{ぱ} = {'"acf'}

M.W(0, 30, !4) l12 o6
ぺーぺ　っっぺ
SS(Random(3), {}, {}, {TempoChange(Tempo, Tempo - 30, !2)})
っっぺ　っっぺ

SS(Number,
{ぴっっ　ぱ２．},
{ちっっ　べ２．},
{ゃっっ　ぽ２．},
{ぺっっ　ぼ２．},
{ぺっっ　ぷ２ '"e"ac'4}
)

TR(02)
~{ぺ} = {e}

l12 o3
ぺーぺ　っっぺ　っっぺ　っっぺ

SS(Number,
{f^c "f2.},
{"f4 "b-2.},
{e^"e "a2.},
{e^"e "a2.},
{e^"b "f^^ "e^^ "arr}
)