|
@@ -23,14 +23,21 @@ s.waitForBoot { |
|
|
|
|
|
|
|
|
// Filtered saw oscillator |
|
|
// Filtered saw oscillator |
|
|
oscillator = SawDPW.ar(frequency); |
|
|
oscillator = SawDPW.ar(frequency); |
|
|
filter = DFM1.ar(oscillator, frequency*0.8, 0.8, 1.0, 0.0, 0.0006); |
|
|
|
|
|
|
|
|
filter = DFM1.ar(oscillator, frequency*0.5, 0.8, 1.0, 0.0, 0.0006); |
|
|
|
|
|
|
|
|
|
|
|
// Noise |
|
|
|
|
|
qfactor = Lag.kr((1 - saturation)**4, lagtime); |
|
|
|
|
|
noise = Crackle.ar(1.99, 1.0); |
|
|
|
|
|
noise = BPF.ar(noise, frequency, qfactor); |
|
|
|
|
|
|
|
|
|
|
|
// Mix noise and saw |
|
|
|
|
|
mixer = Mix.ar([filter * saturation, noise*(1-saturation)]); |
|
|
|
|
|
|
|
|
// Apply pan |
|
|
// Apply pan |
|
|
panner = LinPan2.ar(filter, pan); |
|
|
|
|
|
|
|
|
panner = LinPan2.ar(mixer, pan); |
|
|
|
|
|
|
|
|
// Apply dynamics |
|
|
// Apply dynamics |
|
|
output = panner * Lag.kr(HPF.kr(value, hue / (lagtime)), lagtime*4); |
|
|
|
|
|
//output = panner * BPF.kr(value, 1 / lagtime, 100); |
|
|
|
|
|
|
|
|
output = panner * Lag.kr(HPF.kr(value, 4 * hue / (lagtime)), lagtime); |
|
|
|
|
|
|
|
|
// Compress |
|
|
// Compress |
|
|
output = Compander.ar(output, output, 0.5, 0.3, 0.3, 0.1, lagtime); |
|
|
output = Compander.ar(output, output, 0.5, 0.3, 0.3, 0.1, lagtime); |
|
@@ -49,7 +56,7 @@ s.waitForBoot { |
|
|
arg index; |
|
|
arg index; |
|
|
var pan, octave; |
|
|
var pan, octave; |
|
|
pan = 0 - ((index % 4) - 1.5)/1.5; |
|
|
pan = 0 - ((index % 4) - 1.5)/1.5; |
|
|
octave = (2 - (index / 4).floor); |
|
|
|
|
|
|
|
|
octave = (2 - (index / 4).floor) * 2; |
|
|
"Module %: Pan %, octave %\n".postf(index, pan.round(1e-1), octave.round(1e-1)); |
|
|
"Module %: Pan %, octave %\n".postf(index, pan.round(1e-1), octave.round(1e-1)); |
|
|
Synth.new(\module, |
|
|
Synth.new(\module, |
|
|
[\hue, 0.5, \saturation, 0.1, \value, 0.5, \pan, pan, \gain, 0.9, \octave, octave] |
|
|
[\hue, 0.5, \saturation, 0.1, \value, 0.5, \pan, pan, \gain, 0.9, \octave, octave] |
|
|