Quantised speed controls are back

granulator.scd

@@ -4,9 +4,7 @@
 ~modes = [
 	[ "saw", \pos_saw ],
 	[ "reverse", \pos_reverse ],
-	[ "sine", \pos_sine ],
+	[ "sine", \pos_sine ]
-	[ "step", \pos_step ],
-	[ "random", \pos_random ]
 ];
 
 ~outputDir = Platform.recordingsDir +/+ "GrainBuffers";
@@ -15,15 +13,17 @@
 ~grainsb = Bus.audio(s, 2);
 
 ~granulators = Array.new(4);
+~grainmodes = [ 0, 0, 0, 0 ]; // keep track of mode so don't swap if not needed
+~speeds = [ 1, 1, 1, 1 ];     // hacky speed quantisation
 ~posb = Array.new(4);
 ~rectriggerb = Array.new(4);
-~possynths = Array.new(4);
+~patterns = Array.new(4);
-~triggersynths = Array.new(4);
+~players = Array.new(4);
+~loopsynths = Array.new(4);
 
 // create the control busses
 
 (0..3).do({
-	var ps;
 	~posb.add(Bus.control(s, 1));
 	~rectriggerb.add(Bus.control(s, 1));
 });
@@ -35,29 +35,59 @@
 	~granulators.add(Granulator.new(~buflen, ~infxb, ~grainsb, pb, rtb));
 });
 
-
+// set up the Patterns which drive the position synths
-// launch the pos synths and triggers to sync the buffer recorders
-
 (0..3).do({ |i|
-	var pb = ~posb[i], rtb = ~rectriggerb[i];
+	~patterns.add(~makePattern.value(i, 0, ~speeds[i]));
-	~possynths.add(Synth(\pos_saw, [ \out, pb, \speed, 1 / ~buflen ]));
-	~triggersynths.add(Synth(\trigger, [ \out, rtb, \freq, 1 / ~buflen ]));
 });
 
