slider1:0<-30,0,0.1>|------------------ Threshold (dB)
slider2:2<1,10,0.1>Ratio
slider3:0<-12,12,0.1>Gain (dB)

slider5:0<0,120,10>|---------------------------------- HPF
slider6:180<60,300,10>LowShelf (Hz)
slider7:0<-12,12,0.1>LowShelf (dB)
slider8:1000<200,1800,10>Mid (Hz)
slider9:0.5<0,1,0.01>Mid (Q)
slider10:0<-12,12,0.1>Mid (dB)
slider11:0<-12,12,0.1>HighShelf (dB)
slider12:0<-12,12,0.1>Gain (dB)

slider14:0<0,100,1>|------------------- Saturation (%)

slider16:0<-60,24,0.1>|--------------- Output Gain (dB)
slider17:0<-100,100,1>Pan (%)
slider18:0<-6,6,0.5>Pan Law (dB)

in_pin:L in
in_pin:R in
out_pin:L out
out_pin:R out

@init
ext_noinit = 1;

//COMPRESSOR=================================================
log2db = 8.6858896380650365530225783783321;
db2log = 0.11512925464970228420089957273422;
gr_meter = 1;
gr_meter_decay = exp(1/(1*srate));
atcoef = exp(-1000/(10 * srate));
relcoef = exp(-1000/(100 * srate));
rmscoef = exp(-1000/(1 * srate));
maxover = 0;
rundb = 0;
overdb = 0;
//COMPRESSOR=================================================

//VOLUME/PAN==================================================
src_vol = tgt_vol = slider16 <= -60.0 ? 0.0 : exp(slider16/log2db);
src_pan = tgt_pan = 0.01*slider17;
//VOLUME/PAN==================================================


@slider
//COMPRESSOR=================================================
thresh = slider1;
threshv = exp(thresh * db2log);
ratio = slider2;
volA = 10^(slider3/20);
//COMPRESSOR=================================================

//FILTER======================================================
freq1 = slider5;
freq3 = slider6;
gain3 = slider7;
freq5 = slider8;
q5 = 0.2+(slider9*0.8);
gain5 = slider10;
freq7 = 9600;
gain7 = 10^(slider11/40);
gain = 10^(slider12/20);
slider5 == 0 ? hpf = 0 : hpf = 1;
slider6 == 0 ? lshelf = 0 : lshelf = 1;
a1 = 1;
s1 = 1;
q1 = 1 / (sqrt((a1 + 1/a1)*(1/s1 - 1) + 2));
w01 = 2 * $pi * freq1/srate;
cosw01 = cos(w01);
sinw01 = sin(w01);
alpha1 = sinw01 / (2 * q1);
b01 = (1 + cosw01)/2;
b11 = -(1 + cosw01);
b21 = (1 + cosw01)/2;
a01 = 1 + alpha1;
a11 = -2 * cosw01;
a21 = 1 - alpha1;
b01 /= a01;
b11 /= a01;
b21 /= a01;
a11 /= a01;
a21 /= a01;
a3 = 10^(gain3/40);
s3 = 0.55;
q3 = 1 / (sqrt((a3 + 1/a3)*(1/s3 - 1) + 2));
w03 = 2 * $pi * freq3/srate;
cosw03 = cos(w03);
sinw03 = sin(w03);
alpha3 = sinw03 / (2 * q3);
b03 = a3 * ((a3+1) - (a3-1)*cosw03 + 2*sqrt(a3)*alpha3);
b13 = 2 * a3 * ((a3-1) - (a3+1)*cosw03);
b23 = a3 * ((a3+1) - (a3-1)*cosw03 - 2*sqrt(a3)*alpha3);
a03 = (a3+1) + (a3-1)*cosw03 + 2*sqrt(a3)*alpha3;
a13 = -2 * ((a3-1) + (a3+1)*cosw03);
a23 = (a3+1)+(a3-1)*cosw03-2*sqrt(a3)*alpha3;
b03 /= a03;
b13 /= a03;
b23 /= a03;
a13 /= a03;
a23 /= a03;
a5 = 10^(gain5/40);
w05 = 2 * $pi * freq5/srate;
cosw05 = cos(w05);
sinw05 = sin(w05);
alpha5 = sinw05 / (2 * q5);
b05 = 1 + alpha5 * a5;
b15 = -2 * cosw05;
b25 = 1 - alpha5 * a5;
a05 = 1 + alpha5 / a5;
a15 = -2 * cosw05;
a25 = 1 - alpha5 / a5;
b05 /= a05;
b15 /= a05;
b25 /= a05;
a15 /= a05;
a25 /= a05;
a7 = gain7;
s7 = 0.5;
q7 = 1 / (sqrt((a7 + 1/a7)*(1/s7 - 1) + 2));
w07 = 2 * $pi * freq7/srate;
cosw07 = cos(w07);
sinw07 = sin(w07);
alpha7 = sinw07 / (2 * q7);
b07 = a7 * ((a7+1) + (a7-1)*cosw07 + 2*sqrt(a7)*alpha7);
b17 = -2*a7*((a7-1) + (a7+1)*cosw07);
b27 = a7*((a7+1) + (a7-1)*cosw07 - 2*sqrt(a7)*alpha7);
a07 = (a7+1) - (a7-1)*cosw07 + 2*sqrt(a7)*alpha7;
a17 = 2*((a7-1) - (a7+1)*cosw07);
a27 = (a7+1)-(a7-1)*cosw07 - 2*sqrt(a7)*alpha7;
b07 /= a07;
b17 /= a07;
b27 /= a07;
a17 /= a07;
a27 /= a07;
//FILTER======================================================

