/* [FC] WRECKING CREW - BONUS STAGE - (C)Nintendo 1985 by LinearDrive */
/* date:2010-07-11 */
/* JASRAC:094-7292-4 */

#OCTAVE REVERSE

/* ＦＣ三角波定義 */
#WAV10 0,89ABCDEF FEDCBA98 76543210 01234567


/* 矩形波１ */
$A0= x0 @v71 @5@w4 @e1,0,2,95,8,0,2 o6 l16 q16 @q0;
$A1= /:2 q8 ecr<gr4>d<arfr4bgr>er4 q6 f12f12f12f12e12d12 :/ <
     /:6 q8 grbr>e<brgrgr>cgr<grgrbr>e<brarar>cgrcr< :/ 
;
$A2= o7 q8 gr<<b>>g<e<brgrgr>c> q6 f12e12f12 
        q8 er<<b>>c<e<brarar>c> q6 d12c12d12
        q8 er<<b>>g<e<brgrgr>cgr<gr>b>g<<br>e<bra>a>fr<cgrcr
;


/* 矩形波２ */
$B0= x0 @v95  @5@w4 @e1,0,8,0,0 o2 @l2400,48,-1,0,2,0 l16 q16 @q0;
$B1= /:8 r4ar8. :/
     /:4 ar8.ar8. /ar8.arar :/ >>dd<bb gg ee<
     /:8 r4ar8. :/
     /:4 ar8.ar8. 　ar8.arar :/
;
$B2= /:4 ar8.ar8.  ar8.arar :/
;


/* 三角波 */
$C0= x0 @v127 @10-0 @e1,0,0,127,0 o3 l16 q16 @q0;
$C1= q10 /:2 >>ccrer8gr ffrar8>cr<  ggrbr8>dr< ffrar8>cr<<< :/
         /:2 q14 c8.e8.g8 q10 ffr q14 a8.>c8<  q14 g8.q10 b>d< q14 b8. q10 ffr q14 a8.>c8< :/
     q10 /:2 >ccrer8gr ffrar8>cr<  gr8br8>dr< ffrar8>cr<< :/
         /:2 q14 c8.e8.g8 q10 ffr q14 a8.>c8<  q14 g8. q10 b>d< q14 b8. f8.a8.>c8< :/
;
$C2=     /:2 q14 c8.e8.g8 q10 ffr q14 a8.>c8<  q14 g8. q10 b>d< q14 b8. f8.a8.>c8< :/
;


/* ノイズ */
$DEnv0= @e1, 0, 8,　　0,0;
$DEnv1= @e1, 0, 8,103,16,0,0;
$DEnv2= @e1, 0,　8,　　0,0;

$na= c+;
$nb= $DEnv1 c+8 $DEnv0;
$nc= $DEnv2 a+  $DEnv0;

$D0= x0 @v79 @7 o0 l16 q16 @q0;
$D1= /:16 $DEnv0 $na$na $nb :/
     $DEnv0 $nc r $na$na r8$na$na r8$na$na r8$na$na
     /:3 r8$na$na r8$na$na r$nc$na$na $nc r $na$na :/
     $nc$na$na$na /:15 $na$na $DEnv1 $nb $DEnv0 :/
     /:4 $na$nc$na$na $nc$na$na$na $nc$na$na$na $nc$na$nc$na :/
;
$D2= /:4 $nc r $na$na $nc r $na$na $na$nc$na$na $nc r $na$na :/
;



/* 演奏 */
$LOOP= 64;
t150
r8 $A0$A1 /:$LOOP $A2 :/;
r8 $B0$B1 /:$LOOP $B2 :/;
r8 $C0$C1 /:$LOOP $C2 :/;
r8 $D0$D1 /:$LOOP $D2 :/;