-// TODO - retrigger the buffer records when changing the length etc
+(0..3).do({|i|
+	~players.add(~patterns[i].play(~tc, quant: ~beatsperbar))
+});
 
 ~setmode = {
 	arg track, mode;
-	var synth = ~modes[mode][1];
+	if( ~grainmodes[track] != mode, {
-	~possynths[track].get(\speed, { | speed |
+		~grainmodes[track] = mode;
-		~possynths[track].free;
+		~players[track].stop;
-		~triggersynths[track].free;
+		~patterns[track].free;
-		~possynths[track] = Synth(synth, [\out, ~posb[track], \speed, speed]);
+		~patterns[track] = ~makePattern.value(track, mode, ~speeds[track]);
-		~triggersynths[track] = Synth(\trigger, [ \out, ~rectriggerb[track] ]);
+		~players[track] = ~patterns[track].play(~tc, quant: ~beatsperbar);
 	});
-	~granulators[track].mode_(mode);
 };
 
+~setspeed = {
+	arg track, speed;
+	[ "setspeed", track, speed ].postln;
+	if( ~speeds[track] != speed, {
+		~speeds[track] = speed;
+		~players[track].stop;
+		~patterns[track].free;
+		~patterns[track] = ~makePattern.value(track, ~grainmodes[track], ~speeds[track]);
+		~players[track] = ~patterns[track].play(~tc, quant: ~beatsperbar);
+	});
+};
+
+
+~makePattern = {
+	arg track, mode, speed;
+	var ptrig, ppos, synth = ~modes[mode][1];
+	// note: trigger is going off the base tempoclock, not the playback speed - I think this is
+	// the right thing to do but I'm not sure yet
+	ptrig = Pbind(
+		\instrument, \trigger,
+		\dur, ~beatsperbar,
+		\out, ~rectriggerb[track]
+	);
+	ppos = Pbind(
+		\instrument, synth,
+		\dur, ~beatsperbar / speed,
+		\length, ~buflen / speed,
+		\out, ~posb[track]
+	);
+	Ppar([ptrig, ppos]);
+};
+
+
 ~dumpbuffers = { |prefix|
 	(0..3).do({|i|
 		var filename = ~outputDir +/+ prefix ++ 'buffer' ++ i.asString ++ '.aiff';

interface.scd

@@ -36,25 +36,6 @@ OSCdef.freeAll;
 };
 
 
-// control ganging is hella laggy, do it in TouchOSC
-
-
-
-// ~setspeed = { | track, v |
-// 	var speed, qv = if(~speedquant > 0, { ~quantspeed.value(v) }, { v });
-// 	speed = qv / ~buflen;
-// 	if(~speedlock > 0, {
-// 		(0..3).do({|n|
-// 			~possynths[n].set(\speed, speed);
-// 			if( n != track, {
-// 				var url = ("/grains/speed" ++ n).asSymbol;
-// 				~to.s_(url, v);
-// 			});
-// 		});
-// 		},
-// 	{ ~possynths[track].set(\speed, speed) });
-// };
-
 // setrecord: toggles record on (1) or off (0) for a track, and also sets the
 // track's input mix to 0 so that it doesn't start fadeing out. If the track
 // is the currently selected track, set its touchosc control to 0.
@@ -85,15 +66,17 @@ OSCdef.freeAll;
 ~to.slider('/grains/buflen', ~buflen, TouchOSCScale(0.1, 10.0), {});
 
 
-// ~to.button('/grains/mode0', 0, { |v| ~granulators[0].mode_(v); ~setmode.value(0, v) });
+~to.button('/grains/mode0', 0, { |v| ~setmode.value(0, v) });
-// ~to.button('/grains/mode1', 0, { |v| ~granulators[1].mode_(v); ~setmode.value(1, v) });
+~to.button('/grains/mode1', 0, { |v| ~setmode.value(1, v) });
-// ~to.button('/grains/mode2', 0, { |v| ~granulators[2].mode_(v); ~setmode.value(2, v) });
+~to.button('/grains/mode2', 0, { |v| ~setmode.value(2, v) });
-// ~to.button('/grains/mode3', 0, { |v| ~granulators[3].mode_(v); ~setmode.value(3, v) });
+~to.button('/grains/mode3', 0, { |v| ~setmode.value(3, v) });
-//
+
-// ~to.slider('/grains/speed0', 1, TouchOSCScale(0, 2), { |v| ~setspeed.value(0, v) });
+// needs work
-// ~to.slider('/grains/speed1', 1, TouchOSCScale(0, 2), { |v| ~setspeed.value(1, v) });
+
-// ~to.slider('/grains/speed2', 1, TouchOSCScale(0, 2), { |v| ~setspeed.value(2, v) });
+~to.slider('/grains/speed0', 1, TouchOSCScale(0, 2), { |v| ~setspeed.value(0, ~quantspeed.value(v)) });
-// ~to.slider('/grains/speed3', 1, TouchOSCScale(0, 2), { |v| ~setspeed.value(3, v) });
+~to.slider('/grains/speed1', 1, TouchOSCScale(0, 2), { |v| ~setspeed.value(1, ~quantspeed.value(v)) });
+~to.slider('/grains/speed2', 1, TouchOSCScale(0, 2), { |v| ~setspeed.value(2, ~quantspeed.value(v)) });
+~to.slider('/grains/speed3', 1, TouchOSCScale(0, 2), { |v| ~setspeed.value(3, ~quantspeed.value(v)) });
 
 
 ~to.slider('/grains/passthrough', 0.75, TouchOSCScale(0, 1), { |v| ~grainmixer.set(\passthrough, v) });
@@ -105,7 +88,7 @@ OSCdef.freeAll;
 
 ~to.button('/grains/lock',   0, { |v| ~speedlock = v });
 
-~to.button('/grains/quant',   0, { |v| ~speedquant = v });
+~to.button('/grains/quant',   1, { |v| ~speedquant = v });
 
 ~to.button('/grains/metronome', 0, { |v|
 	if( v == 1, {

main.scd

@@ -32,24 +32,15 @@ Routine.run({
 	s.sync;
 	("./control.scd").loadRelative;
 	s.sync;
-
-});
-)
-
 	("./granulator.scd").loadRelative;
-
+	s.sync;
-
-(
-Routine.run({
 	("./effects.scd").loadRelative;
 	s.sync;
 	("./sequencer.scd").loadRelative;
 	s.sync;
+	~buflen.sleep;
+	"loading interface".postln;
 	("./interface.scd").loadRelative;
 });
 )
 
-~posb[0].scope
-~granulators[0].grainamp_(0);
-~granulators[0].loopsynth
-~dumpbuffers.value("looptober23")

sequencer.scd

@@ -2,14 +2,6 @@
 (
 
 
-SynthDef(\metronome, {
-	arg out=0, amp=1, pan=0, filter=1000, atk=0.01, rel=0.1;
-	var sig, env;
-	env = EnvGen.kr(Env.perc(atk, rel, amp), doneAction: Done.freeSelf);
-	sig = HPF.ar(WhiteNoise.ar(), filter);
-	Out.ar(out, Pan2.ar(sig * env, pan));
-}
-).add;
 
 ~metrob = Bus.audio(s, 2);
 
@@ -21,7 +13,7 @@ SynthDef(\metronome, {
 
 ~metronome = Pbind(
 	\instrument, \metronome,
-	\dur, 1,
+	\dur, ~beatsperbar,
 	\amp, 0.5,
 	\pan, 0,
 	\out, ~metrob

synths.scd

@@ -1,18 +1,18 @@
 (
 
 SynthDef(\pos_saw, {
-	arg out, dur=1;
+	arg out, length=1;
-	Out.kr(out, EnvGen.kr(Env([0, 1], dur), doneAction: Done.freeSelf))
+	Out.kr(out, EnvGen.kr(Env([0, 1], length), doneAction: Done.freeSelf))
 }).add();
 
-SynthDef(\pos_sin, {
+SynthDef(\pos_sine, {
-	arg out, dur=1;
+	arg out, length=1;
-	Out.kr(out, EnvGen.kr(Env.sine(dur, 1), doneAction: Done.freeSelf))
+	Out.kr(out, EnvGen.kr(Env.sine(length, 1), doneAction: Done.freeSelf))
 }).add();
 
 SynthDef(\pos_reverse, {
-	arg out, dur=1;
+	arg out, length=1;
-	Out.kr(out, EnvGen.kr(Env([1, 0], dur), doneAction: Done.freeSelf))
+	Out.kr(out, EnvGen.kr(Env([1, 0], length), doneAction: Done.freeSelf))
 }).add();
 
 // SynthDef(\pos_step, {
@@ -42,3 +42,4 @@ SynthDef(\metronome, {
 ).add;
 
 )
+