From c8ab06dfc472409dc902f17882a4a79a7af1ba0b Mon Sep 17 00:00:00 2001
From: Mike Lynch <mike@mikelynch.org>
Date: Sat, 15 Apr 2023 16:03:16 +1000
Subject: [PATCH] Working out a lot of kinks in the interface

---
 interface.scd | 73 +++++++++++++++++++++++++++++----------------------
 main.scd      | 16 +++++++----
 2 files changed, 53 insertions(+), 36 deletions(-)

diff --git a/interface.scd b/interface.scd
index a8b2ae2..d0e3fe1 100644
--- a/interface.scd
+++ b/interface.scd
@@ -1,9 +1,12 @@
 
+
 (
 ~to = TouchOSC("192.168.0.209", 9000);
 
 ~speeds = [ 1, 1, 1, 1 ];
 
+~tracknum = 0;
+~granulator = ~granulators[0];
 
 OSCdef.freeAll;
 
@@ -21,30 +24,9 @@ OSCdef.freeAll;
 	});
 });
 
-
-// when selecting a track, sets all the controls on the track page to this one
-
-~to.button('/trackselect', 0, { |v|
-	~tracknum = v.asInteger;
-	~granulator = ~granulators[~tracknum];
-	~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/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);
-	~to.v_('/track/jitter', ~granulator.jitter);
-	~to.v_('/track/dust',   ~granulator.dust);
-	~to.v_('/track/slope',  ~granulator.slope);
-	~to.v_('/track/back',   ~granulator.back);
-	~to.v_('/track/chorus', ~granulator.chorus);
-	~to.v_('/track/detune', ~granulator.detune);
-	~to.v_('/track/pitch',  ~granulator.pitch);
-});
+// 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
@@ -66,22 +48,18 @@ OSCdef.freeAll;
 ~to.slider('/grains/speed0', 1, TouchOSCScale(0, 2), { |v|
 	~speeds[0] = v;
 	~possynths[0].set(\speed, v / ~buflen);
-	~speeds.postln;
 });
 ~to.slider('/grains/speed1', 1, TouchOSCScale(0, 2), { |v|
 	~speeds[1] = v;
 	~possynths[1].set(\speed, v / ~buflen);
-	~speeds.postln;
 });
 ~to.slider('/grains/speed2', 1, TouchOSCScale(0, 2), { |v|
 	~speeds[2] = v;
 	~possynths[2].set(\speed, v / ~buflen);
-	~speeds.postln;
 });
 ~to.slider('/grains/speed3', 1, TouchOSCScale(0, 2), { |v|
 	~speeds[3] = v;
 	~possynths[3].set(\speed, v / ~buflen);
-	~speeds.postln;
 });
 
 ~to.slider('/grains/passthrough', 0.75, TouchOSCScale(0, 1), { |v| ~grainmixer.set(\passthrough, v) });
@@ -98,9 +76,16 @@ OSCdef.freeAll;
 // record, mode and speed have controls on both pages - the controls for them here just
 // call the v_ setter on the front page controls
 
-~to.button('/track/record',  0, { | v | ~to.v_('grains/record' ++ ~tracknum, v) });
-~to.button('/track/mode',    0, { | v | ~to.v_('grains/mode' ++ ~tracknum, v) });
-~to.slider('/track/speed',   1, TouchOSCScale(0, 2), { |v| ~to.v_('grains/speed' ++ ~tracknum, v) });
+~trackctrl = { | base, n | ("/grains/" ++ base ++ n).asSymbol };
+
+
+~to.button('/track/record',  0, { | v |
+	~to.v_(~trackctrl.value("record", ~tracknum), v)
+});
+~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
 
@@ -123,6 +108,32 @@ 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/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);
+	~to.v_('/track/jitter', ~granulator.jitter);
+	~to.v_('/track/dust',   ~granulator.dust);
+	~to.v_('/track/slope',  ~granulator.slope);
+	~to.v_('/track/back',   ~granulator.back);
+	~to.v_('/track/chorus', ~granulator.chorus);
+	~to.v_('/track/detune', ~granulator.detune);
+	~to.v_('/track/pitch',  ~granulator.pitch);
+});
+
+
 
 
 ~to.slider(
diff --git a/main.scd b/main.scd
index c5a8ca9..9a8411a 100644
--- a/main.scd
+++ b/main.scd
@@ -14,7 +14,6 @@ Server.killAll;
 Granulator.init(s);
 
 (
-// set up four position buffers with synths
 
 ~modes = [
 	[ "saw", \pos_saw ],
@@ -52,12 +51,19 @@ 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.v_(, 0);
+
+~to.controls.at(~trackctrl.value('speed')).isNil.not
+
+a = "string"
+b = 'string'
+
+a.asSymbol