Code trying to answer a question in funprogramming.org

http://funprogramming.org/138-Processing-talks-to-SuperCollider-via-OSC.html#comment-1391456545

Author: Abe Pazos

processing/ideas/2014/05/twoDiffReactionsToOSCmsgs/sketch.properties

@@ -0,0 +1,2 @@
+mode.id=processing.mode.java.JavaMode
+mode=Java

processing/ideas/2014/05/twoDiffReactionsToOSCmsgs/twoDiffReactionsToOSCmsgs.pde

@@ -0,0 +1,26 @@
+import oscP5.*;
+import netP5.*;
+
+OscP5 osc;
+NetAddress supercollider;
+
+void setup() {
+  osc = new OscP5(this, 12000);
+  // Get the next values from SuperCollider 
+  // evaluating: NetAddr.localAddr
+  supercollider = new NetAddress ("127.0.0.1", 57120);
+}
+
+void draw() {
+  // To avoid sending 60 messages per second,
+  // only send a message every 10 frames
+  
+  // Find out yourself how many messages you can send
+  // per second. You can send a lot, but not millions :)
+  if (frameCount % 10 == 0) {
+    OscMessage msg = new OscMessage ("/length");
+    msg.add(100 + noise(frameCount) * 300);
+    osc.send(msg, supercollider);
+  }
+}
+

supercollider/twoDiffReactionsToOSCmsgs.scd

@@ -0,0 +1,54 @@
+// Show net values to use in Processing
+NetAddr.localAddr
+
+(
+SynthDef(\shortSynth, {
+    arg pitch=200;
+    var sound = SinOsc.ar(pitch * 2, mul:0.3);
+    var linen = Env.linen(0.01, sustainTime:0, releaseTime:0.3);
+    var env = EnvGen.kr(linen, doneAction:2);
+    Out.ar(0, sound * env);
+}).add;
+)
+
+(
+SynthDef(\foreverSynth, {
+    arg pitch = 200;
+    var lfo = SinOsc.kr(2, 0, 5);
+    // 0.1 seconds portamento, tweens the missing
+    // values smoothly
+    var portaPitch = Lag.kr(pitch, 0.1);
+    var sound = LFTri.ar(portaPitch + lfo, mul:0.1);
+    Out.ar(0, sound);
+}).add;
+)
+
+
+
+// A sound that plays forever
+~long = Synth(\foreverSynth);
+
+// test modifying the pitch to see it works
+~long.set(\pitch, 200.rrand(1000));
+
+(
+// Listen to OSC messages
+OSCdef('processing', {
+    arg msg;
+
+    // value received from Processing
+    var pval = msg[1];
+
+    // debug: show value
+    //msg[1].postln;
+
+    // Now we can do different things, like:
+
+    // Option 1. start a new Synth for each OSC msg
+    Synth(\shortSynth, [pitch:msg[1]]);
+
+    // Option 2. modify an existing Synth for each OSC msg
+    ~long.set(\pitch, msg[1]);
+}, "/length");
+)
+