//------------------------------------------------------------------------------
// テキスト音楽「サクラ」音楽データ (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);テンポ(114);ResetGS;r2;TrackSync; 拍子4,4;
//                 CH,@   msb,VOL,CHO,REV
STR A000 = { _INIT(01,027,000,127,060,060); }
STR B000 = { _INIT(02,018,000,127,060,060); }
STR C000 = { _INIT(03,090,000,120,060,060); }
STR D000 = { _INIT(04,097,000,120,060,060); }
STR E000 = { _INIT(05,013,000,127,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,001,000,100,060,060); GS_RHYTHM(1); } //STANDARD
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 brrr brrr :brrr ] :brbr] rbrb }}
STR RA02={ v100 Rythm{ l16[2[2 brrr srrr brbr :srrr ] :srbr] bbss }}
STR RB01={ Rythm{
	l16 v90 (SUB){ [2[2 hhmh hhhh hhmh hhhh ]] }
	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 [4  c^cc c`ccc ^ccc cccc ]  }
STR BA02 = {o3 l16q100 v120 [4  rccc rddd :reee cggg ] cccc eg`cc }
STR BA03 = {o3 l16q100  v120 [4 c^cc e^ee g^gg : b^bb ] eggg  }

//_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
	eggg aggg rrrr rrrr
	faaa aggg rrrr rrrr
}
STR B001 = {
	v100 q50 l8 o5
	ceee ceee rrrr rrrr
	dfff ceee rrrr rrrr
}
STR A002 = {
	v120 q50 l8 o6
	regg aggg regg rrrr
	rfaa aggg regg rrrr
}
STR B002 = {
	v100 q50 l8 o5
	rcee ceee rcee rrrr
	rdff ceee rcee rrrr
}

STR A003 = {
	v120 q80 l8 o6
	agag eded agag dcdc | egag aga`c ^^^^ ^^^^
}

//------------------------------------------------------------------------------
//_C/D
STR COIN = {
	Sub { v100 q100 o7 l4 g^^e | dc^^ | ^^de | gag^ }
	Sub { v100 q100 o6 l4 rrrr | fe^^ | ^^fg | bgb^ }
	      v100 q100 o5 l4 b^^g | bg^^ | ^^ae | gag^
}
STR COI2 = {
	Sub { v100 q100 o7 l4 g^^e | dc^^ | ^^^^ | ^^^^ }
	Sub { v100 q100 o6 l4 rrrr | fe^^ | ^^^^ | ^^^^ }
	      v100 q100 o5 l4 b^^g | bg^^ | ^^^^ | ^^^^
}
STR C001 = {
	v100 q100 o7 l4 g^^e | dc^^ | ^^dc | ^^de | ^^^^
}

STR D001 = {
	v.onTime((10,60,!1)(60,10,!1)(10,60,!1)(60,120,!1)) q100 o7 l32 [4 [8 cdeg] ]
}
//------------------------------------------------------------------------------
//_E
STR E001 = {
	v120 q100 l16 o6
	egag e^^^ dedc dg^^ | egag ag>cd eged edc<g
	agag agag ab>cd< egag | >egag aged edc<g ecec
}
STR E002 = {
	v120 q100 l16 o7
	eged eged dedc dc<ag | agag eded >agag eded
	ecde gedc dedc dcdc  | egec egag eded cccc
}

//------------------------------------------------------------------------------
//_PLAY
//------------------------------------------------------------------------------
PLAY(A000,B000,C000,D000,E000,F000,TA00,TU00,BA00,RA00,RB00);
Time(1:1:0);
// INTRO
PLAY(____,____,COIN,____,____,____,____,____,____,____,____);
// A-MERO
PLAY(A001,B001,C001,____,____,____,____,____,BA01,RA01,RB01);
PLAY(A001,B001,____,____,____,____,____,____,BA02,RA01,RB01);
PLAY(A002,B002,____,____,____,____,____,____,____,RA01,RB01);
// A-MELO2
PLAY(A001,B001,COIN,____,____,____,____,____,____,RA01,RB01);
PLAY(A002,B002,COIN,____,____,____,____,____,____,____,RB01);
// INTERVAL
PLAY(____,____,COIN,____,____,____,____,____,____,____,____);
PLAY(____,____,COIN,D001,____,____,____,____,____,____,____);
// A-MELO
PLAY(A001,B001,C001,____,____,____,____,____,BA01,RA01,RB01);
PLAY(A001,B001,____,____,____,____,____,____,BA02,RA01,RB01);
PLAY(A001,B001,C001,____,____,____,____,____,BA01,RA01,RB01);
PLAY(A001,B001,____,____,____,____,____,____,BA02,RA01,RB01);
// B-MELO
PLAY(A001,B001,____,____,E001,____,____,____,BA03,RA01,RB01);
PLAY(A001,B001,____,____,E002,____,____,____,BA03,RA01,RB01);
// LAST
PLAY(A001,B001,____,____,____,____,____,____,____,____,____);
PLAY(A001,B001,COIN,____,____,____,____,____,____,____,____);
PLAY(____,____,COI2,____,____,____,____,____,____,____,____);