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

instr 37

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 p6/250, 2, 1/(p2+p3) ;p7 controls amt. of distortion
krand randi .9*p6, .7, 1/(p2+p3) ;controls amp mod var

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

krandenv randi 600*p4, 1.5, 1/(p2+p3)

acar1 oscili 1600*p4+krandenv, p5+a1+a2+a3+a4+a5+a6+a7+krandpch+kranddist, 1
acar2 multitap acar1, .001, 1, .002, 1, .003, 1, .004, 1, .005, 1, .006, 1, .007, 1, .008, 1, .009, 1
acar1=acar1+acar2

atime oscili 4, 1/p3, 1
atime=atime+6
acar3 vdelay acar1, atime, 12
acar4 vdelay acar3, atime, 12
acar4=acar1+acar3+acar4

atime2 oscili 3, 1/p3, 1
atime2=atime2+5
acar5 vdelay acar1, atime2, 12
acar6 vdelay acar5, atime2, 12
acar6=acar1+acar5+acar6

acar7 delay acar6, .04

kenv expseg .001, .25, 1.3, p3-.25, .001
kpan randi .48, 1.5, .7/(p2+p3)
outs acar4*kenv*(.5+kpan), acar7*kenv*(1-(.5+kpan))
endin