sr = 44100
kr = 441
ksmps= 100
nchnls = 2

instr 6

irise = .7

kenv1 expseg .01, irise, p4*1200, p3-irise,.01
k1 randi p5*.05, 1, .2/(p2+p3)
k2 randi p5*.25, .1, .3/(p2+p3)
a1 oscili kenv1, p5+k1+k2, 10

kenv11 expseg .01, irise, p4*.83*1200, p3-irise,.01
k11 randi p5*.05*1.154, 1, .2/(p2+p3)
k12 randi p5*.25*1.154, .1, .3/(p2+p3)
a11 oscili kenv11, p5*1.154+k11+k12, 10

kenv21 expseg .01, irise, p4*.33*1200, p3-irise,.01
k21 randi p5*.051*.417, 1, .2/(p2+p3)
k22 randi p5*.25*1.417, .1, .3/(p2+p3)
a21 oscili kenv21, p5*1.417+k21+k22, 10

kenv31 expseg .01, irise, p4*.67*1200, p3-irise,.01
k31 randi p5*.05*1.604, 1, .2/(p2+p3)
k32 randi p5*.25*1.604, .1, .3/(p2+p3)
a31 oscili kenv31, p5*1.604+k31+k32, 10

kenv41 expseg .01, irise, p4*1200, p3-irise,.01
k41 randi p5*.05*2.521, 1, .2/(p2+p3)
k42 randi p5*.25*2.521, .1, .3/(p2+p3)
a41 oscili kenv41, p5*2.521+k41+k42, 10

kenv51 expseg .01, irise, p4*.33*1200, p3-irise,.01
k51 randi p5*.05*2.792, 1, .2/(p2+p3)
k52 randi p5*.25*2.792, .1, .3/(p2+p3)
a51 oscili kenv51, p5*2.792+k51+k52, 10

kenv61 expseg .01, irise, p4*.33*1200, p3-irise,.01
k61 randi p5*.05*3.383, 1, .2/(p2+p3)
k62 randi p5*.25*3.383, .1, .3/(p2+p3)
a61 oscili kenv61, p5*3.383+k61+k62, 10

a1=a1+a11+a21+a31+a41+a51+a61

a2 reverb a1, 2
a2=a1+a2

a22 reverb a1, 2.4
a22=a1+a22
a3 delay a22, .1

kenv71 expseg .001, irise, 1, p3*.5, 1, p3*.5-irise, .001
kenv72 expseg .001, irise, 1, p3*.5, 1, p3*.5-irise-.1, .001

outs a2*kenv71, a3*kenv72
endin