diff --git a/eli_fieldsteel_examples/aphex_twin_rhubarb_EF.scd b/eli_fieldsteel_examples/aphex_twin_rhubarb_EF.scd new file mode 100644 index 0000000..fdc7125 --- /dev/null +++ b/eli_fieldsteel_examples/aphex_twin_rhubarb_EF.scd @@ -0,0 +1,96 @@ +( +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.99!4); // EMF: I find crackle is more interesting with a choas parameter closer to 2 + bn = LPF.ar(bn, 1000); // EMF: 10 is such a low cutoff frequency that you're essentially muting the crackle UGen. Raised to something higher + bn = GlitchBPF.ar(bn, freq * {Rand(-0.2, 0.2).midiratio}.dup(4), \rq.ir(0.01), 24); + osc = LFSaw.ar(freq * {Rand(-0.2, 0.2).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); // EMF: wavefolding only happens if the input signal amplitude exceeds the bounds provided. osc has a pretty normal range and won't ever exceed ±20. You can see in the previous line (LFDNoise3) I'm only amplifying it by a maximum factor of 1.5. It's actually small boundary values with Fold that cause audible results (change to the folding min/max to -0.1, +0.1 and you'll notice the sound changes significantly) + osc = LPF.ar(osc, 400).tanh(20) * 0.12; + env = Env.asr(\atk.kr(0.35), \sus.kr(1), \rel.kr(2), \crv.ir(-2)).ar(2, \gate.kr(1)); + + // EMF: Passed pink noise through lowpass filter before mixing to better mirror spectral profile of original track + sig = bn + osc + LPF.ar(PinkNoise.ar(0.015!4 * LFDNoise3.kr(1).exprange(0.35, 1)), 3000); + sig = sig * LFDNoise3.kr(0.1!4).exprange(1.1, 1.2); + sig = Splay.ar(sig, spread: 10); // EMF: spread caps out at 1, larger values don't do anything extra + 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;*/ + + // EMF: reduced Comb mul parameter to less than 1, the delay felt too prominent + sig = sig + CombL.ar(sig, maxdelaytime:0.2, delaytime:0.2, decaytime: 1.0, mul: 0.3) * 0.4; + + sig = sig * env * 4; // EMF upscaled output gain to a healthier level + 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) - 0.1, + \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 diff --git a/eli_fieldsteel_examples/autechre_tri_repetae_revision.scd b/eli_fieldsteel_examples/autechre_tri_repetae_revision.scd new file mode 100644 index 0000000..d648f38 --- /dev/null +++ b/eli_fieldsteel_examples/autechre_tri_repetae_revision.scd @@ -0,0 +1,28 @@ +( +{ + var sig, freq; + freq = LFNoise2.kr(4).exprange(10, 20); + sig = LFSaw.ar(freq!2); + sig = LPF.ar(sig, 1000); + sig = sig * 0.2; +}.play +) + + +// EMF: newer version +( +{ + var sig, freq; + + // EMF: using LFSaw instead of noise generator to control frequency, better imitation of the original + freq = LFSaw.kr(0.35.neg).range(0.5, 27).lincurve(0.5, 27, 0.5, 27, -4); + sig = LFSaw.ar(freq ! 2); + + // EMF: experimenting with lowpass/highpass parallel sum. very rough approximation of what i hear, needs tweaking + sig = [ + LPF.ar(sig, VarSaw.kr(0.35, 0.5, width: 0.02).exprange(200, 10000).lag(0.05), 0.2), + HPF.ar(sig, VarSaw.kr(0.35, 0.5, width: 0.02).exprange(20, 3000).lag(0.05)); + ].sum; + sig = sig * 0.2; +}.play +) \ No newline at end of file