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

instr 4

irise=.07

kenv expseg .1, irise, 27000*p4, p3-irise,.1
kenv2 expseg .1, irise, 9000*p4, p3-irise,.1
kenv3 expseg .1, irise, 2000*p4, p3-irise,.1
kenv4 expseg .1, irise, 1000*p4, p3-irise,.1

aa1 oscili p6*500, 1.01*p5, 1 ;p6 moddepth 50-1000 (500)
aa2 oscili p6*500, 2.01*p5, 1
aa3 oscili p6*500, 3.01*p5, 1
aa4 oscili p6*500, 4.01*p5, 1

amod oscili p6*120, aa1, 1 ;p7 moddepth 12-240 (120)
amod2 oscili p6*120, aa2, 1
amod3 oscili p6*120, aa3, 1
amod4 oscili p6*120, aa4, 1

a1 oscili kenv, p5+amod, 1
a2 oscili kenv2, (2*p5)+amod2, 1
a3 oscili kenv3, (3*p5)+amod3, 1
a4 oscili kenv4, (4*p5)+amod4, 1

a1=a1+a2+a3+a4

kenv11 expseg .1, irise, 13500*p4, p3-irise,.1
kenv12 expseg .1, irise, 4500*p4, p3-irise,.1
kenv13 expseg .1, irise, 1000*p4, p3-irise,.1
kenv14 expseg .1, irise, 500*p4, p3-irise,.1

aa11 oscili p6*500, .505*p5, 1 ;moddepth 50-1000 (500)
aa12 oscili p6*500, 1.005*p5, 1
aa13 oscili p6*500, 1.505*p5, 1
aa14 oscili p6*500, 2.005*p5, 1

amod11 oscili p6*120, aa11, 1 ;moddepth 12-240 (120)
amod12 oscili p6*120, aa12, 1
amod13 oscili p6*120, aa13, 1
amod14 oscili p6*120, aa14, 1

a11 oscili kenv11, (.5*p5)+amod11, 1
a12 oscili kenv12, p5+amod12, 1
a13 oscili kenv13, (1.5*p5)+amod13, 1
a14 oscili kenv14, (2*p5)+amod14, 1

a11=a11+a12+a13+a14

kenv21 expseg .1, irise, 10800*p4, p3-irise,.1
kenv22 expseg .1, irise, 3600*p4, p3-irise,.1
kenv23 expseg .1, irise, 800*p4, p3-irise,.1
kenv24 expseg .1, irise, 400*p4, p3-irise,.1

aa21 oscili p6*500, 3.03*p5, 1 ;moddepth 50-1000 (500)
aa22 oscili p6*500, 6.03*p5, 1
aa23 oscili p6*500, 9.03*p5, 1
aa24 oscili p6*500, 12.03*p5, 1

amod21 oscili p6*120, aa21, 1 ;moddepth 12-240 (120)
amod22 oscili p6*120, aa22, 1
amod23 oscili p6*120, aa23, 1
amod24 oscili p6*120, aa24, 1

a21 oscili kenv21, (3*p5)+amod21, 1
a22 oscili kenv22, (6*p5)+amod22, 1
a23 oscili kenv23, (9*p5)+amod23, 1
a24 oscili kenv24, (12*p5)+amod24, 1

a21=a21+a22+a23+a24

kenv31 expseg .1, irise, 8100*p4, p3-irise,.1
kenv32 expseg .1, irise, 2700*p4, p3-irise,.1
kenv33 expseg .1, irise, 600*p4, p3-irise,.1
kenv34 expseg .1, irise, 300*p4, p3-irise,.1

aa31 oscili p6*500, 2.424*p5, 1 ;moddepth 50-1000 (500)
aa32 oscili p6*500, 4.824*p5, 1
aa33 oscili p6*500, 7.224*p5, 1
aa34 oscili p6*500, 9.624*p5, 1

amod31 oscili p6*120, aa31, 1 ;moddepth 12-240 (120)
amod32 oscili p6*120, aa32, 1
amod33 oscili p6*120, aa33, 1
amod34 oscili p6*120, aa34, 1

a31 oscili kenv31, (2.4*p5)+amod, 1
a32 oscili kenv32, (4.8*p5)+amod2, 1
a33 oscili kenv33, (7.2*p5)+amod3, 1
a34 oscili kenv34, (9.6*p5)+amod4, 1

a31=a31+a32+a33+a34

kenv41 expseg .1, irise, 5400*p4, p3-irise,.1
kenv42 expseg .1, irise, 1800*p4, p3-irise,.1
kenv43 expseg .1, irise, 400*p4, p3-irise,.1
kenv44 expseg .1, irise, 200*p4, p3-irise,.1

aa41 oscili p6*500, 7.272*p5, 1 ;moddepth 50-1000 (500)
aa42 oscili p6*500, 14.472*p5, 1
aa43 oscili p6*500, 21.672*p5, 1
aa44 oscili p6*500, 28.872*p5, 1

amod41 oscili p6*120, aa41, 1 ;moddepth 12-240 (120)
amod42 oscili p6*120, aa42, 1
amod43 oscili p6*120, aa43, 1
amod44 oscili p6*120, aa44, 1

a41 oscili kenv41, (7.2*p5)+amod41, 1
a42 oscili kenv42, (14.4*p5)+amod42, 1
a43 oscili kenv43, (21.6*p5)+amod43, 1
a44 oscili kenv44, (28.8*p5)+amod44, 1

a41=a41+a42+a43+a44

a1=a1+a11+a21+a31+a41

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

amove randi 1.5, 1.7, .3/(p2+p3)
amove=amove+3
a53 vdelay a1, amove, 20
a54 vdelay a53, amove, 20
a54=a1+a53+a54

a55 delay a54, .02

outs .2*a51, .1*a55
endin