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

instr 15

ga1 init 0

k1 line 32, p3, 16
a11 rand 12
k11 randi p6/8, 4, 1/p2
a1 grain 50, p5, p6, 40, p5*.8, .1, 10, 2, .1

a4 multitap a1, .004, 1, .005, 1, .006, 1, .007, 1
kenv envlpx 28000*p4, .1, p3, p3-.2, 4, 1, .01
a2 oscili kenv, 440, 3
a3 balance a1, a2
ga1=ga1+a3
endin

instr 115
a1 comb ga1, .5, p4 ;lap time .2 to .8, delay time .005 to .01
kgliss line 1, p3, 2
amove oscili 2, kgliss/p3, 3
amove=amove+4
a11 vdelay a1, amove, 12
a12 vdelay a11, amove, 12
a1=a1+a11+a12
a2 delay a1, .04
outs 20*a1, 20*a2
ga1=0
endin