linnstrument interface for autopitch

Author: victor-shepardson

examples/notepredictor/autopitch.scd

@@ -1,17 +1,63 @@
 (
-~gui = false;
+~use_linn = true; // use linnstrument
+~gui = false; // use keyboard GUI
 MIDIIn.connectAll;
 b = NetAddr.new("127.0.0.1", 9999);
 Server.default.options.inDevice_("Built-in Microph");
 Server.default.options.outDevice_("Built-in Output");
 // Server.default.options.inDevice_("mic-buds");
 // Server.default.options.outDevice_("mic-buds");
-s.boot;
 ~gui.if{
     k = MIDIKeyboard.new(bounds: Rect(0, 0, 500, 100), octaves:11, startnote:0)
 };
+~linn_reset = {
+    ~linn.allLightsOff;
+    ~linn.setNoteOnAction({arg x,y,degree,freq,amp;
+        var idx;
+        [x,y,amp].postln;
+        (y<5).if{
+            idx = case
+            {y==0}{x}
+            {y==1}{x*2+5}
+            {y==2}{x*4+16}
+            {y==3}{x*8+40}
+            {y==4}{127-x};
+            idx.postln;
+            ~midi_handle.(amp*127, idx);
+        }{
+            case
+            {x==0}{
+                \sample.postln;
+                ~midi_handle.(amp*127, nil);}
+            {x==2}{
+                \reset.postln;
+                ~model_reset.()
+            }
+        }
+    });
+    ~linn.lightOn(0,0,4); //0
+    4.do{arg x; ~linn.lightOn(x+1,0,3)}; //1-4
+    5.do{arg x; ~linn.lightOn(x, 1, 10)}; //5-13
+    5.do{arg x; ~linn.lightOn(x, 2, 2)}; //16-32
+    5.do{arg x; ~linn.lightOn(x, 3, 9)}; //40-72
+    ~linn.lightOn(0,4,11); //127
+    4.do{arg x; ~linn.lightOn(x+1,4,1)}; //126-123
+
+    ~linn.lightOn(0, 6, 8); // sample
+    ~linn.lightOn(2, 6, 2); // reset
+
+
+};
+s.waitForBoot{
+    ~use_linn.if{
+        ~linn = IILinnstrument.new(nil);
+        ~linn_reset.();
+    }
+};
 )
 
+// ~linn_reset.()
+
 (
 SynthDef(\pluck, {
     var vel = \vel.kr;
@@ -22,6 +68,8 @@ SynthDef(\pluck, {
 }).add
 )
 
+// ~linn.setNoteOnAction({}); ~linn.setNoteOffAction({});
+
 
 // measure round-trip latency
 (
@@ -77,7 +125,7 @@ MIDIdef.program(\switch, {
 
 
 // MIDI from controller
-MIDIdef.noteOn(\input, {
+~midi_handle = {
     arg vel, pitch, chan, src;
     var t2 = Process.elapsedTime;
     var dt = t2-(t?t2); //time since last note
@@ -90,16 +138,26 @@ MIDIdef.noteOn(\input, {
 
     // get a new prediction in light of last note,
     // fixing dt and vel to performed values so just pitch is predicted
-    b.sendMsg("/predictor/predict",
-        \pitch, ~last_pitch, \time, ~last_dt, \vel, ~last_vel,
-        \index_pitch, pitch, \fix_time, dt, \fix_vel, vel);
+    pitch.notNil.if{
+        b.sendMsg("/predictor/predict",
+            \pitch, ~last_pitch, \time, ~last_dt, \vel, ~last_vel,
+            \index_pitch, pitch, \fix_time, dt, \fix_vel, vel);
+    }{
+        b.sendMsg("/predictor/predict",
+            \pitch, ~last_pitch, \time, ~last_dt, \vel, ~last_vel,
+            \fix_time, dt, \fix_vel, vel);
+    };
 
     ~last_dt = dt;
     ~last_vel = vel;
 
     // mark time of current note
     t = t2;
-});
+};
+
+~use_linn.not.if{
+    MIDIdef.noteOn(\input, ~midi_handle);
+};
 
 // OSC return from python
 OSCdef(\return, {
@@ -124,7 +182,5 @@ OSCdef(\return, {
 // send a note manually if you don't have a midi controller
 MIDIdef.all[\input].func.(64, 16) //velocity, "pitch"
 
-"abc"+0
-
 // load another model
 // b.sendMsg("/predictor/load", "/path/to/checkpoint");