sr = 44100
kr = 2205
ksmps= 20
nchnls = 2

instr 10

kamprand randi 400*p4, 1, .3/(p2+p5)
kenv linen (500*p4)+kamprand, .02, p3, .04

kenv expseg .01, .1, 500*p4, p3-.3, 450*p4, .2, .01
krand randi p5/20, 2, 1/(p2+p5)
krandrand randi .4, 1, .3/p2
krand2 randh p5/20, .5+krandrand, .7/p2
a1 gbuzz kenv, p5+krand, p6, 1, 2, 1 ;p6: 4 to 12 partials

k1 randi .003, 2, 1/(p2+p5)

adump delayr 1
amove deltapi .004+k1
delayw a1
a2=a1+amove

;adump delayr 1
amove deltapi .004+k1
delayw a2
a3=a2+amove

adump delayr 1
amove deltapi .004+k1
delayw a3
a4=a3+amove

adump delayr 1
amove deltapi .004+k1
delayw a4
a5=a4+amove

a6 delay a5, .1

kpan randi .45, .7, .7/(p2+p3)
outs (.5+kpan)*a5, (1-(.5+kpan))*a6
endin