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

instr 13

k2 randi 8, 4, .3/(p2+p3)
a1 grain p4*12000, p5, 9+k2, p4/4, p5/2, .02, 10, 2, .02

kgliss line 1, p3, 2
amove oscili 8, kgliss/p3, 12
amove=amove+2
a3 vdelay a1, amove, 18
a4 vdelay a3, amove, 18
a5 vdelay a4, amove, 18
a6 vdelay a5, amove, 18
a1=a1+a3+a4+a5+a6
a9 delay a1, .02

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

endin