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

instr 20

irise=p3*p7 ;irise p3*.5 to p3*.9
kenv expseg .01, irise, p4*8000, p3-irise, .01
kwah randi p6*2.85, 8, 1/(p2+p5)
a1 foscili kenv, p5, 2, p6, p6*3+kwah, 1

kgliss line 1, p3, 3
amove oscili 4, kgliss/p3, 1
amove=amove+2
a2 vdelay a1, amove, 4
a3 vdelay a2, amove, 4
a1=a1+a2+a3

a4 delay a1, .04

outs p7*a1, (1-p7)*a1

endin