-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathmlimit_m.dsp
62 lines (40 loc) · 2.4 KB
/
mlimit_m.dsp
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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
declare name "mlim_m";
declare version "0.0.1";
declare author "mira";
declare license "GPL-2";
declare copyright "(c)mira 2012";
//---------------------------------------------------------------------------------------------
// mono lookahead limiter (makes delay 18 samples)
//---------------------------------------------------------------------------------------------
import("oscillator.lib");
import("effect.lib");
import("filter.lib");
import("math.lib");
import("music.lib");
mlim_m = bypass1(lbp,lim_mono_d);
lim_g(x) = hgroup("LIMITER MONO [tooltip: Reference: http://en.wikipedia.org/wiki/1176_Peak_Limiter]", x);
byp_g(x) = lim_g(vgroup("[0]", x));
v_in(x) = lim_g(hgroup("[2]", x));
meter_g(x) = lim_g(hgroup("[5]", x));
v_out(x) = lim_g(hgroup("[7]", x));
lbp = byp_g(checkbox("[0] Bypass [tooltip: When this is checked, the limiter has no effect]"));
compressor_la_mono(ratio,thresh,att,rel,x) = x@6 * compression_gain_mono(ratio,thresh,att,rel,x); //6 samples per 1 stage of limitation
gainview =
compression_gain_mono(4,-6,0.0008,0.5) : linear2db :
meter_g(vbargraph("[1] Reduction [unit:dB] [tooltip: Current reduction of the limiter in dB]", -50,+10));
displaygain = _ <: _,(abs) : _,gainview : attach;
// 3 stage limitation
lim_mono_d = *(inputgain) : vmeter_m_in :
displaygain (compressor_la_mono(4,-6,0.0008,0.5)) : (compressor_la_mono(12,-2,0.0004,0.3)) : (compressor_la_mono(100,-1,0.0001,0.1)) : *(makeupgain) ;
makeupgain = lim_g(vslider("[6] Makeup [unit:dB] [tooltip: The ceiling of signal output level (in dB) can be set here]",
-0.2, -45, 0, 0.01)) : db2linear;
inputgain = lim_g(vslider("[1] in_gain [unit:dB] [tooltip: The input signal level is increased by this amount (in dB) to achieve desired effect.]",
0, -45, 40, 0.01)) : db2linear;
//---------------------------------------------------------------------------------------------
// vumeter
//---------------------------------------------------------------------------------------------
vmeter(x) = hgroup("" , attach(x, envelop(x) : vbargraph("[2][unit:dB]", -70, +5)));
envelop = abs : max ~ -(1.0/SR) : max(db2linear(-70)) : linear2db;
vmeter_m_in = v_in(hgroup("input dB", vmeter));
vmeter_m_out = v_out(hgroup("output dB", vmeter));
process = mlim_m : vmeter_m_out ;