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

instr 26

iampmult = ((440-p5)*10)+500
;amp
i1 = p4*iampmult
i2 = p4*0.67*iampmult
i3 = p4*1.35*iampmult
i4 = p4*1.80*iampmult
i5 = p4*2.67*iampmult
i6 = p4*1.67*iampmult
i7 = p4*1.46*iampmult
i8 = p4*1.33*iampmult
i9 = p4*1.33*iampmult
i10 = p4*0.75*iampmult
i11 = p4*1.33*iampmult

;freq
i23 = p5*.56
i24 = (p5*.56)+1
i25 = p5*.92
i26 = (p5*.92)+1.7
i27 = p5*1.19
i28 = p5*1.7
i29 = p5*2
i30 = p5*3
i32 = p5*3.75
i33 = p5*4.07

irise= (p5 > 110 ? .09 : .15)
ifn = (p5 > 55 ? 11 : 10)
kenv expseg .001, irise, .8, p3-irise, .001

amod oscili p5*1.7, 24000, 1
a1 oscili i1*kenv, p5+amod, ifn
a2 oscili i1*kenv, i23+amod*.56, ifn
a3 oscili i2*kenv, i24+amod+1, ifn
a4 oscili i3*kenv, i25+amod*.92, ifn
a5 oscili i4*kenv, i26+(amod*.92+1.7), ifn
a6 oscili i5*kenv, i27+amod*1.19, ifn
a7 oscili i6*kenv, i28+amod*1.7, ifn
a8 oscili i7*kenv, i29+amod*2, ifn
a9 oscili i8*kenv, i30+amod*3, ifn
a11 oscili i10*kenv, i32+amod*3.75, ifn
a12 oscili i11*kenv, i33+amod*4.07, ifn
a1=a1+a2+a3+a4+a5+a6+a7+a8+a9+a11+a12

amove randi 2, 2, 1/(p2+p3)
amove=amove+4
a13 vdelay a1, amove, 10
a14 vdelay a13, amove, 10
a15 vdelay a14, amove, 10
a16 vdelay a15, amove, 10
a1=a1+a13+a14+a15+a16

a17 delay a1, .02

kpan randi .45, 2, 1/(p2+p3)
outs a1*(.5+kpan), a17*(1-(.5+kpan))

endin