From 3335ef4b505a2a6e423516ec0aec1865231b987a Mon Sep 17 00:00:00 2001 From: David Runge 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