TrackName = {"余韻"};
Copyright = {"S.Zayo"};

/*
SGM-V2.01.sf2
*/

//-----------------------------variables---------------------------------

Int Intro = 12; Int Apart = 16; Int Bpart = 16; Int Cpart = 16; Int Dpart = 4; Int Epart = 16; Int Fpart = 43;
Array Part = ( Intro , Apart , Bpart , Apart , Cpart , Apart , Dpart , Epart , Fpart , 0 );//最後の0は消さない
Int Tmp = 100;//テンポ

//---------------------------functions---------------------------------

Int N;Int Ptime=0;
FOR(N=0;Part(N)!=0;N++){ Ptime = Ptime + Part(N); }
Ptime = Ptime*180/Tmp;

Function PrintPlayTime(Int Tim)
{
	Int Minute = Tim/60;
	Int Second = Tim%60;
	If(Tim<60){ Print({"演奏時間："}+Second+{"秒"}); }
	Else{Print({"演奏時間："}+Minute+{"分"}+Second+{"秒"}); }
}



//------------------------------system setting---------------------------------

TimeBase(96);System.MeasureShift(1);KeyFlag=(0,0,0,0,0,0,0);
Time(0:1:0) Tempo(Tmp);TimeSignature(6,8);TrackSync;PrintPlayTime(Ptime);

//-------------------------------parts---------------------------------

#Scr = { #?1In;#?1A;#?1B;#?1A;#?1C;#?1A;#?1D;#?1E;#?1F; };

