cgcode

// startup :

get these files first:

WarteRaum2.sc
allMySynthDefs.sc
cgMiniStart.rtf

put WarteRaum2 into SCClasslibrary, and recompile,
put allMySynthDefs into SuperCollider_f or build,
and read cgMiniStart.rtf.

---

old...

download this: WarteRaum.sc

// example synthdef :
(
SynthDef("grain",
{ arg out = 0, freq=800, sustain=0.001, amp=0.5, pan = 0;
var window;
window = Env.sine(sustain, amp);
Out.ar(out,
Pan2.ar(
SinOsc.ar(freq),
pan
) EnvGen.ar(window, doneAction:2)
)
}
).send(b);
)

b.sendMsg("/s_new", "grain", -1, 0, 0, \freq, 2000, \sustain, 1.1, \out, 0);

// go around all machines
(
Task({
30.do({ arg i;
b.allAddr.wrapAt(i).sendMsg("s_new", "grain", -1, 0, 0, \amp, 1, \freq, rrand(4000, 10000));
0.25.wait;
});
}).play;
)

---

not used yet:
(
z = Server(\scserv, NetAddr("192.168.130.1", 57110), clientID: 1);
z.notify;
z.serverRunning = true;
z.latency = nil;
)
z.latency = 0.1;


z.sendMsg(9, "default", 1900);
z.sendMsg("/n_free", 1900);

ProxySpace.push(z);

~out.play;
~out = { Mix.fill(3, { Pan2.ar(SinOsc.ar(IRand(0, 6).midiratio 150, 0, LFNoise1.kr(0.1).range(0,0.1)), SinOsc.kr(0.1, Rand(0,pi))) }) };
~out = { SinOsc.ar(Rand(110,1840), 0, 0.01) };
~out.spawner(5);
~out.freeSpawn;
~out.fadeTime = 0.05;
ProxySpace.pop;

z.freeAll;


c = Client(\scserv, z.addr);
c.send(\test, 12345);
c.send(\write, \hello, "welcome");
c.send(\write, \mux, "that's it.");
c.send(\perform, \mux, ...)

---

Extra download/exchange:

ProxyMixer.help.rtf
ProxyMixer.sc
RedPatchListGUI.sc
RedSynthDefsGUI.sc+