← Back to branch summary

~ubuntu-branches/ubuntu/saucy/faust/saucy

« back to all changes in this revision

Viewing changes to tools/faust2pd/examples/synth/compressor.dsp

  • Committer: Package Import Robot
  • Author(s): Mario Lang
  • Date: 2012-04-04 13:52:01 UTC
  • mfrom: (1.1.6) (3.1.7 sid)
  • Revision ID: package-import@ubuntu.com-20120404135201-hpsrk87x3hga94tc
Tags: 0.9.46-2
http://bugs.debian.org/667163
* Fix "ftbfs with GCC-4.7":
  - debian/patches/unistd: Include <unistd.h> where necessary.
    (Closes: #667163)

Show diffs side-by-side

added added

removed removed

Lines of Context:
tools/faust2pd/examples/synth/compressor.dsp
 
1
 
 
2
/* Compressor unit. */
 
3
 
 
4
declare name "compressor -- compressor/limiter unit";
 
5
declare author "Albert Graef";
 
6
declare version "1.0";
 
7
 
 
8
import("music.lib");
 
9
 
 
10
/* Controls. */
 
11
 
 
12
// partition the controls into these three groups
 
13
comp_group(x)   = hgroup("1-compression", x);
 
14
env_group(x)    = vgroup("2-envelop", x);
 
15
gain_group(x)   = vgroup("3-gain", x);
 
16
 
 
17
// compressor controls: ratio, threshold and knee size
 
18
ratio           = comp_group(nentry("ratio", 2, 1, 20, 0.1));
 
19
threshold       = comp_group(nentry("threshold", -20, -96, 10, 0.1));
 
20
knee            = comp_group(nentry("knee", 3, 0, 20, 0.1));
 
21
 
 
22
// attack and release controls; clamped to a minimum of 1 sample
 
23
attack          = env_group(hslider("attack", 0.002, 0, 1, 0.001)) : max(1/SR);
 
24
release         = env_group(hslider("release", 0.5, 0, 10, 0.01)) : max(1/SR);
 
25
 
 
26
// gain controls: make-up gain, compression gain meter
 
27
makeup_gain     = gain_group(hslider("makeup gain", 0, -96, 96, 0.1));
 
28
gain(x)         = attach(x, x : gain_group(hbargraph("gain", -96, 0)));
 
29
 
 
30
/* Envelop detector. This is basically the same as in amp.dsp. */
 
31
 
 
32
t               = 0.1;
 
33
g               = exp(-1/(SR*t));
 
34
env             = abs : *(1-g) : + ~ *(g);
 
35
rms             = sqr : *(1-g) : + ~ *(g) : sqrt;
 
36
sqr(x)          = x*x;
 
37
 
 
38
/* Compute the envelop of a stereo signal. Replace env with rms if you want to
 
39
   use the RMS value instead. */
 
40
 
 
41
env2(x,y)       = max(env(x),env(y));
 
42
 
 
43
/* Compute the compression factor for the current input level. The gain is
 
44
   always 0 dB if we're below the reduced threshold, threshold-knee. Beyond
 
45
   the real threshold value the level is scaled by 1/ratio. Between these two
 
46
   extremes we return a convex combination of those factors. This is also
 
47
   known as "soft-knee" compression: the compression kicks in gradually at
 
48
   threshold-knee and reaches its full value at threshold. For special
 
49
   effects, you can also achieve old-school "hard-knee" compression by setting
 
50
   the knee value to zero. Also note that, before computing the gain, the
 
51
   input level is first smoothed out using a 1 pole IIR to prevent clicks when
 
52
   the input level changes abruptly. The attack and release times of this
 
53
   filter are configured with the corresponding envelop controls of the
 
54
   compressor. */
 
55
 
 
56
compress(env)   = level*(1-r)/r
 
57
with {
 
58
        // the (filtered) input level above the threshold
 
59
        level   = env : h ~ _ : linear2db : (_-threshold+knee) : max(0)
 
60
        with {
 
61
                h(x,y)  = f*x+(1-f)*y with { f = (x<y)*ga+(x>=y)*gr; };
 
62
                ga      = exp(-1/(SR*attack));
 
63
                gr      = exp(-1/(SR*release));
 
64
        };
 
65
        // the knee factor, clamped to 0..1; we add a small perturbation in
 
66
        // the denominator to prevent infinities and nan when knee<<1
 
67
        p       = level/(knee+eps) : max(0) : min(1) with { eps = 0.001; };
 
68
        // the actual compression ratio
 
69
        r       = 1-p+p*ratio;
 
70
};
 
71
 
 
72
process(x,y)    = (g*x,g*y)
 
73
with {
 
74
        g       = env2(x,y) : compress : gain : +(makeup_gain) : db2linear;
 
75
};