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

instr 1
k1 randi .0625, .5, .4
k2 randi .125, .4, .3
k3 randi .25, .6, .8
k4 randi .5, .2, .2
k5 randi 1, .8, .5
k6 randi 2, .1, .9
k7 randi 4, .9, .2

krandrate randi 1.8, .5, 1.2/(p2+p3)
krandpch randi .02*p5, 2+krandrate, 1/(p2+p3)
kranddist randi 2, 2, 1/(p2+p3)
krand randi .9*p6, .7, 1/(p2+p3)

a1 oscili p6+krand, (2*(p5+krandpch))+k1+kranddist, 1
a2 oscili p6+krand, (3*(p5+krandpch))+k2+kranddist, 1
a3 oscili p6+krand, (4*(p5+krandpch))+k3+kranddist, 1
a4 oscili p6+krand, (5*(p5+krandpch))+k4+kranddist, 1
a5 oscili p6+krand, (6*(p5+krandpch))+k5+kranddist, 1
a6 oscili p6+krand, (7*(p5+krandpch))+k6+kranddist, 1
a7 oscili p6+krand, (8*(p5+krandpch))+k7+kranddist, 1

kenv expseg .01, .2, 18000*p4, p3-.2, .01 ;envelope
kmod oscili kenv, p7, 1 ;ampmod 5 to 7
kmod2 oscili kenv, p7+1, 1

acar1 oscili kmod, p5+a1+a2+a3+a4+a5+a6+a7+krandpch+kranddist, 1
acar2 oscili kmod2, p5+a1+a2+a3+a4+a5+a6+a7+krandpch+kranddist, 1

outs acar1, acar2
endin