sr = 44100
kr = 4410
ksmps = 10
nchnls = 1

instr 51
ifunc = p11
irel = 0.01
idel1 = p3 * p10
isus = p3 - (idel1 + irel)

iamp = ampdb(p4)
iscale = iamp * .333
inote = cpspch(p5)

k3 linseg 0, idel1, p9, isus, p9, irel, 0
k2 oscil k3, p8, 1
k1 linen iscale, p6, p3, p7

a3 oscil k1, inote*10*k2, ifunc
a2 oscil k1, inote*20*k2, ifunc
a1 oscil k1, inote*30*k2, ifunc

out a1+a2+a3
endin


instr 101
kFreq expon 50, 1, 55
a4 oscil 10000, kFreq, 1
out a4
endin




 f1 0 2048 10 1 0.5 0.3 0.25 0.2 0.167 0.14 0.125 .111


i51 0 60 86 10.00 0.1 0.7 7 60 .4 1
i51 10 20 100 20.02 1 0.2 60 20 .1 1
i51 20 30 86 1.04 2 1 5 100 .004 1
i51 30 35 86 4.04 2 1 3 30 .04
i51 55 10 86 4.04 2 1 100 50 .4 1
i51 60 15 86 10.04 .2 .5 5 3 3 1
i101 0 77 86 1.00 0.1 0.7 7 6 .4 1