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

instr 17

a1 grain p4*4000, p5, 128, p4/50, p5/55, .2, 10, 2, .2
a2 comb a1, .5, p7

amove randi 2, 12, 1/(p2+p3)
amove=amove+4
a3 vdelay a2, amove, 6
a4 vdelay a3, amove, 6
a4=a4+a3+a2

a9 delay a4, .02

kpan line p8, p3, 1-p8
irise=p3*p6 ;p6 .1-.4
kenv expseg .001, irise, 1, p3-irise, .001
outs a4*kenv*kpan, a9*kenv*(1-kpan)
endin