added springverb & rearranged effects

master
Leo Coogan 9 months ago
parent bb464e7249
commit 84aae5aa84
Signed by: lcoogan
SSH Key Fingerprint: SHA256:vnrR5ilHkdr6L4t2yOMUMINFPpxEh+53N3nMel66mCw

@ -0,0 +1,44 @@
b = Buffer.read(s, "/home/lcoogan/snd/demos/springverb.wav")
(
{
PlayBuf.ar(1, b!2, 1, loop: 1) * 0.3
}.play;
)
(
SynthDef(\springverb, { |length = 1, fb = 0.8, sep = 0.012|
var input = In.ar(0, 2);
var output = input + Fb({ |feedback|
var left, right, spring, magic;
magic = LeakDC.ar(feedback * fb + input);
magic = HPF.ar(magic, 400);
magic = LPF.ar(magic, 5000);
magic = magic.tanh;
// Simulate spring reverb inside the feedback loop
spring = CombL.ar(magic, 0.1, 0.03, 1.5); // short decay, boingy
spring = AllpassL.ar(spring, 0.1, [0.022, 0.027], 1.5);
magic = magic + spring * 0.4; // mix in some splash
#left, right = magic;
magic = [
DelayC.ar(left, 1, LFNoise2.ar(12).range(0, sep)),
DelayC.ar(right, 1, LFNoise2.ar(12).range(sep, 0))
];
}, length);
ReplaceOut.ar(0, output);
}).store;
)
(
~springverb = Synth(\springverb, [
\length, TempoClock.default.tempo * (3/8),
\fb, 0.1,
\sep, 0.0014
], addAction: \addToTail);
)
Loading…
Cancel
Save