added springverb & rearranged effects
parent
bb464e7249
commit
84aae5aa84
@ -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…
Reference in New Issue