{Composed by Hung-Yan Gu, Dept. CSIE, NTUST, Taipei, Taiwan}

#include "cmusic.h"
set functionlength 16384;
set seed 1000;

ins 0 gun
   signum   b3 p8;
   adn      b4 b3 1;
   osc      b1 p5 p6 f1 d;
   iosc     b2 p7 1. f2 d;
   osc	    b5 b1 b2 f3 d;
   mult     b6 b5 b4;
   out      b6;
end;

ins 0 bomb
   osc      b1 p5 p6 f4 d;
   iosc     b2 p7 1. f2 d;
   osc	    b3 b1 b2 f3 d;
   out      b3;
end;

ins 0 fsw
   osc      b1 p5 p6 f5 d;
   trans    b2 d d d  0,p7  0  1,p8 ;
   osc	    b3 b1 b2 f3 d;
   out      b3;
end;


GEN4(f1) 0,0  -1  .2,1   -4   1,0 ;
GEN4(f4) 0,0  -1  .1,1   -1   1,0 ;
GEN4(f5) 0,0  -1  .1,1    0   .9,1  -5   1,0 ;
GEN6(f2) ;
SINE(f3) ;

#define gunf 8000
#define gung 4000
#define GUN(xx,yy)    note  p2+p4  gun  xx+rand(0.05)  -18dB  p4sec  (yy)Hz  abs(rand(1)-0.5)-0.125
#define GUM(xx,yy)    note  p2+p4+0.2  gun  xx+rand(0.05)  -15dB  p4sec  (yy)Hz  abs(rand(1)-0.5)-0.2
#define BOMB(xx,yy)   note  p2+p4  bomb xx+rand(0.2)   -6dB   p4sec  (yy)Hz
#define FSW(xx,f1,f2) note  p2+p4+rand(1)  fsw  xx+rand(0.2)  -18dB  p4sec  (f1)Hz  (f2)Hz

merge; 

GUN(0.08,gunf);  GUN(0.08,gunf);  GUN(0.08,gunf);  GUN(0.08,gunf);  GUN(0.08,gunf);
GUN(0.08,gunf);  GUN(0.08,gunf);  GUN(0.08,gunf);  GUN(0.08,gunf);  GUN(0.08,gunf);
GUN(0.08,gunf);  GUN(0.08,gunf);  GUN(0.08,gunf);  GUN(0.08,gunf);  GUN(0.08,gunf);
GUN(0.08,gunf);  GUN(0.08,gunf);  GUN(0.08,gunf);  GUN(0.08,gunf);  GUN(0.08,gunf);
GUN(0.08,gunf);  GUN(0.08,gunf);  GUN(0.08,gunf);  GUN(0.08,gunf);  GUN(0.08,gunf);
GUN(0.08,gunf);  GUN(0.08,gunf);  GUN(0.08,gunf);  GUN(0.08,gunf);  GUN(0.08,gunf);
GUN(0.08,gunf);  GUN(0.08,gunf);  GUN(0.08,gunf);  GUN(0.08,gunf);  GUN(0.08,gunf);
GUN(0.08,gunf);  GUN(0.08,gunf);  GUN(0.08,gunf);  GUN(0.08,gunf);  GUN(0.08,gunf);
GUN(0.08,gunf);  GUN(0.08,gunf);  GUN(0.08,gunf);  GUN(0.08,gunf);  GUN(0.08,gunf);
GUN(0.08,gunf);  GUN(0.08,gunf);  GUN(0.08,gunf);  GUN(0.08,gunf);  GUN(0.08,gunf);
GUN(0.08,gunf);  GUN(0.08,gunf);  GUN(0.08,gunf);  GUN(0.08,gunf);  GUN(0.08,gunf);
GUN(0.08,gunf);  GUN(0.08,gunf);  GUN(0.08,gunf);  GUN(0.08,gunf);  GUN(0.08,gunf);
GUN(0.08,gunf);  GUN(0.08,gunf);  GUN(0.08,gunf);  GUN(0.08,gunf);  GUN(0.08,gunf);
GUN(0.08,gunf);  GUN(0.08,gunf);  GUN(0.08,gunf);  GUN(0.08,gunf);  GUN(0.08,gunf);
GUN(0.08,gunf);  GUN(0.08,gunf);  GUN(0.08,gunf);  GUN(0.08,gunf);  GUN(0.08,gunf);
GUN(0.08,gunf);  GUN(0.08,gunf);  GUN(0.08,gunf);  GUN(0.08,gunf);  GUN(0.08,gunf);
GUN(0.08,gunf);  GUN(0.08,gunf);  GUN(0.08,gunf);  GUN(0.08,gunf);  GUN(0.08,gunf);
GUN(0.08,gunf);  GUN(0.08,gunf);  GUN(0.08,gunf);  GUN(0.08,gunf);  GUN(0.08,gunf);
GUN(0.08,gunf);  GUN(0.08,gunf);  GUN(0.08,gunf);  GUN(0.08,gunf);  GUN(0.08,gunf);
GUN(0.08,gunf);  GUN(0.08,gunf);  GUN(0.08,gunf);  GUN(0.08,gunf);  GUN(0.08,gunf);

endsec;

BOMB(0.5,1);
FSW(2,2000,500);  BOMB(1,2000);  
FSW(2.5,2000,500);  BOMB(1,3000);

endsec;

GUM(0.2,gung);  GUM(0.2,gung);  GUM(0.2,gung);  GUM(0.2,gung);  GUM(0.2,gung);
GUM(0.2,gung);  GUM(0.2,gung);  GUM(0.2,gung);  GUM(0.2,gung);  GUM(0.2,gung);
GUM(0.2,gung);  GUM(0.2,gung);  GUM(0.2,gung);  GUM(0.2,gung);  GUM(0.2,gung);
GUM(0.2,gung);  GUM(0.2,gung);  GUM(0.2,gung);  GUM(0.2,gung);  GUM(0.2,gung);
GUM(0.2,gung);  GUM(0.2,gung);  GUM(0.2,gung);  GUM(0.2,gung);  GUM(0.2,gung);

endsec;
endmerge;

ter;