|
|
@@ -1,3 +1,5 @@ |
|
|
|
// SVNVimStart |
|
|
|
|
|
|
|
s = Server.local; |
|
|
|
s.waitForBoot { |
|
|
|
var module, msg, modules; |
|
|
@@ -9,22 +11,25 @@ s.waitForBoot { |
|
|
|
|
|
|
|
// Create the synth definition and load it |
|
|
|
module = SynthDef.new(\module, { |
|
|
|
arg hue, saturation, value, pan, gain; |
|
|
|
var oscillator, noise, filter, panner, mixer, frequency, qfactor, noise_level, osc_level; |
|
|
|
arg hue, saturation, value, pan, gain, octave; |
|
|
|
var oscillator, noise, filter, panner, mixer, frequency, qfactor, noise_level, osc_level, lagtime; |
|
|
|
|
|
|
|
|
|
|
|
// Calculate some parameters |
|
|
|
frequency = 800 + 500*hue; |
|
|
|
qfactor = (1 - saturation)**4; |
|
|
|
osc_level = saturation; |
|
|
|
noise_level = 1 - osc_level; |
|
|
|
lagtime = 0.5; |
|
|
|
frequency = Lag.kr(200 + 300*hue, lagtime) * (2**octave); |
|
|
|
qfactor = Lag.kr((1 - saturation)**4, lagtime); |
|
|
|
osc_level = Lag.kr(saturation, lagtime); |
|
|
|
noise_level = Lag.kr(1 - osc_level, lagtime); |
|
|
|
|
|
|
|
// Generate some sounds |
|
|
|
// noise = WhiteNoise.ar(1); |
|
|
|
noise = Crackle.ar(1.9, 1.0); |
|
|
|
noise = Crackle.ar(1.99, 1.0); |
|
|
|
filter = BPF.ar(noise, frequency, qfactor) * noise_level; |
|
|
|
oscillator = SinOsc.ar(frequency) * osc_level; |
|
|
|
//oscillator = SinOsc.ar(frequency) * osc_level; |
|
|
|
oscillator = DPW3Tri.ar(frequency) * osc_level; |
|
|
|
mixer = Mix.ar([filter, oscillator]); |
|
|
|
panner = LinPan2.ar(mixer, 2*pan - 1, value * 0.2); |
|
|
|
panner = LinPan2.ar(mixer, pan, 10*HPF.kr(value, 10**(1-octave*2))**2); |
|
|
|
Out.ar(0, panner); |
|
|
|
}); |
|
|
|
module.load(s); |
|
|
@@ -34,23 +39,21 @@ s.waitForBoot { |
|
|
|
modules = Array.fill(12, |
|
|
|
{ |
|
|
|
arg index; |
|
|
|
var pan; |
|
|
|
var pan, octave; |
|
|
|
pan = ((index % 4) - 1.5)/1.5; |
|
|
|
octave = (index / 4).floor; |
|
|
|
"% %\n".postf(pan, octave); |
|
|
|
Synth.new(\module, |
|
|
|
[\hue, 0.5, \saturation, 0.1, \value, 0.5, pan, 0.5, \gain, 0.9] |
|
|
|
[\hue, 0.5, \saturation, 0.1, \value, 0.5, pan, 0.5, \gain, 0.9, \octave, octave] |
|
|
|
) |
|
|
|
} |
|
|
|
); |
|
|
|
|
|
|
|
"%\n".postf(modules[0]); |
|
|
|
"%\n".postf(modules[1]); |
|
|
|
|
|
|
|
// Hook up OSC |
|
|
|
f = { |msg, time, addr| |
|
|
|
if(msg[0] == '/radio') { |
|
|
|
"Got data: index: % hue: % sat: % value: % pan: %\n".postf(msg[1], msg[2], msg[3], msg[4], msg[5]); |
|
|
|
if(msg[1]<modules.size){ |
|
|
|
"Applying to module %\n\n".postf(msg[1]); |
|
|
|
modules[msg[1]].set(\hue, msg[2]); |
|
|
|
modules[msg[1]].set(\saturation, msg[3]); |
|
|
|
modules[msg[1]].set(\value, msg[4]); |
|
|
|