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

instr 5

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

;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

amod oscili p5*1.5, 24000, 1

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

amove randi 2, 5, 1/(p2+p3)
amove=amove+4
a51 vdelay a1, amove, 20
a52 vdelay a51, amove, 20
a62 vdelay a52, amove, 20
a51=a1+a51+a52+a62

amove randi 1, 1, .3/(p2+p3)
amove=amove+2
a53 vdelay a1, amove, 20
a54 vdelay a53, amove, 20
a64 vdelay a54, amove, 20
a54=a1+a53+a54+a64

a55 delay a54, .1

irise=.07
kenv expseg .001, irise, 1, p3-irise-.1, .001
kpan line p7, p3, 1-p7
outs kenv*a55*.5, kenv*a51*1

endin