«NDef FM synthesis for beginners» by LFSaw

on 25 Mar'13 13:35 in fmndef

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

log fork json 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
(
// 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
raw 659 chars (focus & ctrl+a+c to copy)
reception
comments