diff --git a/aphex_twin_rhubarb_EF.scd b/aphex_twin_rhubarb_EF.scd deleted file mode 100644 index 4e99d34..0000000 --- a/aphex_twin_rhubarb_EF.scd +++ /dev/null @@ -1,93 +0,0 @@ -( -s.waitForBoot({ - - s.newBusAllocators; - ~revbus = Bus.audio(s, 2); - - SynthDef(\rhubarb, { - var bn, pn, osc, sig, env, freq = \freq.ir(440); - bn = Crackle.ar(1!4); - bn = LPF.ar(bn, 10); // Low-pass filter to reduce high frequencies - bn = GlitchBPF.ar(bn, freq * {Rand(-0.1, 0.1).midiratio}.dup(4), \rq.ir(0.01), 24); - osc = LFSaw.ar(freq * {Rand(-0.1, 0.1).midiratio}.dup(4), {Rand(0.48, 0.52)}.dup(4)); - osc = LPF.ar(osc, (freq * 2).clip(20, 20000)); - osc = osc * LFDNoise3.kr(0.1!4).exprange(1.1, 1.5); - osc = Fold.ar(osc, -20, 20); - osc = LPF.ar(osc, 600).tanh(20) * 0.12; - env = Env.asr(\atk.kr(0.35), \dec.kr(3), \sus.kr(1), \rel.kr(2), \crv.ir(-2)).ar(2, \gate.kr(1)); - sig = bn + osc + PinkNoise.ar(0.015!4 * LFDNoise3.kr(1).exprange(0.35, 1)); - sig = sig * LFDNoise3.kr(0.1!4).exprange(1.1, 1.2); - sig = Splay.ar(sig, spread:10); - sig = sig.tanh * \amp.ir(0.25); - - /*sig = sig + BPF.ar(sig, 400, 0.3, 1, 0); - sig = sig + GlitchBPF.ar(sig, 400, 1, 1, 0) * 0.1;*/ - - sig = sig + CombL.ar(sig, maxdelaytime:0.2, delaytime:0.2, decaytime: 1.0) * 0.4; - - sig = sig * env; - Out.ar(\out.ir(0), sig); - }).add; - - SynthDef(\reverb, { - var sig, verb; - sig = In.ar(\in.ir(~revbus), 2); - verb = GVerb.ar(sig.sum, 299, 1); - // verb = JPverb.ar(verb, 299, 1); - verb = JPverb.ar(verb, t60: 2.0, damp: 0.0, size: 3.0, earlyDiff: 0.1, modDepth: 0, modFreq: 1.0, low: 1.0, mid: 1.0, high: 1.0, lowcut: 500.0, highcut: 2000.0); - verb = LPF.ar(verb, \lpf.ir(12500), \amp.ir(0.2)); - sig = sig.blend(verb, \mix.kr(0.8)); - Out.ar(\out.ir(0), sig); - }).add; - - s.sync; - - ~rev = Synth(\reverb, [in: ~revbus, out: 0], s, \addAfter); - - t = TempoClock(86/60); - - p = Pbind( - \instrument, \rhubarb, - \dur, Pseq([ 1.5, 4.5, 1.5, 1.5, 5 ], inf), - \sustain, Pkey(\dur), - \midinote, Pseq([ - [ 57, 62, 66 ], - [ 54, 57, 61 ], - [ 57, 61, 64 ], - [ 52, 56, 59 ], - Prand([[ 33, 50, 54, 57], [ 50, 54, 57 ]], 1), - ], inf), - \amp, 1, - \atk, Pwhite(0.2, 0.5), - \rel, Pexprand(1.2, 2.5), - \out, ~revbus - ).play(t) -}); -) - - - -( -SynthDef(\rhubarb, { - var bn, pn, osc, sig, env, freq = \freq.ir(440); - bn = BrownNoise.ar(0.02); // Subtle noise for warmth - bn = BPF.ar(bn, freq * {Rand(-0.1, 0.1).midiratio}.dup(4), \rq.ir(0.01), 8); - - osc = LFSaw.ar([freq, freq * 1.01, freq * 0.99], {Rand(0.48, 0.52)}.dup(3)); // Multiple detuned oscillators - - // Removed aggressive band-limiting for more high-end content - osc = osc * LFDNoise3.kr(0.1!4).exprange(1.1, 1.5); - osc = Fold.ar(osc, -1, 1); - osc = LPF.ar(osc, 2000, 0.4); // Analog-style low-pass filter with resonance - - env = Env.asr(\atk.kr(0.1), \sus.kr(1), \rel.kr(2), \crv.ir(-2)).ar(2, \gate.kr(1)); - - sig = bn + osc + PinkNoise.ar(0.015!4 * LFDNoise3.kr(1).exprange(0.35, 1)); - sig = sig * LFDNoise3.kr(0.1!4).exprange(1.1, 1.2); - sig = Splay.ar(sig); - sig = sig.tanh * 0.15; // Subtle distortion for warmth - sig = sig * env; - - Out.ar(\out.ir(0), sig); -}).add; -) \ No newline at end of file