Compare commits

...

2 Commits

Author SHA1 Message Date
bombinans 9f7b83a44e Quantised speed controls are back 2023-10-25 15:19:31 +11:00
bombinans 4f4132fdcc Fixed playback issues 2023-10-25 14:34:23 +11:00
5 changed files with 74 additions and 77 deletions

View File

@ -4,9 +4,7 @@
~modes = [ ~modes = [
[ "saw", \pos_saw ], [ "saw", \pos_saw ],
[ "reverse", \pos_reverse ], [ "reverse", \pos_reverse ],
[ "sine", \pos_sine ], [ "sine", \pos_sine ]
[ "step", \pos_step ],
[ "random", \pos_random ]
]; ];
~outputDir = Platform.recordingsDir +/+ "GrainBuffers"; ~outputDir = Platform.recordingsDir +/+ "GrainBuffers";
@ -15,15 +13,17 @@
~grainsb = Bus.audio(s, 2); ~grainsb = Bus.audio(s, 2);
~granulators = Array.new(4); ~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); ~posb = Array.new(4);
~rectriggerb = 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 // create the control busses
(0..3).do({ (0..3).do({
var ps;
~posb.add(Bus.control(s, 1)); ~posb.add(Bus.control(s, 1));
~rectriggerb.add(Bus.control(s, 1)); ~rectriggerb.add(Bus.control(s, 1));
}); });
@ -35,29 +35,59 @@
~granulators.add(Granulator.new(~buflen, ~infxb, ~grainsb, pb, rtb)); ~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| (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 = { ~setmode = {
arg track, mode; 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| ~dumpbuffers = { |prefix|
(0..3).do({|i| (0..3).do({|i|
var filename = ~outputDir +/+ prefix ++ 'buffer' ++ i.asString ++ '.aiff'; var filename = ~outputDir +/+ prefix ++ 'buffer' ++ i.asString ++ '.aiff';

View File

@ -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 // 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 // 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. // 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.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) }); ~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/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| ~to.button('/grains/metronome', 0, { |v|
if( v == 1, { if( v == 1, {

View File

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

View File

@ -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); ~metrob = Bus.audio(s, 2);
@ -21,7 +13,7 @@ SynthDef(\metronome, {
~metronome = Pbind( ~metronome = Pbind(
\instrument, \metronome, \instrument, \metronome,
\dur, 1, \dur, ~beatsperbar,
\amp, 0.5, \amp, 0.5,
\pan, 0, \pan, 0,
\out, ~metrob \out, ~metrob

View File

@ -1,18 +1,18 @@
( (
SynthDef(\pos_saw, { 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(); }).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(); }).add();
SynthDef(\pos_reverse, { 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(); }).add();
// SynthDef(\pos_step, { // SynthDef(\pos_step, {
@ -42,3 +42,4 @@ SynthDef(\metronome, {
).add; ).add;
) )