ji / 12tet pulse demo

gistfile1.txt

s = Server.default;
s.waitForBoot { Routine {

	SynthDef.new(\pan_pulse, {
		var pos = Line.ar(\pos.kr(0), 0, \dur.kr(5));
		var snd = Pulse.ar(\hz.kr(110));
		snd = Pan2.ar(snd * \amp.kr(0.1), pos);
		Out.ar(\out.kr(0), snd);
	}).send(s);

	s.sync;

	// just intonation
	l = Synth.new(\pan_pulse, [\hz, 110, \pos, -1]);
	r = Synth.new(\pan_pulse, [\hz, 110 * 3/2 * 2, \pos, 1]);

	15.wait;
	l.free;
	r.free;

	// 12tet
	l = Synth.new(\pan_pulse, [\hz, 110, \pos, -1]);
	r = Synth.new(\pan_pulse, [\hz, 110 * 7.midiratio * 2, \pos, 1]);
	15.wait;
	l.free;
	r.free;

}.play; };