Str TrpIn = { [11r2^4]r2^8 "b-8 };
Str TrpA = { [c2^8r8 d2e-8f8 : d2^4r2^8"b-8]g2^4r2^4 `g2`f4`b-2`a-8b-8 `d1^8r4^8 g2f4b-2a-8"b-8 e-2^4 r2^4 };
Str TrpB = { [15r2^4]r2^8"b-8 };
Str TrpC = { [15r2^4]r2^8"b-8 }; 
Str TrpD = { [4r2^4] };
Str TrpE = { EP(100) [[g2^4f2^8c8:d1^4^8r8]:d1^8r8e-8f8]g2^4r2^8 EP(127) "b-8};
Str TrpF = { [[c2^8r8 d2e-8f8 : d2^4r2^8"b-8]g2^4r2^4 `g2`f4`b-2`a-8b-8 `d1^8r4^8 : g2f4b-2a-8"b-8 e-2^4 r2^8"b-8]
				[3g2f4b-2a-8"b-8 : e-2^4 r2^4]d1^2 };

#Kbrtm = {l8^16 q96 [#?1] l8 q50 [3#?1]}			

Str GtrIn = {EP(80) [4r2^4] [#Kbrtm('"a-cf')#Kbrtm('"b-df'):[#Kbrtm('"b-e-g')]]#Kbrtm('"b-e-g')[3 l16 '"b-e-g'rr]rrr };
Str GtrA = { EP(80) [4 #Kbrtm('"a-cf')#Kbrtm('"b-df'):[#Kbrtm('"b-e-g')]]#Kbrtm('"b-e-g')[3 l16 '"b-e-g'rr]rrr };
Str GtrB = { EP(127) q96 l16 `ca-cdfe-cd`cc`d`c b-ac+dgf"a"b-g"b-b-"b- [gf"e-"b-e-"b-"e-"ge-"b-g"b-]
				ca-cdfe-cd`cc`d`c "b-ac+dgf"a"b-g"b-b-"b- ["gf"e-"b-e-"b-"e-"g:e-"b-g"b-]['""b-"g"b-e-g'r]
				 "a-a-e-fa-ge-f`cc`c+`c "b-b-cc+b-acc+`fb-`gb- [e-`e-ab-`e-`dab-`e-b-`gb-] 
				 ca-cdfe-cd`cc`d`c "b-ac+dgf"a"b-g"b-b-"b- "gf"e-"b-e-"b-"e-"ge-"b-g"b- ['""b-8"g8"b-8e-8g8'r]'""b-"g"b-e-g'rrrrr};
Str GtrC = { EP(80) [4 #Kbrtm('"a-cf')#Kbrtm('"b-df'):[#Kbrtm('"b-e-g')]]#Kbrtm('"b-e-g')[3 l16 '"b-e-g'rr]rrr };
Str GtrD = { [4r2^4] };
Str GtrE = { l16 EP(90) q96 [4c`cce-`ce-ce-`cc`c+`c fa-"ffa-f"ffa-"f`cb : ["b-b-"b-fa-f"b-fa-f`cb]] gf"e-"b-e-"b-"e-"ge-"b-g"b- r2^4 };
Str GtrF = { EP(80) [[4 #Kbrtm('"a-cf')#Kbrtm('"b-df'):[#Kbrtm('"b-e-g')]]:#Kbrtm('"b-e-g')[3 l16 '"b-e-g'rr]rrr]
			[#Kbrtm('"b-e-g')][#Kbrtm('"a-cf'):#Kbrtm('"b-df')[#Kbrtm('"b-e-g')]]r2^4
			q96 EP.onNote(110,96)[11"e-12"e-24][16"e-24]EP(100) M(10)"e-4"e-2^4 };

Str KbdIn = { EP(100) [4r2^4] [#Kbrtm('fa-`c')#Kbrtm('dgb-'):[#Kbrtm('e-gb-')]]#Kbrtm('e-gb-')[3 l16 'e-gb-'rr]rrr };
Str KbdA = { EP(100) [4 #Kbrtm('fa-`c')#Kbrtm('dgb-'):[#Kbrtm('e-gb-')]]#Kbrtm('e-gb-')[3 l16 'e-gb-'rr]rrr };
Str KbdB = { EP(100) [4 #Kbrtm('fa-`c')#Kbrtm('dgb-'):[#Kbrtm('e-gb-')]]#Kbrtm('e-gb-')[3 l16 'e-gb-'rr]rrr };
Str KbdC = { EP(127) > l16 v100 q100 [c^'fa-`c''f8a-8`c8''fb-'['fa-`c'r]'fb-`c+'r "b-^'dfb-''d8f8b-8''fa-'['dfb-'r]'fa-`c'r :
							["e-^'"b-e-g''"b-8e-8g8''e-f'['"b-e-g'r]'e-fb-'r] ]
							gf"e-"b-e-g b-g"e-"b-e-g "b-e-g"b-gb-e-b- v127 [3'e-`gb-']r
							v127 [#Kbrtm('`c`e-`g')#Kbrtm('b`d`g'):#Kbrtm('gb-`e-')l8^16 q96 ['gb-`e-'] l8 q50 ['gb-`e-']'gb-`f']
							v100 q100 l16 "e-"g"b-"g"b-e- "b-e-ge-gb- gb-`e-b-`e-`g '`e-`g`b-'rrrrr < };
Str KbdD = {[4r2^4]};
Str KbdE = { EP(127) > l16 v127
				[4 l8^16 q96 ['dfb-`d'] l8 q50 ['dfb-`d']'dfb-`c+' l8^16 q96 ['cfa-`c'] l8 q50 ['cfa-`c']'cfa-`c+' : [l8^16 q96 ['"b-dfb-'] l8 q50 ['"b-dfb-']'"b-dfa-'] ]
				l8^16 q96 ['"b-e-gb-'] l8 q50 ['"b-e-gb-']'"b-e-a-' q100 [3 l16 'e-gb-'rr]rrr < };
Str KbdF = { EP(100) [[4 #Kbrtm('fa-`c')#Kbrtm('dgb-'):[#Kbrtm('e-gb-')]]:#Kbrtm('e-gb-')[3 l16 'e-gb-'rr]rrr]
					[#Kbrtm('e-gb-')][#Kbrtm('fa-`c'):#Kbrtm('dgb-')[#Kbrtm('e-gb-')]]Sub{'dgb-'}r2^4
					 EP(110) q100 l24 Sub{"e-^^^}Sub{r"g^^}Sub{rr"b-^}rrre- Sub{"g^^^}Sub{r"b-^^}Sub{rre-^}rrrg Sub{"b-^^^}Sub{re-^^}Sub{rrg^}rrrb-
					 Sub{e-^^^}Sub{rg^^}Sub{rrb-^}rrr`e- Sub{g^^^}Sub{rb-^^}Sub{rr`e-^}rrrg Sub{b-^^^}Sub{r`e-^^}Sub{rr`g^}rrr`b-
					 Sub{`e-^^^}Sub{r`g^^}Sub{rr`b-^}rrr``e- Sub{`g^^^}Sub{r`b-^^}Sub{rr``e-^}rrr`g Sub{`b-^^^}Sub{r``e-^^}Sub{rr``g^}rrr``b-4^8
					 v127 '``b-4^8```e-4^8''```e-1^2```g1^2'};
				
Str DrmIn = { l16 [3 Sub{[12n69]}n35rrn40rrn35rn40rn40r][3'n69n35n40'rr]rrr [7 Sub{[6n42r]}n35rrn40rrn35rn40rn40r][3'n35n40n42'rr]rn40r };
Str DrmA = { l16 [15 Sub{[6n42r]}n35rrn40rrn35rn40rn40r][3'n35n40n42'rr]rn40r };
Str DrmB = { l16 [15 Sub{[6n42r]}n35rrn40rrn35rn40rn40r][3'n35n40n42'rr]rn40r };
Str DrmC = { l16 [15 Sub{[6n42r]}n35rrn40rrn35rn40rn40r][3'n35n40n42'rr]rn40r };
Str DrmD = { l16 [3 Sub{[12n69]}n35rrn40rrn35rn40rn40r][3'n69n35n40'rr]rrr };
Str DrmE = { [15 Sub{[6n46r]}n35rrn40rrn35rn40rn40r][3'n35n40n46'rr]rn40r };
Str DrmF = { l16 [[15 Sub{[6n42r]}n35rrn40rrn35rn40rn40r]:[3'n35n40n42'rr]rn40r]
				[6 Sub{[6n42r]}n35rrn40rrn35rn40rn40r]Tempo(80)Sub{n49}r4^8 Tempo(70) r4^8 Tempo(100) 
				l24 [8n35r'n40n46']l12 EP.onTime(127,90,!1)[4'n40n46'][6n46]rrrrrEP(90) [n46rr]r1  };

Str BasIn = { [4r2^4]l16 [c^^f^^a-^`c^f^ "b-^^d^^f^b-^"b-^ : ["b-^^e-^^g^b-^g^]] "b-^^e-^^g^b-^g^ [e-rr] e-8&d8r8 };
Str BasA = { l16 [4c^^f^^a-^`c^f^ "b-^^d^^f^b-^"b-^ : ["b-^^e-^^g^b-^g^]] "b-^^e-^^g^b-^g^ [e-rr] e-8&d8r8 };
Str BasB = { l16 [4c^^f^^a-^`c^f^ "b-^^d^^f^b-^"b-^ : ["b-^^e-^^g^b-^g^]] "b-^^e-^^g^b-^g^ [e-rr] e-8&d8r8 };
Str BasC = { l16 [4c^^f^^a-^`c^f^ "b-^^d^^f^b-^"b-^ : ["b-^^e-^^g^b-^g^]] "b-^^e-^^g^b-^g^ [e-rr] e-8&d8r8 };
Str BasD = { l16 [3r2^4] [e-rr] e-4r8 };
Str BasE = { l16 [4c^^e-^^g^b-^e-^ "f^^"a-^^c^f^"a-^ : ["b-^^d^^f^a-^f^]] "b-^^e-^^g^b-^g^ [e-rr] e-8&d8r8 };
Str BasF = { l16 [[4c^^f^^a-^`c^f^ "b-^^d^^f^b-^"b-^ : ["b-^^e-^^g^b-^g^]] : "b-^^e-^^g^b-^g^ [e-rr] e-8&d8r8]
				["b-^^e-^^g^b-^g^][c^^f^^a-^`c^f^ : "b-^^d^^f^b-^"b-^ ["b-^^e-^^g^b-^g^]]b-2"b-4 q100 e-2^8[6d8&e-]M(10)e-1^2 };

//-----------------------------------Tracks--------------------------------------

TR(1)  Voice(57) V(100) M(0) REV(50) CHO(0) P(64) PitchBend(0) q100 v100 o5 #Scr(Trp)
TR(3)  Voice(1) V(100) M(0) REV(10) CHO(0) P(40) PitchBend(0) q100 v100 o5 #Scr(Kbd)
TR(6)  Voice(25) V(100) M(0) REV(20) CHO(0) P(88) PitchBend(0) q96 v100 o5 #Scr(Gtr)
TR(8)  Voice(33) V(100) M(0) REV(20) CHO(0) P(64) PitchBend(0) q98 v90 o3 #Scr(Bas)
TR(10) V(100) M(0) REV(10) CHO(0) P(64) v100 #Scr(Drm)