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

instr 12

k2 randh 3, 1, 1/(p2+p3)
k3 randh 7, 4, 1/(p2+p3)
a2 randh p5/8, 8+k3, 1/(p2+p3)
a3 randi p6/8, 4+k2, 1/(p2+p3)
kenv expseg .01, .1, p4*1000, p3-.2, p4*900, .1, .01

a1 fof kenv, p6+a3, p5+a2, 0, 40, .003, .02, .007, 100, 2, 1, p3, 0, 1

amove randi 2, 2, 1/(p2+p3)
a2 vdelay a1, 6+amove, 8
a3 vdelay a2, 6+amove, 8
a1=a1+a2+a3

a4 delay a1, .04

kpan randi .45, 1.2, .7/(p2+p3)
outs (.5+kpan)*a4, (1-(.5+kpan))*a1

endin