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

instr 23

irise=.4
kenv expseg .01, irise, p4*4000, p3*.2, p4*1600, p3-irise-p3*.2, .01
kwah randi 8, 8, 1/(p2+p3)

krand randi p5*.4, 16, 1/(p2+p3)
a1 foscili kenv, p5+krand, p6, p5/440, 12+kwah, 1

amove line 8, p3, 4
a2 vdelay a1, amove, 8
a3 vdelay a2, amove, 8
a1=a1+a2+a3

a4 delay a1, .04

outs a1*p8, a4*(1-p8)

endin