;  a simple FM instrument

instr	1
	ipitch	= cpspch(p5) ; fundamental pitch of the note
	kdev	linseg p11, p12, p13, p14, p15	; mod index: controls amplitude of modulator
	amod	oscil	kdev*ipitch*p10, ipitch*p10, 1	; modulating oscillator
	imaxamp	=	32767	; maximum allowed amplitude for carrier
	kenv	adsr	p6, p7, p8, p9	; amplitude envelope for carrier
	kenv	= kenv*imaxamp*p4	; scale envelope to proper amplitude
	acar	oscil	kenv, ipitch+amod, 1 ; carrier oscillator
		out	acar
endin