Always-on computer music
25개 이상의 토픽을 선택하실 수 없습니다. Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

20 lines
580B

  1. s = Server.local;
  2. s.waitForBoot {
  3. var module, sound;
  4. // Connect to OSC
  5. thisProcess.openUDPPort(5005);
  6. n = NetAddr.new("0.0.0.0", 5005);
  7. o = OSCFunc({ arg msg, time, addr, recvPort; [msg, time, addr, recvPort].postln; }, '/radio', n);
  8. OSCFunc.trace(true);
  9. // Create the synth definition and load it
  10. module = SynthDef.new("module", { arg hue, saturation, value;
  11. Out.ar(0, SinOsc.ar(MouseX.kr(220, 1000)));
  12. });
  13. module.load(s);
  14. // Make a sound
  15. sound = Synth.new("module", [\hue, 440, \saturation, 100, \value, 500]);
  16. };