大和但馬屋日記

はてなダイアリーからの移行中

グラディウス 火山ステージ

一面の曲。PC-66SRやX68000で何度も何度も作り直したけどこの音は出せなかつた。
矩形波つて面白いなー!! 矩形波最高。

$bass1=t134 l16 o4 @3 q15 v5 @E1,0,16,16,1 @D0 @w49 ;
$bass2=t134 l16 o3 @1 q15 v5 @E1,0,16,8,1 @D2 ;
$melody1=t134 @3 o5 l16 q16 v6 @D-4 @w12 ; 
$melody2=t134 @3 o5 l16 q16 v6 @D4 @w52 ; 
$melody3=t134 @3 o7 l16 q16 v3 @E1,0,24,32,8 @D-4 @w17 ; 
$melody4=t134 @3 o7 l16 q16 v3 @E1,0,32,48,8 @D6 @w72 ; 
$m1long=@E1,1,96,96,16 ;
$m1short=@E1,1,32,28,0 ;
$m2long=@E1,2,96,96,16;
$m2short=@E1,2,42,32,6 ;
$m3long=@E1,1,126,96,32;
$m3short=@E1,1,27,32,32 ;
$m4long=@E1,2,126,96,32 ;
$m4short=@E1,2,64,32,32 ;


$bass1
/:4
/:4 c8<cc> :/ /:4 e-8<e-e->:/ /:4 f8<ff> :/ /:2 a-8<a-a-> :/ /:2 b-8<b-b->:/
/:4 c8<cc> :/ /:4 e-8<e-e->:/ /:4 f8<ff> :/ /:4 g8<gg> :/
/:4 a-<a-e-a-> :/ /:4 e-<e->b-<e-> :/
/:2 f<fcf> :/ /:2 g<gdg> :/ /:2 a-<a-e-a-> :/ /:2 b-<b-fb-> :/ /:4 g8<gg> :/
:/
;

$bass2
/:4
/:4 c8<cc> :/ /:4 e-8<e-e->:/ /:4 f8<ff> :/ /:2 a-8<a-a-> :/ /:2 b-8<b-b->:/
/:4 c8<cc> :/ /:4 e-8<e-e->:/ /:4 f8<ff> :/ /:4 g8<gg> :/
/:4 a-<a-e-a-> :/ /:4 e-<e->b-<e-> :/
/:2 f<fcf> :/ /:2 g<gdg> :/ /:2 a-<a-e-a-> :/ /:2 b-<b-fb-> :/ /:4 g8<gg> :/
:/
;

$melody1
/:4 $m1short
g4g8.<cf8e4c8 g8.>b-b-4.ga-b-<e-fg c8.>a8.<c4f8>ab<cd e-8c>a-8<e-8cf8d>b-8<df8>
g4g8.<cf8e4c8 g8.>b-b-4.ga-b-<e-fg a8cc8.f8g8a4f8d8. $m1long g&g2. $m1short
c8.e-8. $m1long a-8&a-2 $m1short >b-8.<d8. $m1long e-8&e-2 $m1short
>ab-<cf&f4 >b<cdg&g4 cde-a-&a-4 de-fb-&b-8< $m1long c8& c4..r >b4..r>
:/
;

$melody2
/:4 $m2short
g4g8.<cf8e4c8 g8.>b-b-4.ga-b-<e-fg c8.>a8.<c4f8>ab<cd e-8c>a-8<e-8cf8d>b-8<df8>
g4g8.<cf8e4c8 g8.>b-b-4.ga-b-<e-fg a8cc8.f8g8a4f8d8. $m2long g&g2. $m2short
c8.e-8. $m2long a-8&a-2 $m2short >b-8.<d8. $m2long e-8&e-4..r $m2short
>ab-<cf&f4 >b<cdg&g4 cde-a-&a-4 de-fb-&b-8< $m2long c8& c4..r>b4..r>
:/
;

$melody3
/:4
/:2 c>bagfgab< :/ /:2 c>b-a-gfga-b-< :/
/:2 c>bagfgab< :/ c>b-a-gfga-b-< cde-dc>b-a-b-<
/:2 c>bagfgab< :/ /:2 c>b-a-gfga-b-< :/
/:2 c>bagfga/b< :/ f <dc>bagab<c dc>bagb<dg
v7 o6 $m3short
e-8.c8. $m3long e-4. $m3short cde-r d8.>b-8. $m3long g8&g4..r $m3short
<c8.>a8.<cc d8.>b8.<dd e-8.c8.e-f f8.d8. $m3long g8&g1
o7 v3 @E1,0,32,32,8
:/
;

$melody4
/:4
/:2 c>bagfgab< :/ /:2 c>b-a-gfga-b-< :/
/:2 c>bagfgab< :/ c>b-a-gfga-b-< cde-dc>b-a-b-<
/:2 c>bagfgab< :/ /:2 c>b-a-gfga-b-< :/
/:2 c>bagfga/b< :/ f <dc>bagab<c dc>bagb<dg
v7 o6 $m4short
e-8.c8. $m4long e-4. $m4short cde-r d8.>b-8. $m4long g8&g2 $m4short
<c8.>a8.<cc d8.>b8.<dd e-8.c8.e-f f8.d8. $m4long g8&g1
o7 v3 @E1,0,16,48,8
:/
;

おまけのファミコン版風。調が違ふかもしれないけど気にしない。アーケード版から完全四度にピッチシフトしてみた。これで合つてると思ふ。
ベースの最後のところを修正。
全体をさらに半音上げた。これで完成かな。

$bass1=t145 l16 o3 @2 q13 v12 @E1,1,32,32,0 @D600 ;
$melody1=t145 @3 o4 l16 q16 v6 @D600 @w12 ; 
$melody3=t145 @3 o7 l16 q16 v2 @E1,0,127,127,64 @D600 @w26 ; 
$m1long=@E1,0,127,24,0 ;
$m1short=@E1,0,96,24,0 ;

$bass1
/:4
/:4 cr<cc> :/ /:4 e-r<e-e->:/ /:4 fr<ff> :/ /:2 a-r<a-a-> :/ /:2 b-r<b-b->:/
/:4 cr<cc> :/ /:4 e-r<e-e->:/ /:4 fr<ff> :/ /:4 gr<gg> :/
/:4 a-<a-e-a-> :/ /:4 e-<e->b-<e-> :/
/:2 f<fcf> :/ /:2 g<gdg> :/ /:2 a-<a-e-a-> :/ /:2 b-<b-fb-> :/ /:4 <cr<cc>> :/
:/
;

$melody1
/:4 $m1short
g4g8.<cf8e4c8 g8.>b-b-4.ga-b-<e-fg c8.>a8.<c4f8>ab<cd e-8c>a-8<e-8cf8d>b-8<df8>
g4g8.<cf8e4c8 g8.>b-b-4.ga-b-<e-fg a8cc8.f8g8a4f8d8. $m1long g&g2. $m1short
e-8.c8. $m1long e-4. $m1short cde-8 d8.>b-8. $m1long g8&g2 $m1short
ab-<cf&f8c8 >b<cdg&g8d8 cde-a-&a-8e-8 de-fb-&b-8< $m1long c8& c2 c2>>
:/
;

$melody3
/:4
/:2 c>bagfgab< :/ /:2 c>b-a-gfga-b-< :/
/:2 c>bagfgab< :/ c>b-a-gfga-b-< cde-dc>b-a-b-<
c>bagfgab< v1 c>bag v0 fgab<
;