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

instr 1

;ar grain xamp, xpitch, xdens, kampoff, kpitchoff, kgdur, igfn, ienvfn, imgdur [, igrnd]
k2 randi 8, 4, .3/(p2+p3)
a1 grain p4*12000, p5, 9+k2, p4/4, p5/2, .02, 10, 2, .02
a2 comb a1, p7, p6 ;lap time .2 to 4 or more (reverb time), delay time .005 to .01 (influences pitch)

kgliss line 1, p3, 2
amove oscili 2, kgliss/p3, 3
amove=amove+4
a3 vdelay a2, amove, 18
a4 vdelay a3, amove, 18
a5 vdelay a4, amove, 18
a6 vdelay a5, amove, 18
a2=a2+a3+a4;+a5+a6
a9 delay a2, .02

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

endin