//------------------------------------------------------------------------------
// テキスト音楽「サクラ」音楽データ (dSakura.dll Version.2.384)
//------------------------------------------------------------------------------
曲名{"ツインビー"}
作者{"korin"}
コメント{"ファミコンゲームの古い曲ですが、まだ今でも現役で聴けます。とっても良い曲ですね！"}
//------------------------------------------------------------------------------
System.MeasureShift(-2)		//初期設定を2小節前に済ませる
拍子4,4
テンポ(150)
調#()             // C

Function Fade_inout(Int Min,Int Max,Int Len){
	Expression.onTime(Min,Max,Len/3,Max,Max,Len/3,Max,Min,Len/3);
}
Function Fade_in(Int Min,Int Max,Int Len){
	Expression.onTime(Min,Max,Len);
}
Array StartVoice=(100,90,40);	//スタートパートボイス
Array MainVoice1=(90,14,33);	//立ち上がりパートボイス
Array MainVoice2=(55,89,102);	//メインパートボイス

Array BaseVoice1=(79,81);	//スタートベースパートボイス
Array BaseVoice2=(93,39);	//メインベースパートボイス

TB = 96;
System.TimeBase(TB);

// ----- メイン1 ------
TR(1);
CH(1);
l%(TB*4) r
P.onCycle(!16,0,31,!16,32,63,!16,64,95,!16,96,127)

@( StartVoice(0) ) CHO(16) REV(24) EP(100) o5 q96 l%(TB)
r l%(TB/3) g>cg l%(TB) fe l%(TB/3) fec l%(TB) <g!2. l%(TB/3) 'gb,50>d,50'r'<g,50>c,50e,50' l%(TB) '<g!2>c!2e!2' '<ea>c' '<g!2.b!2.>d!2.' r

@( MainVoice1(0) ) l%(TB*4)	Fade_inout(20,100,!1^1) e^ Fade_inout(20,100,!1^1) d^
					Fade_inout(20,100,!1^1) e^ Fade_inout(20,100,!1^1) d^

@( MainVoice2(0) )
l%(TB/2) Fade_in(20,100,!32) [ercg^efg^!2. erdra!4^fga^!2g!4f!4]
l%(TB*4) r^^^^^^^

l%(TB/2) ercg^efg^!2a!4g!4f!4.>cc!2^2<a>f!4f
[[f!4ge^cde][f!4gc^!2]]
<b!4.>cr!4<b^!4 >cr!4d!4c!4d!4.e^!1 d!4e!4 <b!4.>cr!4<b^!4 >cr!4d!4c!4d!4.e^!1.

// ----- メイン2 ------
TR(2);
CH(2);
l%(TB*4) r
P.onCycle(!16,127,96,!16,95,64,!16,63,32,!16,31,0)

@( StartVoice(1) ) CHO(16) REV(24) EP(100) o5 q96 l%(TB) >
r l%(TB/3) g>cg l%(TB) fe l%(TB/3) fec l%(TB) <g!2. l%(TB/3) 'gb,50>d,50'r'<g,50>c,50e,50' l%(TB) '<g!2>c!2e!2' '<ea>c' '<g!2.b!2.>d!2.' r

@( MainVoice1(1) ) l%(TB*4)	Fade_inout(20,100,!1^1) e^ Fade_inout(20,100,!1^1) d^
					Fade_inout(20,100,!1^1) e^ Fade_inout(20,100,!1^1) d^

@( MainVoice2(1) ) <
l%(TB/2) Fade_in(20,100,!32) [ercg^efg^!2. erdra!4^fga^!2g!4f!4]
l%(TB*4) r^^^^^^^

l%(TB/2) ercg^efg^!2a!4g!4f!4.>cc!2^2<a>f!4f
[[f!4ge^cde][f!4gc^!2]]
<b!4.>c r!4 <b^!4 >cr!4d!4c!4d!4.e^!1 d!4e!4 <b!4.>cr!4<b^!4 >cr!4d!4c!4d!4.e^!1.


// ----- メイン3 ------
TR(3);
CH(3);
l%(TB*4) r
P.W(32,96,!8)

@( StartVoice(2) ) CHO(16) REV(24) EP(100) o5 q96 l%(TB)
r l%(TB/3) g>cg l%(TB) fe l%(TB/3) fec l%(TB) <g!2. l%(TB/3) 'gb,50>d,50'r'<g,50>c,50e,50' l%(TB) '<g!2>c!2e!2' '<ea>c' '<g!2.b!2.>d!2.' r

@( MainVoice1(2) ) l%(TB*4)	Fade_inout(20,100,!1^1) e^ Fade_inout(20,100,!1^1) d^
					Fade_inout(20,100,!1^1) e^ Fade_inout(20,100,!1^1) d^

