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

instr 27

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

;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

ibuf=p6
ifn=8

a1 pluck i1, p5, ibuf, ifn, 6
a2 pluck i1, i23, ibuf, ifn, 6
a3 pluck i2, i24, ibuf, ifn, 6
a4 pluck i3, i25, ibuf, ifn, 6
a5 pluck i4, i26, ibuf, ifn, 6
a6 pluck i5, i27, ibuf, ifn, 6
a7 pluck i6, i28, ibuf, ifn, 6
a8 pluck i7, i29, ibuf, ifn, 6
a9 pluck i8, i30, ibuf, ifn, 6
a11 pluck i10, i32, ibuf, ifn, 6
a12 pluck i11, i33, ibuf, ifn, 6
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

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

a17 delay a1, .04

kenv linen .2, 0, p3, p3*.4
kenv expseg .001, .001, .2, p3*.3, .2, p3*.7-.001, .001
outs kenv*a1, kenv*a17

endin