//SATURATION==================================================
foo = slider14/200*$pi;
bar = sin(slider14/200*$pi);
//SATURATION==================================================

//VOLUME/PAN==================================================
tgt_vol = slider16 <= -60.0 ? 0.0 : exp(slider16/log2db);
tgt_pan = 0.01*slider17;
panlaw = exp(slider18/log2db);
pancomp = (panlaw > 1 ? 1/panlaw : panlaw);
//VOLUME/PAN==================================================


@block
//VOLUME/PAN==================================================
d_vol = (tgt_vol-src_vol)/samplesblock;
d_pan = (tgt_pan-src_pan)/samplesblock;
tvol = src_vol;
tpan = src_pan;
src_vol = tgt_vol;
src_pan = tgt_pan;
//VOLUME/PAN==================================================


@sample
//COMPRESSOR==================================================
aspl0 = abs(spl0);
aspl1 = abs(spl1);
maxspl = max(aspl0, aspl1);
maxspl = maxspl * maxspl;
runave = maxspl + rmscoef * (runave - maxspl);
det = sqrt(runave);
overdb = log(det/threshv) * log2db;
overdb > maxover ? (
maxover = overdb;
atcoef = exp(-1000/(10 * srate));
reltime = overdb / (10*$pi);
relcoef = exp(-1/(reltime * srate));
):(
maxover = 0;
);
overdb = max(0,overdb);
overdb > rundb ? (
rundb = overdb + atcoef * (rundb - overdb);
) : (
rundb = overdb + relcoef * (rundb - overdb);
);
overdb = rundb;
gr = -overdb * (ratio-1)/ratio;
grv = exp(gr * db2log);
grv < gr_meter ? gr_meter=grv : ( gr_meter*=gr_meter_decay; gr_meter>1?gr_meter=1; );
grmin = min( min(gr,gr) , grmin);
rundb = maxover + relcoef * (rundb - maxover);
maxover = rundb;
//runmax = maxover + relcoef * (runmax - maxover);
//maxover = runmax;
spl0 *= grv*volA;
spl1 *= grv*volA;
//COMPRESSOR==================================================

