bombinans
/
multigrain
1
0
Fork 0
Code Issues 3 Pull Requests Packages Projects Releases Wiki Activity

Fixed interface glitches, made trigger/size have an xy control

feature-multitrack
Mike Lynch 2023-04-16 17:45:15 +10:00
parent c8ab06dfc4
commit 4c5cc176f3
2 changed files with 28 additions and 66 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

59
interface.scd
View File

@ -1,9 +1,9 @@
// FIXME: the touchosc stuff is crashing on intialisation
(
~to = TouchOSC("192.168.0.209", 9000);
~speeds = [ 1, 1, 1, 1 ];
~tracknum = 0;
~granulator = ~granulators[0];
@ -11,7 +11,6 @@
OSCdef.freeAll;
~to.button('/reset', 0, { | v |
if( v > 0, {
var sp = ~to.v('/grains/speed')[0];
@ -24,17 +23,12 @@ OSCdef.freeAll;
});
});
// Problem - when you press the record, mode or speed control on the grains page,
// it doesn't update the track until you change tracks. How to make this work
// without a loop (one control sets another control, which sets the first control...)?
// note: ~buflen is the variable for buffer length, which only gets set to
// ~to.v('/grains/buflen') when the buffer is reset with the clear button
~to.slider('/grains/buflen', ~buflen, TouchOSCScale(0.1, 10.0), {});
~to.button('/grains/record0', 0, { | v | ~granulators[0].record_(v) });
~to.button('/grains/record1', 0, { | v | ~granulators[1].record_(v) });
~to.button('/grains/record2', 0, { | v | ~granulators[2].record_(v) });
@ -45,22 +39,10 @@ OSCdef.freeAll;
~to.button('/grains/mode2', 0, { |v| ~granulators[2].mode_(v); ~setmode.value(2, v) });
~to.button('/grains/mode3', 0, { |v| ~granulators[3].mode_(v); ~setmode.value(3, v) });
~to.slider('/grains/speed0', 1, TouchOSCScale(0, 2), { |v|
~speeds[0] = v;
~possynths[0].set(\speed, v / ~buflen);
});
~to.slider('/grains/speed1', 1, TouchOSCScale(0, 2), { |v|
~speeds[1] = v;
~possynths[1].set(\speed, v / ~buflen);
});
~to.slider('/grains/speed2', 1, TouchOSCScale(0, 2), { |v|
~speeds[2] = v;
~possynths[2].set(\speed, v / ~buflen);
});
~to.slider('/grains/speed3', 1, TouchOSCScale(0, 2), { |v|
~speeds[3] = v;
~possynths[3].set(\speed, v / ~buflen);
});
~to.slider('/grains/speed0', 1, TouchOSCScale(0, 2), { |v| ~possynths[0].set(\speed, v / ~buflen); });
~to.slider('/grains/speed1', 1, TouchOSCScale(0, 2), { |v| ~possynths[1].set(\speed, v / ~buflen); });
~to.slider('/grains/speed2', 1, TouchOSCScale(0, 2), { |v| ~possynths[2].set(\speed, v / ~buflen); });
~to.slider('/grains/speed3', 1, TouchOSCScale(0, 2), { |v| ~possynths[3].set(\speed, v / ~buflen); });
~to.slider('/grains/passthrough', 0.75, TouchOSCScale(0, 1), { |v| ~grainmixer.set(\passthrough, v) });
@ -71,28 +53,16 @@ OSCdef.freeAll;
~to.button('/grains/speedquant', 0, { |v| });
// Page 2: track
// record, mode and speed have controls on both pages - the controls for them here just
// call the v_ setter on the front page controls
~trackctrl = { | base, n | ("/grains/" ++ base ++ n).asSymbol };
~to.button('/track/record', 0, { | v |
~to.v_(~trackctrl.value("record", ~tracknum), v)
~to.xy('/track/triggersize', [ 120, 0.1 ], TouchOSCScale(0, 640), TouchOSCScale(0, 0.5), { |v|
~granulator.trigger_(v[0]);
~granulator.size_(v[1]);
});
~to.button('/track/mode', 0, { | v |
~to.v_(~trackctrl.value("mode", ~tracknum), v) });
~to.slider('/track/speed', 1, TouchOSCScale(0, 2), { |v|
~to.v_(~trackctrl.value("speed", ~tracknum), v) });
// the rest of this page's controls set the values on the current granulator
~to.slider('/track/blur', 0, TouchOSCScale(0, 0.25), { |v| ~granulator.blur_(v) });
~to.slider('/track/size', 0.1, TouchOSCScale(0, 0.5), { |v| ~granulator.size_(v) });
~to.slider('/track/trigger', 120, TouchOSCScale(0, 640), { |v| ~granulator.trigger_(v) });
~to.button('/track/dust', 0, { |v| ~granulator.dust_(v) });
~to.button('/track/back', 0, { |v| ~granulator.back_(v)});
@ -108,19 +78,13 @@ OSCdef.freeAll;
~to.slider('/track/jitter', 0.25, TouchOSCScale(0, 1), { |v| ~granulator.jitter_(v) });
// define track selector after the track controls are defined
~to.button('/trackselect', 0, { |v|
~tracknum = v.asInteger;
~granulator = ~granulators[~tracknum];
[ "granulator", ~granulator, "record", ~granulator.record ].postln;
~to.v_('/track/record', ~granulator.record);
~to.v_('/track/mode', ~granulator.mode);
~to.v_('/track/trigger',~granulator.trigger);
~to.v_('/track/speed', ~speeds[~tracknum]);
~to.v_('/track/triggersize', [~granulator.trigger, ~granulator.size]);
~to.v_('/track/blur', ~granulator.blur);
~to.v_('/track/size', ~granulator.size);
~to.v_('/track/mix', ~granulator.mix);
~to.v_('/track/pan', ~granulator.pan);
~to.v_('/track/track', ~granulator.track);
@ -143,10 +107,7 @@ OSCdef.freeAll;
~to.slider('/fx/grainmix', 1.0, TouchOSCScale(0, 1), { |v| ~grainmixer.set(\grains, v) } );
~to.slider('/fx/filtermix', 0.8, TouchOSCScale(0, 1), { |v| ~filter.set(\amp, v) } );
~to.button('/fx/filtermoda', 1, { |v| ~filtermod.set(\a, v) });
~to.button('/fx/filtermodb', 0, { |v| ~filtermod.set(\b, v) });
~to.button('/fx/filtermodc', 0, { |v| ~filtermod.set(\c, v) });

9
main.scd
View File

@ -30,14 +30,14 @@ Granulator.init(s);
(0..3).do({
var pb = Bus.control(s, 1), ps;
~posb.add(pb);
ps = Synth(\pos_saw, [ \out, pb ]);
ps = Synth(\pos_saw, [ \out, pb, \speed, 1 / ~buflen ]);
~possynths.add(ps);
});
(0..3).do({ |i|
var pb = ~posb.at(i);
~granulators.add(Granulator.new(~buflen, ~recordb, ~outb, pb, ~triggerb, ~pitchb));
~granulators.add(Granulator.new(~buflen, ~recordb, ~fxb, pb, ~triggerb, ~pitchb));
});
~setmode = {
@ -55,7 +55,7 @@ Granulator.init(s);
("./interface.scd").loadRelative;
~to.controls.keys.do({|k, i| i.postln; k.postln;~to.controls[k].postln});
~to.controls['/grains/speed0']
~to.controls['/track/speed'].send_(0.1);
~to.v_(, 0);
~to.controls.at(~trackctrl.value('speed')).isNil.not
@ -67,4 +67,5 @@ a.asSymbol
~possynths[0].get(\speed, {|v| v.postln});
~possynths[0].set(\speed, 20 / ~buflen)