sr = 44100
kr = 4410
ksmps = 10
nchnls = 2

ga1			init 0
ga2			init 0

         instr 1

;i1 start dur ibw iampscale iatk idec ifreq iharm1 iharm2 iharm3 iharm4
ibw       =         p4
iampscale = 		p5 ; 0 to 1
iatk	  =			p6
idec	  =			p7
ifreq     =			p8
iharm1	  = 		p9
iharm2	  =			p10
iharm3	  =			p11
iharm4    =			p12
;p13 = degree
;p14 = distance (1-10)
;p15 = revsend  (.1 - 1)
;a1       oscil     30000, 1/1.3113, 1
a1        rand      30000
kamp      expon     10, p3, 1
kmov      randi     10, 20
kenv	  linen		iampscale, iatk, p3, idec
af1       butterbp  a1, ifreq+kmov, ibw
af2       butterbp  a1, (ifreq*iharm1)+kmov, ibw
af3       butterbp  a1, (ifreq*iharm2)+kmov, ibw
af4       butterbp  a1, (ifreq*iharm3)+kmov, ibw
af5       butterbp  a1, (ifreq*iharm4)+kmov, ibw
          asig = (af1+af2+af3+af4+af5)*kamp*kenv
aleft, aright 	locsig	asig, p13, p14, p15
arevleft, arevright  locsend
  ga1 = ga1+arevleft
  ga2 = ga2+arevright
  
          endin

instr 2
;i1 0 DUR res1 res2 AMP SEED
ires1     =         p4
ires2     =         p5
ibf       =         .02
iamp      =         p6 ;*32767 * 50
iseed     =         p7
;p8 = degree
;p9 = distance
;p10 = revsend
ibw       =         p4*ibf
kenv      linseg    0,.2,iamp,.2,0
anoise    randi     10*32767, 30000, iseed
ares      reson     anoise,ires1,ibw,1
ares1     reson     ares,ires2,ibw,1
aleft, aright	locsig	ares1, p8, p9, p10
arevleft, arevright	locsend
ga1 = ga1 + arevleft
ga2 = ga2 + arevright

        endin
        
        
          instr 3
;f1 0 8192 10 1
;f2 0 8192 10 1 .5 .3 .2 .1 .1 0 0 .1 0 .05
;f3 0 8192 10 1 .2 .1          
;ins start dur ifreq gain vsp deg  dist  revsend
ifreq     =        p4 
ivsp      =         1 * p6 ;(0->2)
igain     =         500 * p5 ; (0->1)
ivd1      =         .0004/2
ivd2      =         .0001/2
ivs1      =         .00001
ivs2      =         .00001
iatk1     =         .05
iatk2     =         .4
idk       =         1.3
isust     =         p3 - (iatk1+iatk2+idk)
iddepth   =         .00002
kenv      linseg    0, iatk1, .1*igain, iatk2, igain, idk, igain*.2, isust, 0
kringenv  linseg    0, .02, igain*.5, 1.98, 0, p3-2, 0
kvd       line      ifreq*ivd1, p3, ifreq*ivd2
kvibr     oscil     1, ivsp,1    ;sine
kfreq     =         kvibr + ifreq
kfadedown line      1,p3,0
kfadeup   line      0,p3,1
     
kfstvib1  oscil     ifreq*.0002, ivs1, 1
kfstvib2  oscil     ifreq*.0002, ivs2, 1
kfreq1    =         kfreq; + kfstvib1
kfreq2    =         kfreq; + kfstvib2
     
asig1     oscil     kfadedown, kfreq1, 2     ; RICH WAVE
asig2     oscil     kfadeup, kfreq1, 3       ; FEW HARMONIX
amix1     =         asig1 + asig2
amod1     oscil     1.0, kfreq1*2 + (kfreq1*kfadeup*amix1*3),1
                                             
asig3     oscil     kfadedown, kfreq2, 2     ; RICH WAVE
asig4     oscil     kfadeup, kfreq2, 3       ; FEW HARMONIX
amix2     =         asig3 + asig4
amod2     oscil     1.0, kfreq2*2 + (kfreq2*kfadeup*amix2*3),1
     
aring     =         amod1*amod2*kringenv
aleft     =         (amix1 + amod1)*kenv + aring
aright    =         (amix2 + amod2)*kenv + aring
     asig = aleft + aright
          ;outs      aleft, aright
asigleft, asigright	locsig	asig, p7, p8, p9
arevleft, arevright	locsend
ga1 = ga1 + arevleft
ga2 = ga2 + arevright
          
          endin


instr 99

;p4 = revtimeleft
;p5 = diffleft (0=alldiffuse equally 1=higher freq diff faster)
;p6 = revtimeright
;p7 = diffright

a1                 reverb2 ga1, 2.5, .6
a2                 reverb2 ga2, 2.6, .65
                     outs    a1, a2
  ga1=0
  ga2=0
  ga3=0
  ga4=0
  endin