@ -1,125 +1,13 @@
MIDIClient.init;
MIDIClient.init;
MIDIIn.connectAll;
MIDIIn.connectAll;
MIDIClient.sources.do;
(
SynthDef(\rhubarb, {
|freq = 440, gate = 1, cutoff = 1e4, rq = 0.3, amp = 0.3, modDepth = 0.3, modDepth2 = 0.5, noiseLevel = 0.8, ringFreq = 80, detune = 0|
var env, osc1, osc2, osc3, filt1, filt2, filt3, lfo, lfo2, noise, noiseFilt, sig1, sig2, sig3, mix;
// Slightly Different Oscillators
osc1 = SinOsc.ar(freq + detune);
osc2 = SinOsc.ar(freq + detune * 0.5); // Slight detune for variation
osc3 = SawDPW.ar(freq * 2);
// LFO to Modulate Filter Frequency
lfo = LFDNoise3.kr(4).range(1 - modDepth, 1 + modDepth);
lfo2 = LFNoise2.kr(4).range(1 - modDepth, 1 + modDepth);
// lfo2 = noise;
// Apply Different Filters to Each Oscillator
filt1 = SVF.ar(osc1, cutoff * lfo, rq);
filt2 = LPF.ar(osc2, cutoff * lfo, rq);
filt3 = BPF.ar(osc3, cutoff * lfo2, rq);
// ADSR Envelope
env = EnvGen.kr(Env.adsr(1, 3, 0.3, 0.1), gate, doneAction: 2);
// Panning and Mixing
sig1 = Pan2.ar(filt1 * env * amp, -0.3);
sig2 = Pan2.ar(filt2 * env * amp, 0.3);
sig3 = Pan2.ar(filt3 * env * amp, 0);
mix = sig1 + sig2; // Mix main signals
// mix = mix.blend(GVerb.ar(mix.sum, 299, 4), 0.15);
// mix = mix + (noise * env * noiseLevel); // Add noise with envelope control
// mix = DelayC.ar(mix, maxdelaytime: 0.2, delaytime: 0.3);
// Output
Out.ar(0, mix);
}).add;
)
(
SynthDef(\rhubarb, {
|freq = 440, gate = 1, cutoff = 1e4, rq = 0.3, amp = 0.1, modDepth = 0.3, modDepth2 = 0.5, noiseLevel = 0.8, ringFreq = 80, detune = 0|
var env, osc1, osc2, osc3, filt1, filt2, filt3, lfo, lfo2, noise, noiseFilt, sig1, sig2, sig3, mix, chorus, chorusDepth = 20, chorusRate = 80, chorusedSignal;
// Slightly Different Oscillators
osc1 = SinOsc.ar(freq + detune);
osc2 = SinOsc.ar(freq + detune * 0.5); // Slight detune for variation
osc3 = SawDPW.ar(freq * 2);
// LFO to Modulate Filter Frequency
lfo = LFDNoise3.kr(4).range(1 - modDepth, 1 + modDepth);
lfo2 = LFNoise2.kr(4).range(1 - modDepth, 1 + modDepth);
// Apply Different Filters to Each Oscillator
filt1 = SVF.ar(osc1, cutoff * lfo, rq);
filt2 = LPF.ar(osc2, cutoff * lfo, rq);
filt3 = BPF.ar(osc3, cutoff * lfo2, rq);
// ADSR Envelope
env = EnvGen.kr(Env.adsr(0.0, 0.3, 0.3, 0.1), gate, doneAction: 2);
// Panning and Mixing
sig1 = Pan2.ar(filt1 * env * amp, -0.3);
sig2 = Pan2.ar(filt2 * env * amp, 0.3);
sig3 = Pan2.ar(filt3 * env * amp, 0);
mix = sig1 + sig2; // Mix main signals
// Chorusing effect using CombN (no delay added, just detuned voices)
chorusDepth = LFDNoise3.kr(0.2).range(0.01, 0.05); // Depth of modulation
chorusRate = LFDNoise3.kr(0.2).range(0.1, 0.3); // Rate of modulation
// Apply CombN for chorusing
chorusedSignal = CombN.ar(mix, maxdelaytime: 0.01, decaytime: chorusDepth, feedback: chorusRate);
// Output
Out.ar(0, chorusedSignal); // Send the chorused signal to the output
}).add;
)
(
// Test pattern
Pbind(
\instrument, \rhubarb,
\degree, Pseq([
[2, 4, 7, 12], [1, 5, 9], [4, 7, 11], [5, 9, 8],
// [2, 7, 11], [1, 5, 9], [3, 9], [1,3,5]
], inf), // Chord progression
// \degree, Pseq([], inf),
// \degree, Pseq([2, 4, 11,], inf),
\dur, 4, // Duration of each chord
\amp, 0.06, // Volume
\cutoff, 1200,
\rq, 0.6,
\detune, Pseq([4.1, 4], inf), // Slight detune
\pan, Pwhite(-0.3, 0.3), // Random stereo width
).play;
)
(
MIDIClient.init;
MIDIIn.connectAll;
)
(
(
// MIDI
// EMF: one major issue here is that ~notes is never actually initialized as an array, so it's nil. when you try to store a Synth at index nn, SC throws an error, because you can't put an item into nil. So, we first initialize ~notes as an array of size 128. After I add this line, your polyphonic MIDI code seems to work fine (no stuck notes)
~notes = Array.newClear(128);
~notes = Array.newClear(128);
// MIDI
MIDIdef.noteOn(\noteOnTest, {
MIDIdef.noteOn(\noteOnTest, {
arg vel, nn, chan, src;
arg vel, nn, chan, src;
// [vel, nn].postln;
// [vel, nn].postln;
@ -129,17 +17,9 @@ MIDIdef.noteOn(\noteOnTest, {
\freq, nn.midicps,
\freq, nn.midicps,
\amp, vel.linexp(1,127,0.01,0.3),
\amp, vel.linexp(1,127,0.01,0.3),
\gate, 1,
\gate, 1,
\detune, 2,
\cutoff, 400,
// \instrument, \rhubarb,
\rq, 0.7,
// \degree, Pseq([], inf),
// \degree, Pseq([2, 4, 11,], inf),
\dur, 2 , // Duration of each chord
\amp, 0.06, // Volume
\cutoff, 800,
\rq, 0.2,
\detune, Pseq([4.1, 4], inf), // Slight detune
\pan, Pwhite(-0.3, 0.3), // Random stereo width
]
]
);
);
});
});
@ -156,56 +36,18 @@ MIDIdef.noteOff(\noteOffTest, {
(
~notes = Array.newClear(128);
// MIDI definitions
MIDIdef.noteOn(\noteOnTest, {
arg vel, nn, chan, src;
// [vel, nn].postln; // Uncomment to debug
// Create the first instrument (rhubarb)
~notes[nn] = Synth.new(
\rhubarb,
[
\freq, nn.midicps,
\amp, vel.linexp(1, 127, 0.01, 0.3),
\gate, 1,
\dur, 2, // Duration of each chord
\amp, 0.06, // Volume
\cutoff, 800,
\rq, 0.8,
\detune, Pseq([4.1, 4], inf), // Slight detune
\pan, Pwhite(-0.3, 0.3), // Random stereo width
]
);
// Create the second instrument (rhubarb2) with the same parameters
(
~notes[nn] = Synth.new(
SynthDef(\rhubarb, {
\rhubarb2,
|freq = 440, gate = 1, cutoff = 1e4, rq = 0.3, amp = 0.3, modDepth = 0.3, detune = 0|
[
var env, osc, osc2, filt, lfo, lfo2, sig;
\freq, nn.midicps,
\amp, vel.linexp(1, 127, 0.01, 0.3),
\gate, 1,
\dur, 2, // Duration of each chord
\amp, 0.06, // Volume
\cutoff, 400,
\rq, 0.1,
\detune, Pseq([4.1, 4], inf), // Slight detune
\pan, Pwhite(-0.3, 0.3), // Random stereo width
]
);
});
MIDIdef.noteOff(\noteOffTest, {
arg vel, nn;
// [vel, nn].postln; // Uncomment to debug
// Stop both instruments
sig = Pulse.ar(freq + detune);
~notes[nn].set(\gate, 0);
env = EnvGen.kr(Env.adsr(0.1, 0.3, 0.3, 0.1), gate, doneAction: 2);
~notes[nn] = nil;
lfo = LFNoise2.kr(20).range(1 - modDepth, 1 + modDepth);
filt = RLPF.ar(sig, cutoff * lfo, rq);
sig = filt * env * amp;
// For the second instrument (rhubarb2), clear the reference as well
Out.ar(0, sig!2);
~notes[nn] = nil;
}).add;
});
)
)
