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

instr 36

irise=.04
kenv expseg .001, irise, p4*1600, p3*.1, p4*1400, p3*.9-irise, .001
a1 pluck kenv, p5, 64, 1, 4, .005, 4

a3 comb a1, 1, p6

amove oscili 2, 1/p3, 3
amove=amove+6
a4 vdelay a3, amove, 12
a5 vdelay a4, amove, 12
a5=a3+a4+a5

a8 delay a5, .02

outs a5*p7, a8*(1-p7)

endin