sr=44100
kr=4410
ksmps=10
nchnls=2



instr 1

idur	=	p3
iamp1	=	ampdb(p4)
iamp2	=	iamp1 * .75	
ifreq	=	cpspch(p5)
ipan	=	p6

iatk1	=	idur * .01
iatk2	=	idur * .02
iatk3	=	idur * .03
iatk4	=	idur * .04
iatk5	=	idur * .05
iatk6	=	idur * .06

iatk11	=	idur * .07
iatk21	=	idur * .06
iatk31	=	idur * .05
iatk41	=	idur * .04
iatk51	=	idur * .03
iatk61	=	idur * .02

idec1	=	idur * .05
idec2	=	idur * .05
idec3	=	idur * .05
idec4	=	idur * .05
idec5	=	idur * .05
idec6	=	idur * .05

isus1	=	idur - (iatk1 + iatk11 + idec1)
isus2	=	idur - (iatk2 + iatk21 + idec2)
isus3	=	idur - (iatk3 + iatk31 + idec3)
isus4	=	idur - (iatk4 + iatk41 + idec4)
isus5	=	idur - (iatk5 + iatk51 + idec5)
isus6	=	idur - (iatk6 + iatk61 + idec6)

kenv1 linseg	0,	iatk1,  iamp1,		iatk11,	iamp2,		isus1,  iamp2,	idec1,	0
kenv2 linseg	0,	iatk2,  iamp1 * .97.5,	iatk21,	iamp2 * .97.5,  isus2,  iamp2,	idec2,	0
kenv3 linseg	0,	iatk3,  iamp1 * .95,	iatk31,	iamp2 * .95,  	isus3,  iamp2,	idec3,	0
kenv4 linseg	0,	iatk4,  iamp1 * .92.5,  iatk41,	iamp2 * .92.5,  isus4,  iamp2,	idec4,	0
kenv5 linseg	0,	iatk5,  iamp1 * .90,	iatk51,	iamp2 * .90,  	isus5,  iamp2,	idec5,	0
kenv6 linseg	0,	iatk6,  iamp1 * .87.5,  iatk61,	iamp2 * .87.5,  isus6,  iamp2,	idec6,	0

kenv7 expseg	.001,	.001,	iamp1,		idur - .004,		iamp1,	.001,	.001

a0 oscili	10,	idur/10,	ipan 
a1 oscili	kenv1,	ifreq,		1
a2 oscili	kenv2,	ifreq,		2
a3 oscili	kenv3,	ifreq,		3
a4 oscili	kenv4,	ifreq,		4
a5 oscili	kenv5,	ifreq,		5
a6 oscili	kenv6,	ifreq * .11,	6


a10	=	(a1 + a2 + a3 + a4 + a5 + a6)* .1 * kenv7

kpan = a0


	outs	(sqrt(a10)) * kpan, (sqrt (a10)) * (kpan-1) 


endin



instr 2


endin



instr 3


endin