Weekly Beats Wk 9

fmPhaseEtude.scd

s.boot;

// Defining FM Synth
SynthDef(\fmsynth, {arg freq1, freq2, freq3;
	var signal, env;
	signal = SinOsc.ar(freq1 * (SinOsc.ar(freq2) + SinOsc.ar(freq3)));
	Out.ar(0, signal!2);
}).add;

// Instantiating synth instances
synthA = Synth(\fmsynth, \freq1, 5, \freq2, 96, \freq3, 97]);
synthB = Synth(\fmsynth, \freq1, 5, \freq2, 98, \freq3, 101]);

/*
Timbre/intensity: freq1. 
Polyrhythms: beating frequencies between freq2 and freq3.
*/

synthA.set(\freq1, 5, \freq2, 96, \freq3, 97);
synthB.set(\freq1, 5, \freq2, 98, \freq3, 101);


// Stop all sound
synthA.free;
synthB.free;