//------------------------------------------------------------------------------
// テキスト音楽「サクラ」音楽データ (dSakura.dll Version.2.374)
//------------------------------------------------------------------------------
曲名{"ギターキターヒヒー"}
作者{"クジラ飛行机"}
コメント{"イエ〜イ、2分弱のノイズワールド！"}
// for Windows7 Microsoft Wavetable GS SW Synth
Include(gs.h)
//------------------------------------------------------------------------------
FUNCTION _INIT(NO,Vo1,Vo2,Vol,Co,Rv,Pn){
    CH=NO; Voice(Vo1,Vo2); r32 V=Vol; r32 CHO=Co; r32 REV=Rv r8 P=Pn
}
//------------------------------------------------------------------------------
//------------------------------------------------------------------------------
// TRACK MIXER
//------------------------------------------------------------------------------
System.MeasureShift(1);Time(0:1:0);テンポ(180);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); }

//                 CH,@   msb,VOL,CHO,REV,PAN
STR LD00 = { _INIT(05,031,000,127,060,060); }
STR GTA0 = { _INIT(06,031,000,100,060,060,064); }
STR GTB0 = { _INIT(07,030,000,100,060,060,064); }
STR BA00 = { _INIT(08,035,000,100,060,060,064); }
STR BB00 = { _INIT(09,040,000,080,060,060,064); }
STR RA00 = { _INIT(10,001,000,110,060,060,064); }

//------------------------------------------------------------------------------
//_RYTHM
//------------------------------------------------------------------------------
STR ____={l1rrrr}

STR __0A={l8 v127 r1 }
STR RA0A={l8 v127 Rythm{ c4c4c4 (Sub){c4} l32[2ssss] }}
STR RA01={ l8 Rythm{
	(v100) (Sub){ [4 c0m^ m^ m^ m^] }
	(v120) [2[2 b16b16sbs : b16b16sbs ] : bss16s16s] ssss
}}
STR RA11={ l8 Rythm{
	(v100) (Sub){ [4 c0m^ m^ m^ m^] }
	(v120) (Sub){ [2[2 b16b16sbs : b16b16sbs ] : bss16s16s] ssss }
	(v127) r1r1r1 l32 [2[4ssss]]
}}
STR RA02={ l8 Rythm{
	(v100) (Sub){ [4 c0m^ m^ m^ m^] }
	(v120) [2[2 brbr : rbbb ] : bss16s16s] ssss
}}
STR RA03={ l8 Rythm{
	(v100) (Sub){ [4 c0m^ m^ m^ m^] }
	(l16v120) [4 brbrssrbbbbbssbb]
}}

STR RA04={ l8 Rythm{
	(v100) (Sub){ c c c c c c c c | c1 }
	(l16v120)     b b b b b b s s | 'bs'1
}}

STR RA05={ l8 Rythm{
  [2 bhhh shhh bhhh shhs ]
}}

//------------------------------------------------------------------------------
//_BASE
//------------------------------------------------------------------------------
STR BA01 = {o3 l8 q100 v127 [2[2 eeee :eeee ]ggbb]  }
STR BA02 = {o3 l8 q80 v127 [2  e^ga b^^g gged ^^^^ ]  }
STR BA03 = {o3 l16 q80 v127 [8 eeee >eeee< ]  }
STR BA0A = {o3 l16 q80 v127 g4f4e4 dddd  }
STR BA04 = {o3 l8 q100 v127 eeee eeee e1  }

//------------------------------------------------------------------------------
//_GT
//------------------------------------------------------------------------------
FUNCTION _G57(Str P1) {
	Key(7) Sub{ P1 } Key(12) Sub{ P1 } Key(0) P1
}
STR GT01 = { o3 l8 v127 _G57{[4 q50 bbbb q90 b>ddd<]} }
STR GT02 = { o3 l8 v127 _G57{ [2 q90 e^ga b^^g gged ^^^^] } }
STR GT03 = { o3 l8 v127 _G57{ [4 q90 cdef gab`c ] } }
STR GT04 = { o3 l16 v127 _G57{ [2[4 q90 cdef gab`c ]] } }

//------------------------------------------------------------------------------
//_LD GT
//------------------------------------------------------------------------------
Str LD01 = {
	o5 l16 v127 q100
	g^^^ ^^ed- e^^e ^^^^
	b^^^ ^^aa- g^^g ^^^^
	r^^^ g^^^ a^^^ b^^^
	>d^^^ ^^d-c< b^^^ ^^^^
}
Str LD02 = {
	o5 l16 v127 q100
	gabg ab>c<g ab>cd e<eee
	geee aeee beee `deee
	gb`dg b`dgb >deg^<g^^^
	>d^^^ ^^d-c e^^ ^^^^<
}
Str LD03 = {
	o5 l16 v127 q100
	geee aeee beee `deee
	geee aeee beee `deee
	geee aeee beee `deee
	>d^^^ ^^d-c e^^ ^^^^<
}
//------------------------------------------------------------------------------
//_PLAY
//------------------------------------------------------------------------------
PLAY(A000,B000,C000,D000,LD00,GTB0,GTA0,BA00,BB00,RA00);
Time(1:1:0);
// INTRO
PLAY(__0A,__0A,__0A,__0A,__0A,__0A,__0A,__0A,__0A,RA0A);
// A
PLAY(____,____,____,____,____,GT01,GT01,BA01,BA01,RA01);
PLAY(____,____,____,____,____,GT01,GT01,BA01,BA01,RA01);
// A'
PLAY(____,____,____,____,____,GT01,GT02,BA01,BA01,RA02);
PLAY(____,____,____,____,____,GT01,GT02,BA01,BA01,RA02);
// A
PLAY(____,____,____,____,____,GT02,GT02,BA01,BA01,RA01);
PLAY(____,____,____,____,____,GT02,GT02,BA01,BA01,RA11);
// INT1
PLAY(__0A,__0A,__0A,__0A,__0A,__0A,__0A,__0A,__0A,RA0A);
PLAY(__0A,__0A,__0A,__0A,__0A,__0A,__0A,BA0A,BA0A,RA0A);
// B
PLAY(____,____,____,____,____,GT03,GT03,BA03,BA03,RA03);
PLAY(____,____,____,____,____,GT03,GT03,BA03,BA03,RA03);
PLAY(__0A,__0A,__0A,__0A,__0A,__0A,__0A,BA0A,BA0A,RA0A);
// A+SOLO
PLAY(____,____,____,____,LD01,GT02,GT01,BA01,BA01,RA01);
PLAY(____,____,____,____,LD02,GT02,GT01,BA01,BA01,RA01);
// A'
PLAY(____,____,____,____,____,GT01,GT02,BA01,BA01,RA02);
PLAY(____,____,____,____,____,GT01,GT02,BA01,BA01,RA02);
PLAY(____,____,____,____,____,GT01,GT02,BA01,BA01,RA02);
PLAY(____,____,____,____,____,GT01,GT02,BA01,BA01,RA02);
// ヨホ〜ヨホ〜
PLAY(____,____,____,____,LD03,GT04,GT04,BA04,BA04,RA04);
PLAY(____,____,____,____,LD03,GT04,GT04,BA04,BA04,RA04);
// ヨホ〜ヨホ〜
PLAY(____,____,____,____,LD03,GT01,GT04,BA04,BA04,RA04);
PLAY(____,____,____,____,LD03,GT01,GT04,BA04,BA04,RA04);
PLAY(____,____,____,____,LD03,____,____,BA04,BA04,RA04);