opcode 		fofx5, a, kkki
kfund,kvowel,koct,ivoice	xin	
isine		ftgenonce	0, 0, 4096, 10, 1
iexp		ftgenonce	0, 0, 1024, 19, 0.5, 0.5, 270, 0.5
iBF1		ftgentmp	0,  0, 8, -2,	600,	400,	250,	400,	350	;FREQ
iBF2		ftgentmp	0,  0, 8, -2,	1040,	1620,	1750,	750,	600	;FREQ
iBF3		ftgentmp	0,  0, 8, -2,	2250,	2400,	2600,	2400,	2400	;FREQ
iBF4		ftgentmp	0,  0, 8, -2,	2450,	2800,	3050,	2600,	2675	;FREQ
iBF5		ftgentmp	0,  0, 8, -2,	2750,	3100,	3340,	2900,	2950	;FREQ
        	
iBDb1		ftgentmp	0, 0, 8, -2,	0,	0,	0,	0,	0	;dB
iBDb2		ftgentmp	0, 0, 8, -2,	-7,	-12,	-30,	-11,	-20	;dB
iBDb3		ftgentmp	0, 0, 8, -2,	-9,	-9,	-16,	-21,	-32	;dB
iBDb4		ftgentmp	0, 0, 8, -2,	-9,	-12,	-22,	-20,	-28	;dB
iBDb5		ftgentmp	0, 0, 8, -2,	-20,	-18,	-28,	-40,	-36	;dB
        	
iBBW1		ftgentmp	0, 0, 8, -2,	60,	40,	60,	40,	40	;BAND WIDTH
iBBW2		ftgentmp	0, 0, 8, -2,	70,	80,	90,	80,	80	;BAND WIDTH
iBBW3		ftgentmp	0, 0, 8, -2,	110,	100,	100,	100,	100	;BAND WIDTH
iBBW4		ftgentmp	0, 0, 8, -2,	120,	120,	120,	120,	120	;BAND WIDTH
iBBW5		ftgentmp	0, 0, 8, -2,	130,	120,	120,	120,	120	;BAND WIDTH
;TENOR  	
iTF1		ftgentmp	0, 0, 8, -2,	650, 	400,	290,	400,	350	;FREQ
iTF2		ftgentmp	0, 0, 8, -2,	1080, 	1700,   1870,	800,	600	;FREQ
iTF3		ftgentmp	0, 0, 8, -2,	2650,	2600,   2800,	2600,	2700	;FREQ
iTF4		ftgentmp	0, 0, 8, -2,	2900,	3200,   3250,	2800,	2900	;FREQ
iTF5		ftgentmp	0, 0, 8, -2,	3250,	3580,   3540,	3000,	3300	;FREQ
        	
iTDb1		ftgentmp	0, 0, 8, -2,	0,	0,	0,	0,	0	;dB
iTDb2		ftgentmp	0, 0, 8, -2,	-6,	-14,	-15,	-10,	-20	;dB
iTDb3		ftgentmp	0, 0, 8, -2,	-7,	-12,	-18,	-12,	-17	;dB
iTDb4		ftgentmp	0, 0, 8, -2,	-8,	-14,	-20,	-12,	-14	;dB
iTDb5		ftgentmp	0, 0, 8, -2,	-22,	-20,	-30,	-26,	-26	;dB
        	
iTBW1		ftgentmp	0, 0, 8, -2,	80,	70,	40,	40,	40	;BAND WIDTH
iTBW2		ftgentmp	0, 0, 8, -2,	90,	80,	90,	80,	60	;BAND WIDTH
iTBW3		ftgentmp	0, 0, 8, -2,	120,	100,	100,	100,	100	;BAND WIDTH
iTBW4		ftgentmp	0, 0, 8, -2,	130,	120,	120,	120,	120	;BAND WIDTH                                         
iTBW5		ftgentmp	0, 0, 8, -2,	140,	120,	120,	120,	120	;BAND WIDTH
;COUNTER TENOR
iCTF1		ftgentmp	0, 0, 8, -2,	660,	440,	270,	430,	370	;FREQ
iCTF2		ftgentmp	0, 0, 8, -2,	1120,	1800,	1850,	820,	630	;FREQ
iCTF3		ftgentmp	0, 0, 8, -2,	2750,	2700,	2900,	2700,	2750	;FREQ
iCTF4		ftgentmp	0, 0, 8, -2,	3000,	3000,	3350,	3000,	3000	;FREQ
iCTF5		ftgentmp	0, 0, 8, -2,	3350,	3300,	3590,	3300,	3400	;FREQ
        	
iTBDb1		ftgentmp	0, 0, 8, -2,	0,	0,	0,	0,	0	;dB
iTBDb2		ftgentmp	0, 0, 8, -2,	-6,	-14,	-24,	-10,	-20	;dB
iTBDb3		ftgentmp	0, 0, 8, -2,	-23,	-18,	-24,	-26,	-23	;dB
iTBDb4		ftgentmp	0, 0, 8, -2,	-24,	-20,	-36,	-22,	-30	;dB
iTBDb5		ftgentmp	0, 0, 8, -2,	-38,	-20,	-36,	-34,	-30	;dB
        	
