一面の曲。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< ;