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

instr 16

k2 randi p6/4, 4, .3/(p2+p3)
a1 grain p4*12000, p5, p6+k2, p4/400, p5/110, .2, 10, 2, .2

amove randi 3, 8, 1/(p2+p3)
amove=amove+5
a3 vdelay a1, amove, 10
a4 vdelay a3, amove, 10
a3=a1+a3;+a4

amove randi 2, 6, .3/(p2+p3)
amove=amove+4
a5 vdelay a1, amove, 10
a6 vdelay a5, amove, 10
a5=a1+a5;+a6

a9 delay a5, .02

if p3 > 2 goto altenv
irise=.04
kenv expseg .01, irise, 1, p3-(irise*2), .8, irise, .01
goto start

altenv:
irise=p3*.9
kenv expseg .01, irise, 1, p3-irise, .01

start:
kpan randi .45, .7, .7/(p2+p3)
outs (.5+kpan)*a3*kenv, (1-(.5+kpan))*a9*kenv
endin