diff options
| -rw-r--r-- | .config/SuperCollider/functions.scd | 75 |
1 files 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); + }); +}; + + |