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

instr 25

;amp
i1 = p4*1000
i2 = p4*0.67*1000
i3 = p4*1.35*1000
i4 = p4*1.80*1000
i5 = p4*2.67*1000
i6 = p4*1.67*1000
i7 = p4*1.46*1000
i8 = p4*1.33*1000
i9 = p4*1.33*1000
i10 = p4*0.75*1000
i11 = p4*1.33*1000

;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

icar=1
kmod expseg 1, p3*.2, 1, p3*.6, 1
imod=p6
indx=p7

a1 foscili i1, p5, icar, imod, indx, 1
a2 foscili i1, i23, icar, imod, indx, 1
a3 foscili i2, i24, icar, imod, indx, 1
a4 foscili i3, i25, icar, imod, indx, 1
a5 foscili i4, i26, icar, imod, indx, 1
a6 foscili i5, i27, icar, imod, indx, 1
a7 foscili i6, i28, icar, imod, indx, 1
a8 foscili i7, i29, icar, imod, indx, 1
a9 foscili i8, i30, icar, imod, indx, 1
a11 foscili i10, i32, icar, imod, indx, 1
a12 foscili i11, i33, icar, imod, indx, 1

a1=a1+a2+a3+a4+a5+a6+a7+a8+a9+a11+a12

a21 multitap a1, .001, .9, .002, .8, .003, .7, .004, .6
a1=a1+a21

a31 foscili i1, p5, icar, imod*2, indx, 1
a32 foscili i1, i23, icar, imod*2, indx, 1
a33 foscili i2, i24, icar, imod*2, indx, 1
a34 foscili i3, i25, icar, imod*2, indx, 1
a35 foscili i4, i26, icar, imod*2, indx, 1
a36 foscili i5, i27, icar, imod*2, indx, 1
a37 foscili i6, i28, icar, imod*2, indx, 1
a38 foscili i7, i29, icar, imod*2, indx, 1
a39 foscili i8, i30, icar, imod*2, indx, 1
a41 foscili i10, i32, icar, imod*2, indx, 1
a42 foscili i11, i33, icar, imod*2, indx, 1

a31=a31+a32+a33+a34+a35+a36+a37+a38+a39+a41+a42

a51 multitap a31, .001, .9, .002, .8, .003, .7, .004, .6
a31=a31+a51

a17 delay a1, .02

kenv linen .2, .03, p3, p3*.2
irise=.02
kenv2 expseg .001, irise, 1, p3-irise, .001

outs (kenv*a17+kenv2*a31)*p8, (kenv*a1+kenv2*a31)*(1-p8)

endin