iTBW1		ftgentmp	0, 0, 8, -2,	80,	70,	40,	40,	40	;BAND WIDTH
iTBW2		ftgentmp	0, 0, 8, -2,	90,	80,	90,	80,	60	;BAND WIDTH
iTBW3		ftgentmp	0, 0, 8, -2,	120,	100,	100,	100,	100	;BAND WIDTH
iTBW4		ftgentmp	0, 0, 8, -2,	130,	120,	120,	120,	120	;BAND WIDTH
iTBW5		ftgentmp	0, 0, 8, -2,	140,	120,	120,	120,	120	;BAND WIDTH
;ALTO   	
iAF1		ftgentmp	0, 0, 8, -2,	800,	400,	350,	450,	325	;FREQ
iAF2		ftgentmp	0, 0, 8, -2,	1150,	1600,	1700,	800,	700	;FREQ
iAF3		ftgentmp	0, 0, 8, -2,	2800,	2700,	2700,	2830,	2530	;FREQ
iAF4		ftgentmp	0, 0, 8, -2,	3500,	3300,	3700,	3500,	2500	;FREQ
iAF5		ftgentmp	0, 0, 8, -2,	4950,	4950,	4950,	4950,	4950	;FREQ
        	
iADb1		ftgentmp	0, 0, 8, -2,	0,	0,	0,	0,	0	;dB
iADb2		ftgentmp	0, 0, 8, -2,	-4,	-24,	-20,	-9,	-12	;dB
iADb3		ftgentmp	0, 0, 8, -2,	-20,	-30,	-30,	-16,	-30	;dB
iADb4		ftgentmp	0, 0, 8, -2,	-36,	-35,	-36,	-28,	-40	;dB
iADb5		ftgentmp	0, 0, 8, -2,	-60,	-60,	-60,	-55,	-64	;dB
        	
iABW1		ftgentmp	0, 0, 8, -2,	50,	60,	50,	70,	50	;BAND WIDTH
iABW2		ftgentmp	0, 0, 8, -2,	60,	80,	100,	80,	60	;BAND WIDTH
iABW3		ftgentmp	0, 0, 8, -2,	170,	120,	120,	100,	170	;BAND WIDTH
iABW4		ftgentmp	0, 0, 8, -2,	180,	150,	150,	130,	180	;BAND WIDTH
iABW5		ftgentmp	0, 0, 8, -2,	200,	200,	200,	135,	200	;BAND WIDTH
;SOPRANO
iSF1		ftgentmp	0, 0, 8, -2,	800,	350,	270,	450,	325	;FREQ
iSF2		ftgentmp	0, 0, 8, -2,	1150,	2000,	2140,	800,	700	;FREQ
iSF3		ftgentmp	0, 0, 8, -2,	2900,	2800,	2950,	2830,	2700	;FREQ
iSF4		ftgentmp	0, 0, 8, -2,	3900,	3600,	3900,	3800,	3800	;FREQ
iSF5		ftgentmp	0, 0, 8, -2,	4950,	4950,	4950,	4950,	4950	;FREQ
        	
iSDb1		ftgentmp	0, 0, 8, -2,	0,	0,	0,	0,	0	;dB
iSDb2		ftgentmp	0, 0, 8, -2,	-6,	-20,	-12,	-11,	-16	;dB
iSDb3		ftgentmp	0, 0, 8, -2,	-32,	-15,	-26,	-22,	-35	;dB
iSDb4		ftgentmp	0, 0, 8, -2,	-20,	-40,	-26,	-22,	-40	;dB
iSDb5		ftgentmp	0, 0, 8, -2,	-50,	-56,	-44,	-50,	-60	;dB
        	
iSBW1		ftgentmp	0, 0, 8, -2,	80,	60,	60,	70,	50	;BAND WIDTH
iSBW2		ftgentmp	0, 0, 8, -2,	90,	90,	90,	80,	60	;BAND WIDTH
iSBW3		ftgentmp	0, 0, 8, -2,	120,	100,	100,	100,	170	;BAND WIDTH
iSBW4		ftgentmp	0, 0, 8, -2,	130,	150,	120,	130,	180	;BAND WIDTH
iSBW5		ftgentmp	0, 0, 8, -2,	140,	200,	120,	135,	200	;BAND WIDTH
ivoice		limit		ivoice,0,4
#define	FORMANT(N)
#
invals		=		4								;
k$N.form 	tablei		kvowel*invals, iBF1+(ivoice*15)+$N-1	;READ FORMANT FREQUENCY FROM TABLE
k$N.db 		tablei		kvowel*invals, iBDb1+(ivoice*15)+$N-1	;READ DECIBEL VALUE FROM TABLE
k$N.amp		=		ampdb(k$N.db)					;CONVERT TO AN AMPLITUDE VALUE                                                
k$N.band 	tablei		kvowel*invals, iBBW1+(ivoice*15)+$N-1	;READ BANDWIDTH FROM TABLE
#
$FORMANT(1)                                                                                      
$FORMANT(2)                                                                                      
$FORMANT(3)                                                                                        
$FORMANT(4)
$FORMANT(5)
iris		=		0.003
idur		=		0.02
idec		=		0.007
iolaps		=		14850
ifna		=		isine
ifnb		=		iexp
itotdur		=		3600
a1 		fof 		k1amp, kfund, k1form, koct, k1band, iris, idur, idec, iolaps, ifna, ifnb, itotdur
a2 		fof 		k2amp, kfund, k2form, koct, k2band, iris, idur, idec, iolaps, ifna, ifnb, itotdur
a3 		fof 		k3amp, kfund, k3form, koct, k3band, iris, idur, idec, iolaps, ifna, ifnb, itotdur
a4 		fof 		k4amp, kfund, k4form, koct, k4band, iris, idur, idec, iolaps, ifna, ifnb, itotdur
a5 		fof 		k5amp, kfund, k5form, koct, k5band, iris, idur, idec, iolaps, ifna, ifnb, itotdur
asig		=		(a1+a2+a3+a4+a5)/5
xout		asig
		endop