From 3335ef4b505a2a6e423516ec0aec1865231b987a Mon Sep 17 00:00:00 2001
From: David Runge <dave@sleepmap.de>
Date: Sun, 3 Mar 2019 20:05:14 +0100
Subject: .config/SuperCollider/functions.scd: Adding SSR specific helper
 functions. Adding TODOs.

---
 .config/SuperCollider/functions.scd | 75 ++++++++++++++++++++++++++++++++++++-
 1 file changed, 73 insertions(+), 2 deletions(-)

diff --git a/.config/SuperCollider/functions.scd b/.config/SuperCollider/functions.scd
index fecd1a0..731760a 100644
--- a/.config/SuperCollider/functions.scd
+++ b/.config/SuperCollider/functions.scd
@@ -2,7 +2,7 @@ postln('Loading custom functions.');
 
 /*
  * JACK specific helper functions
- *
+ * TODO: move to Quark
  */
 // disconnect a port
 ~jackDisconnectPort = {
@@ -32,11 +32,15 @@ postln('Loading custom functions.');
   ("jack_lsp "++clientName++"| wc -l").unixCmdGetStdOut.asInt;
 };
 
+/*
+ * SuperCollider specific helper functions
+ *
+ */
 // adds one or more channels to Server.local.options.num{In,Out}putBusChannels
 // makes the tuple available in ~additionalChannels Dictionairy
 ~addAdditionalChannels = {
   arg type, name, channels;
-  if( name.class == Symbol && channels.isArray, {
+  if( name.isKindOf(Symbol) && channels.isArray, {
     switch (type,
       \input, {
         ~additionalChannels.at(\inputs).add(name -> channels);
@@ -56,3 +60,70 @@ postln('Loading custom functions.');
     postln('Expecting type Symbol for name and type Array for channels.');
   });
 };
+
+/*
+ * SSR specific helper functions
+ * TODO: move to Quark
+ */
+
+// sets up the necessary OSC connection for an existing local or remote SSR
+// instance, subscribes to it and returns the NetAddr associated with it
+~ssrSetupOSC = {
+  arg host="localhost", port=50001;
+  var ssr;
+  // set ssr of the client instance
+  ssr = NetAddr(host, port);
+  // answer /poll messages with an /alive answer
+  OSCdef(
+    \pollreply,
+    {
+      arg msg, time, addr, recvPort;
+      ~ssr.sendMsg("/alive");
+    },
+    '/poll',
+    ssr
+  );
+  // subscribe to server with MessageLevel::SERVER
+  ssr.sendMsg("/subscribe", $T, 2);
+  ssr;
+};
+
+// clears the SSR scene, unsubscribes from the instance and removes alive
+// answers OSCdef
+~ssrDismantleOSC = {
+  arg ssr;
+  if (ssr.isKindOf(NetAddr), {
+    // remove all sources
+    ssr.sendMsg("/scene/clear");
+    // unsubscribe from server
+    ssr.sendMsg("/subscribe", $F);
+    // disable alive answers
+    OSCdef(\alive).disable;
+  });
+};
+
+// adds a source to an SSR instance
+~ssrAddSource = {
+  arg ssr, name, model = "point", port, x = 0.0, y = 0.0, orientation = 0.0,
+  gain = 0.0, movability = $F, orientationMovability = $F, mute = $F;
+  if (ssr.isKindOf(NetAddr), {
+    if (name.isString, {
+      if (model.isString, {
+        if (port.isString, {
+          ssr.sendMsg("/source/new", name, model, port, x, y, orientation,
+            gain, movability, orientationMovability, mute)
+        },{
+          error("The port argument is not of type String: "++port.class);
+        });
+      },{
+        error("The model argument is not of type String: "++model.class);
+      });
+    },{
+      error("The name argument is not of type String: "++name.class);
+    });
+  },{
+    error("The ssr argument is not of type NetAddr: "++ssr.class);
+  });
+};
+
+
-- 
cgit v1.2.3-70-g09d2