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

instr 9

irise=.12
kenv expseg .01, irise, 6000*p4, p3*.1, 4800*p4, p3*.5, 4400*p4, p3*.4-irise, .01

k1 randi .5, .5, .4
k2 randi 1, .4, .3
k3 randi 2, .6, .8
k4 randi 4, .2, .2
k5 randi 8, .8, .5
k6 randi 16, .1, .9
k7 randi 32, .9, .2
krandrate randh 1, 1, 1/(p2+p3)
krand randi p5/90, 2+krandrate, 1/(p2+p3)
a1 oscili p5*8, (2.1*(p5+krand))+k1, 1
a2 oscili p5*8, (4.1*(p5+krand))+k2, 1
a3 oscili p5*8, (6.1*(p5+krand))+k4, 1
a4 oscili p5*8, (8.1*(p5+krand))+k2, 1
a5 oscili p5*8, (10.1*(p5+krand))+k5, 1
a6 oscili p5*8, (12.1*(p5+krand))+k6, 1
a7 oscili p5*8, (14.1*(p5+krand))+k7, 1
acar1 oscili kenv, (p5+krand)+a1+a2+a3+a4+a5+a6+a7, 1
acar2 oscili kenv, 1.7*((p5+krand)+a1+a2+a3+a4+a5+a6+a7), 1

amove randi 7, .3, 1/(p2+p3)
amove=amove+9
acar21 vdelay acar1, amove, 20
acar22 vdelay acar21, amove, 20
acar23 vdelay acar22, amove, 20
acar24 vdelay acar23, amove, 20
acar21=acar1+acar21+acar22+acar23+acar24

amove randi 6, .4, .7/(p2+p3)
amove=amove+8
acar25 vdelay acar2, amove, 20
acar26 vdelay acar25, amove, 20
acar27 vdelay acar26, amove, 20
acar28 vdelay acar27, amove, 20
acar25=acar2+acar25+acar26+acar27+acar28

outs acar21, acar25
endin