//------------------------------------------------------------------------------
// テキスト音楽「サクラ」音楽データ (dSakura.dll Version.2.374)
//------------------------------------------------------------------------------
曲名{"おもちゃ箱ガラガラ行進曲"}
作者{"クジラ飛行机"}
コメント{"ガラガラ"}
// for Windows7 Microsoft Wavetable GS SW Synth
Include(gs.h)
//------------------------------------------------------------------------------
FUNCTION _INIT(NO,Vo1,Vo2,Vol,Co,Rv){
    CH=NO; Voice(Vo1,Vo2); r32 V=Vol; r32 CHO=Co; r32 REV=Rv r8
}
//------------------------------------------------------------------------------
//------------------------------------------------------------------------------
// TRACK MIXER
//------------------------------------------------------------------------------
System.MeasureShift(1);Time(0:1:0);テンポ(118);ResetGS;r2;TrackSync; 拍子4,4;
//                 CH,@   msb,VOL,CHO,REV
STR A000 = { _INIT(01,057,000,127,060,060); }
STR B000 = { _INIT(02,058,000,127,060,060); }
STR C000 = { _INIT(03,001,000,120,060,060); }
STR D000 = { _INIT(04,001,000,120,060,060); }
STR E000 = { _INIT(05,001,000,120,060,060); }
STR F000 = { _INIT(06,001,000,120,060,060); }

//                 CH,@   msb,VOL,CHO,REV
STR TA00 = { _INIT(07,016,000,040,060,060); }
STR TU00 = { _INIT(08,017,000,040,060,060); }
STR BA00 = { _INIT(09,040,008,072,060,060); }
STR RA00 = { _INIT(10,025,000,100,060,060); GS_RHYTHM(1); } //Electro
STR RB00 = { _INIT(11,026,000,100,060,060); GS_RHYTHM(2); } //TR-808

//------------------------------------------------------------------------------
//_RYTHM
//------------------------------------------------------------------------------
STR ____={l1rrrr}
STR RA01={ v100 Rythm{ l16[2[2 brrr brhr brrr :brhr ] :brbr] rbrb }}
STR RA02={ v100 Rythm{ l16[2[2 brbr srrr brbr :srrr ] :srbr] bbss }}
STR RB01={ Rythm{
	l16 v90 (SUB){ [2[2 hhhh hhhh hhhh hhhh32h32 ]] }
	v80 [4 brbr srrr brrb srsr ]
}}
STR RB02={ Rythm{
	l16 v90 (SUB){ [2[2 hhhh hhhh32h32 hhhh hhhh32h32 ]] }
	v80 [2[2 brbr srrr brrb :srsr ]: ssss ] sss32s32
}}
STR RB0F={Rythm{
	r1r1r1v50 l16 [8s] l32[16s]
}}
STR RB1F={Rythm{
	r1r1
	(Sub){ r1v50 l16 [8s] l16 [4s]s8ss }
	l4rhrh rhrh
}}
STR RB04={ Rythm{
	l16 v90 (SUB){ hhhh hhhh32h32 hhhh hhhh32h32 c  }
	          v80  brbr srrr brrb srsr b
}}
//------------------------------------------------------------------------------
//_BASE
//------------------------------------------------------------------------------
STR BA01 = {o3 l16q100 v120 [2  c^^^ c^c^ c^^c ccrc | c^^^ c^gc c^^^ :c^c^ ] cccc }
STR BA02 = {o3 l16q100 v120 [2  e^^^ a^g^ e^^c <e^>e^ | e^^^ e^ge e^^^ :c^e^ ] e^g^ }
STR BA03 = {o3 l16q50  v120 [4  crcc rccc rgrg eerg ]  }
STR BA04 = {o3 l16q100 v120 crcc rccc rgrg eere | c^^^ ^^^^ rrrr rrrr }

//_ORGAN
STR TA01 = {
	o6 l16 q100 v120 [2 M(0) 
	c0e^ra 'ec'r'ac'^ rrrr rerc | re"g gagSub{'ge' ^^^^ ge}r rger rr'gb''fd''ce' ]
}
STR TU01 = {
	o6 l16 q100 v120 [2 M(0)
	g0e^rf 'ec'r'ac'^ rrrr rgre | re"g gagSub{'cg' ^^^^ ^^}r M(50)rrM(80)rr M(100)rrM(0)'gb''fd' 'ce']
}
STR TU02 = {
	l8 q100 v50 o4 [2 '`ccg'^^^ 'ce'^^^ 'd`dg'^^^ : 'e`e'^'cb`e'^ ] v80q80 eegg
}
STR TU03 = {
	l8 q80 v80
	Sub { [2 rrcr drcr | rrcr drce  ]  }
	Sub { [2 rrer frer | rrer freg  ]  }
	      [2 rrgr argr | rrgr arg`c  ]
}
//------------------------------------------------------------------------------
//_A_B
//------------------------------------------------------------------------------
STR A001 = {
	v120 q50 l8 o6
	gedc ^^^^ | eded c^^&d | e^,100g^ g^^^ | rred c^,100d^
}
STR B001 = {
	v100 q50 l8 o5
	gedc ^^^^ | gggg g^^&a | g^,100e^ e^^^ | rrga g^,100g^
}
STR A002 = {
	v120 q50 l8 o6
	gedc ^^^^ | g^a^ >c<g>d<g | eded c^^^ | ^^ge dcdg
}
STR B002 = {
	v100 q50 l8 o5
	bage ^^^^ | d^e^ gggg | eded c^^^ | ^^ge dcdg
}

STR A003 = {
	v120 q80 l8 o6
	agag eded agag dcdc | egag aga`c ^^^^ ^^^^
}
STR B003 = {
	v100 q80 l8 o5
	agag agag agag agag | agag agag ^^^^ ^^^^
}
STR A004 = {
	v120 q50 l8 o6
	gedc ^^^^ | gedc ^^g | edc^ ^^ge | gedc ^^^^
}
STR B004 = {
	v100 q50 l8 o5
	bage ^^^^ | gedc ^^b | age^ ^^ge | bage ^^^^
}
//------------------------------------------------------------------------------
// PLAY
//------------------------------------------------------------------------------
PLAY(A000,B000,C000,D000,E000,F000,TA00,TU00,BA00,RA00,RB00);
Time(1:1:0);
// INTRO
PLAY(A001,____,____,____,____,____,____,TU02,____,____,RB0F);
// A-MERO
PLAY(A001,B001,____,____,____,____,____,____,BA01,RA01,RB01);
PLAY(A002,B002,____,____,____,____,____,____,BA01,RA01,RB01);
// INTERVAL
PLAY(____,____,____,____,____,____,TA01,TU01,BA01,RA01,RB01);
PLAY(____,____,____,____,____,____,TA01,TU01,BA01,RA01,RB02);
// A-MELO
PLAY(A001,B001,____,____,____,____,____,____,BA01,RA01,RB01);
PLAY(A002,B002,____,____,____,____,____,____,BA01,RA01,RB02);
// B-MELO
PLAY(A003,B003,____,____,____,____,____,____,BA02,RA02,RB02);
// A-MEL
PLAY(A001,____,____,____,____,____,____,____,____,____,RB1F);
PLAY(A002,B002,____,____,____,____,____,____,BA01,RA01,RB02);
// A'-MELO
PLAY(A001,B001,____,____,____,____,____,TU03,BA03,RA01,RB01);
PLAY(A002,B002,____,____,____,____,____,TU03,BA03,RA01,RB02);
// END
PLAY(A004,B004,____,____,____,____,____,____,BA04,____,RB04);