//FILTER======================================================
hpf != 0 ? (
ospl0 = spl0;
spl0 = b01 * spl0 + b11 * xl11 + b21 * xl21 - a11 * yl11 - a21 * yl21;
xl21 = xl11;
xl11 = ospl0;
yl21 = yl11;
yl11 = spl0;
ospl1 = spl1;
spl1 = b01 * spl1 + b11 * xr11 + b21 * xr21 - a11 * yr11 - a21 * yr21;
xr21 = xr11;
xr11 = ospl1;
yr21 = yr11;
yr11 = spl1;
);
lshelf != 0 && gain3 != 0 ? (
ospl0 = spl0;
spl0 = b03 * spl0 + b13 * xl13 + b23 * xl23 - a13 * yl13 - a23 * yl23;
xl23 = xl13;
xl13 = ospl0;
yl23 = yl13;
yl13 = spl0;
ospl1 = spl1;
spl1 = b03 * spl1 + b13 * xr13 + b23 * xr23 - a13 * yr13 - a23 * yr23;
xr23 = xr13;
xr13 = ospl1;
yr23 = yr13;
yr13 = spl1;
);
gain5 != 0 ? (
ospl0 = spl0;
spl0 = b05 * spl0 + b15 * xl15 + b25 * xl25 - a15 * yl15 - a25 * yl25;
xl25 = xl15;
xl15 = ospl0;
yl25 = yl15;
yl15 = spl0;
ospl1 = spl1;
spl1 = b05 * spl1 + b15 * xr15 + b25 * xr25 - a15 * yr15 - a25 * yr25;
xr25 = xr15;
xr15 = ospl1;
yr25 = yr15;
yr15 = spl1;
);
gain7 != 0 ? (
ospl0 = spl0;
spl0 = b07 * spl0 + b17 * xl17 + b27 * xl27 - a17 * yl17 - a27 * yl27;
xl27 = xl17;
xl17 = ospl0;
yl27 = yl17;
yl17 = spl0;
ospl1 = spl1;
spl1 = b07 * spl1 + b17 * xr17 + b27 * xr27 - a17 * yr17 - a27 * yr27;
xr27 = xr17;
xr17 = ospl1;
yr27 = yr17;
yr17 = spl1;
);
spl0 *= gain;
spl1 *= gain;
//FILTER======================================================

//SATURATION==================================================
slider14 ? (
spl0 = min(max( sin(max(min(spl0,1),-1)*foo)/bar ,-1) ,1);
spl1 = min(max( sin(max(min(spl1,1),-1)*foo)/bar ,-1) ,1);
);
//SATURATION==================================================

//VOLUME/PAN==================================================
tvol += d_vol;
tpan += d_pan;
adj = tvol;
panlaw != 1 ? (
panlaw > 1 ? adj *= panlaw;
panatt = abs(tpan);
adj *= pancomp+(1-pancomp)*(2/(2-panatt)-1);
);
adj0 = adj1 = adj;
tpan < 0 ? adj1 *= 1+tpan;
tpan > 0 ? adj0 *= 1-tpan;
spl0 *= adj0;
spl1 *= adj1;
//VOLUME/PAN==================================================


@gfx 0 36
//COMPRESSOR=================================================
gfx_r=1; gfx_g=gfx_b=0; gfx_a=0.8;
meter_bot=21;
meter_h=min(gfx_h,gfx_h-4);
xscale=gfx_w*20/meter_bot;
gfx_y=0;
gfx_x=gfx_w + log10(gr_meter)*xscale;
gfx_rectto(gfx_w,meter_h);
gfx_r=gfx_g=gfx_b=1; gfx_a=0.6;
s2=sqrt(2)/2;
g=s2;
while(
gfx_x=gfx_w + log10(g)*xscale;
gfx_x >= 0 ? (
gfx_y=0;
gfx_lineto(gfx_x,meter_h,0);
gfx_y=meter_h-gfx_texth;
gfx_x+=2;
gfx_drawnumber(log10(g)*20,0);
gfx_drawchar($'d');
gfx_drawchar($'B');
);
g*=s2;
gfx_x >=0;
);
gfx_x=2;
gfx_y=meter_h/2 - gfx_texth/2;
gfx_drawnumber(grmin,1);
//COMPRESSOR=================================================
