// title: NDef FM synthesis for beginners
// author: LFSaw
// description:
// Restricting fm to harmonic sidebands after[Chowning, 1973]. Restriction actually happens because of the specs, not server-side.
// ----- 
// Chowning, J. (1973). The synthesis of complex spectra by means of frequency modulation. Journal of the Audio Engineering Society, 21(7):526–534
// code:
(
// restricting fm to harmonic sidebands after
// [Chowning, 1973] Chowning, J. (1973). The synthesis of complex spectra by means of frequency modulation. Journal of the Audio Engineering Society, 21(7):526–534.
// restriction actually happens because of the specs, not server-side.

Spec.add(\index, [0, 40]);
Spec.add(\harm1, [0, 20, \lin, 1]);
Spec.add(\harm2, [0, 20, \lin, 1]);
Spec.add(\fundFreq, \freq);

Ndef(\fmk, {
	
	PMOsc.ar(
		\carFreq.kr(100, 0.1), 
		(\harm1.kr(1, 1)/(\harm2.kr(1, 1)) * LFNoise1.ar(50).range(0.995, 1.001))*\carFreq.kr(100), 
		\index.kr(1, 0.1) * SinOsc.ar(2.5).range(0.995, 1.005)
	)	
})
)
Ndef(\fmk).gui