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

instr 35

k1 expseg .1, .007, 8000*p4, p3-.007, 8000*p4
kenv linen k1, 0, p3, p3*.5
a1 pluck kenv, p5, 8192, 8, 6

a2 multitap a1, .001, .9, .002, .8, .003, .7, .004, .6
a1=a1+a2

atime expseg 1, .05, 3, p3-.05, 6
a3 vdelay a1, atime, 12
a4 vdelay a3, atime, 12
a5 vdelay a4, atime, 12
a5=a1+a3+a4+a5

a6 delay a5, .01

outs a6*p6, a5*(1-p6)
endin