@( MainVoice2(2) )	
l%(TB/2) Fade_in(20,100,!32) [ercg^efg^!2. erdra!4^fga^!2g!4f!4]
l%(TB*4) r^^^^^^^

l%(TB/2) ercg^efg^!2a!4g!4f!4.>cc!2^2<a>f!4f
[[f!4ge^cde][f!4gc^!2]]
<b!4.>cr!4<b^!4 >cr!4d!4c!4d!4.e^!1 d!4e!4 <b!4.>cr!4<b^!4 >cr!4d!4c!4d!4.e^!1.


// ----- ベース1 ------
TR(4);
CH(4);
l%(TB*4) r

@( BaseVoice1(0) ) EP(70) o5 q96 l%(TB/3)
grg ggg grg ggg grg ggg grg ggg dre l%(TB) e!2 c d!2. r <

l%(TB/2) @( BaseVoice2(0) )
	   cccc cccc cccc c!16c!16ccc <b-b-b-b-b-b-b-b- b-b-b-b-b-!16b-!16b-b-b- >
	   cccc cccc cccc c!16c!16ccc <b-b-b-b-b-b-b-b- b-b-b-b-b-!16b-!16b-b-!16b-!16b- >

	   cccc cccc cccc c!16c!16ccc <b-b-b-b-b-b-b-b- b-b-b-b-b-!16b-!16b-b-b- >
	   cccc cccc cccc c!16c!16ccc <b-b-b-b-b-b-b-b- b-b-b-b-b-!16b-!16b-b-!16b-!16b-
	   [ [aaaa aae!16g!16a] [gggg ggd!16f!16g] ]
	   
	   >cccc cccc cccc c!16c!16ccc <ffff ffff ffff ffff
	   [>[4 c>c<c>c<]<[f>f<f>f<][g>g<g>g<]]
	   [ffff ffc!16d!16f] >[cccc ccc!16c!16c]< [ffff ffc!16d!16f] >cccc ccc!16c!16c <gggg ggg!16g!16g
	   [aaaa aae!16g!16a][gggg ggd!16f!16g]
	   ffff ffc!16d!16f gggg ggd!16f!16g
	   a-a-a-a- a-a-e-!16f!16a- b-b-b-b- b-b-f!16a-!16b- >crr!4r!2r!1
// ----- ベース2 ------
TR(5);
CH(5);
l%(TB*4) r


@( BaseVoice1(1) ) EP(70) o5 q96 l%(TB/3)
grg ggg grg ggg grg ggg grg ggg dre l%(TB) e!2 c d!2. r <

l%(TB/2) @( BaseVoice2(1) )
	   cccc cccc cccc c!16c!16ccc <b-b-b-b-b-b-b-b- b-b-b-b-b-!16b-!16b-b-b- >
	   cccc cccc cccc c!16c!16ccc <b-b-b-b-b-b-b-b- b-b-b-b-b-!16b-!16b-b-!16b-!16b- >
	  
	   cccc cccc cccc c!16c!16ccc <b-b-b-b-b-b-b-b- b-b-b-b-b-!16b-!16b-b-b- >
	   cccc cccc cccc c!16c!16ccc <b-b-b-b-b-b-b-b- b-b-b-b-b-!16b-!16b-b-!16b-!16b- 
	   [ [aaaa aae!16g!16a] [gggg ggd!16f!16g] ]
	   
	   >cccc cccc cccc c!16c!16ccc <ffff ffff ffff ffff
	   [>[4 c>c<c>c<]<[f>f<f>f<][g>g<g>g<]]
	   [ffff ffc!16d!16f] >[cccc ccc!16c!16c]< [ffff ffc!16d!16f] >cccc ccc!16c!16c <gggg ggg!16g!16g
	   [aaaa aae!16g!16a][gggg ggd!16f!16g]
	   ffff ffc!16d!16f gggg ggd!16f!16g
	   a-a-a-a- a-a-e-!16f!16a- b-b-b-b- b-b-f!16a-!16b- >crr!4r!2r!1
// ----- ドラム ------
TR(10);
CH(10);

Time(TB*4*5)	//1小節の休符を挟んでいるため +r1
q92 o2 EP(80)
l%(TB/2)
Str Part1 = {b b >d <b}
Str Part2 = {b!16 b!16 >d <b!16 b!16 >d<}
Str Part3 = {b >d d!16d!16 d}

[8 Part1]
[7 Part1] Part2
		
[8 Part1]
[7 Part1] Part2
		
[16 Part1]
[8 Part1]
			
[16 Part1]
[16 Part1]
			
[16 Part1]
[3 Part1] Part3