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

instr 34

irise=.2
icombdel=p6

a1 rand 8000*p4
kbutterline line p5/55, p3, p5/11
a2 butterbp a1, p5, kbutterline
a3 comb a2, .2, icombdel
a4 comb a3, .2, icombdel
a5 comb a4, .2, icombdel

kgliss line 1, p3, 3
amove oscili 2, kgliss/p3, 1
amove=amove+2
a6 vdelay a5, amove, 4
a5=a5+a6

a8 delay a5, .04

kenv expseg .001, irise, 5, p3-irise, .001
outs a5*kenv*p7, a8*kenv*(1-p7)

endin