1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
|
declare id "shaper";
declare name "Shaper";
import("stdfaust.lib");
sharp = vslider("sharper[name:sharper]", 1, 1, 10, 1);
press = 5 * sharp;
attack = 0.005;
release = 10;
knee = 10.5;
ratio = 1.5;
env = abs : max(1);
compress(env) = level * (1-r)/r
with {
level = env : h ~ _ : ba.linear2db : (_ + press) : max(0)
with {
h(x,y) = f*x+(1-f)*y with { f = (x<y)*ga+(x>=y)*gr; };
ga = exp(-1/(ma.SR*attack));
gr = exp(-1/(ma.SR*release));
};
p = level/(knee+eps) : max(0) : min(1) with { eps = 0.001; };
r = 1 - p + p * ratio;
};
process(x) = g(x) * x
with {
g = env : compress + sharp : ba.db2linear;
};
|
