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

instr 19

irise=p3*p6

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

a13 butterhp a12, p5*8
a14 balance a13, a12

amove randi 6, 16, 1/(p2+p3)
amove=amove+8
a3 vdelay a14, amove, 20
a4 vdelay a3, amove, 20
a14=a14+a3+a4

a15 delay a14, .01
kpan randi .49, 5, 1/(p2+p3)
outs a15*(.5+kpan), a14*(1-(.5+kpan))
endin