// Zacetek / konec Server.local.boot; Server.local.quit; s.boot; s.stop; // Server -> Boot /// Ctrl+B {SinOsc.ar}.play; // Shift+Enter evalvira // Ctrl + . ustavi zvok! // Start/stop prek spremenljivke x = {SinOsc.ar}.play; x.free; // HELP: shift+ctrl+D // recimo ugen {SinOsc.ar(SinOsc.kr(1, 0, 1, 1), 0, 1, 0)}.play {SinOsc.ar(520, 0, SinOsc.ar(3, 0.75, add: 1, phase: 0))}.play; {VarSaw.ar(42, 0, SinOsc.ar(2, 0.75, add: 1, phase: 0))}.play; {SinOsc.ar(32, 0, VarSaw.kr(3, 0.75, add: 1, phase: 0))}.play; {SinOsc.ar(100, )}.play // Kurzor na keyword in Ctrl+d odpre help zanj ( {SinOsc.ar(100,)}.play; {SinOsc.ar(100, 3.14)}.play; ) () ( SynthDef.new(\kFaza, { var a = SinOsc.ar(100); var b = SinOsc.ar(100, 3.14); Out.ar(0, a); Out.ar(1, b); }).add; ) ( SynthDef.new(\faza, { var a = SinOsc.ar(100); var b = SinOsc.ar(100); Out.ar(0, a); Out.ar(1, b); }).add; ) s = Synth.new(\kFaza); v = Synth.new(\faza); z.set(\f, 80); z.set(\f, 200, \amp, 0.5); NetAddr.langPort; a= 0; b= 0; c= 0; d= 0; // WW // Receiver function ( SynthDef.new(\slOSC, { // Najprej argumenti, potem variable arg f=0, ampOsc=0, ch=0, off=0; var so; so = SinOsc.ar(f, off, SinOsc.kr(ampOsc)); Out.ar(ch, so); }).add; a = Synth.new(\slOSC); b = Synth.new(\slOSC); c = Synth.new(\slOSC); d = Synth.new(\slOSC); s = [a, b, c, d]; OSCFunc({ arg msg, time, addr, recvPort; //[msg, time, addr, recvPort].postln; ~gX = msg[1] * 100; ~gY = msg[2] / 3; }, '/euler', n); OSCFunc({ arg msg, time, addr, recvPort; //[msg, time, addr, recvPort].postln; 4.do({ arg i; if (msg[i + 1] == 1.0) { s[i].set(\f, ~gX); s[i].set(\ampOsc, ~gY); s[i].set(\off, ~gZ); } }); }, '/keys', n); ) // ENDWW ( w = { arg noiseHz = 2.5; var f, sig, amp; // Med 200 in 1000 Hz //f = LFNoise0.kr(8, 400, 600); // f = LFNoise0.kr(8).range(200, 1000) f = LFNoise0.kr(noiseHz).exprange(300, 600); amp = LFNoise1.kr(9).exprange(0.2, 1); sig = SinOsc.ar(f) * amp; }.play; ) w.set(\noiseHz, 48); w.set(\noiseHz, exprand(260, 400)); w.free;