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

instr 18

irise = p3*p7
iloc = (p8 = 1 ? .1 : .9)

kenv expseg .01, irise, p4*6000, p3-irise, .01
a1 rand kenv
a2 butterbp a1, p5, p5
a12 balance a2, a1

agliss line 1, p3, p6
a3 vdelay a12, agliss, 16
a4 vdelay a3, agliss, 16
a5 vdelay a4, agliss, 16
a6 vdelay a5, agliss, 16
a12=a12+a3+a4+a5+a6

a20 delay a12, .01

kpan expseg iloc, irise, .5, p3-irise, (1-iloc)
outs a12*kpan, a20*(1-kpan)

endin