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

slider5:0<0,4,1{Off,50,80,160,300}>|----------------------------------HPF
slider6:2<0,4,1{Off,35,60,110,220}>LowShelf (Hz)
slider7:0<-20,20,0.1>Low (dB)
slider8:0<0,5,1{360,700,1.6k,3.2k,4.8k,7.2k}>Mid (Hz)
slider9:0<-20,20,0.1>Mid (dB)
slider10:0<-20,20,0.1>12K HighShelf (dB)
slider11:0<-12,12,0.1>Gain (dB)

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

slider15:0<-60,24,0.1>|--------------Output Gain (dB)
slider16:0<-100,100,1>Pan (%)
slider17: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));
relcoef = exp(-1000/(100 * srate));
rmscoef=exp(-1000/(1 * srate));
maxover=0;
ratio=0;
cratio=0;
rundb=0;
overdb=0;
//COMPRESSOR=================================================

//FILTER======================================================
hpf = 0;
gain1 = 0;
freq1 = 50;
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;
lshelf = 0;
gain3 = 0;
freq3 = 35;
a3 = 10^(gain3/40);
s3 = 2;
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;
gain5 = 0;
freq5 = 360;
a5 = 10^(gain5/20);
q5 = 1.4;
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;
gain7 = 0;
freq7 = 12000;
a7 = 10^(gain7/40);
s7 = 0.3;
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;
gain = 1;
//FILTER======================================================

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

//VU-METER===================================================
sc = 20/log(10);
rp = 261;
r = 200;
yl = yr = ylt = yrt = 74;
xl = xr = 66;
cs = 0;
suml = sumr = 0;
rms_i = 0;
i_max = 36;
ms = 50; // Change that !!!! 1-350.default 50
rel = 5; // Change that !!!! 1-10.default 5
//VU-METER===================================================


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

//FILTER======================================================
freq1 = (slider5 == 0 ? 50 : (slider5 == 1 ? 50 : (slider5 == 2 ? 80 : (slider5 == 3 ? 160 : 300))));
freq3 = (slider6 == 0 ? 35 : (slider6 == 1 ? 35 : (slider6 == 2 ? 60 : (slider6 == 3 ? 110 : 220))));
gain3 = slider7;
freq5 = (slider8 == 0 ? 360 : (slider8 == 1 ? 700 : (slider8 == 2 ? 1600 : (slider8 == 3 ? 3200 : (slider8 == 4 ? 4800 : 7200)))));
gain5 = slider9;
gain7 = slider10;
gain = 10^(slider11/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 = 2;
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/20);
q5 = 1.4;
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 = 10^(gain7/40);
freq7 = 12000;
s7 = 0.3;
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=slider13/200*$pi;
bar=sin(slider13/200*$pi);
//SATURATION==================================================

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

//VU-METER===================================================
st = ms*srate/1000;
hold = (0.001*ms*srate)*36;
cs = 0;
suml = sumr = 0;
//VU-METER===================================================


@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==================================================

//VU-METER===================================================
rmsl = floor(sc*log(sqrt(suml/cs))*100)/100;
rms_i == i_max ? (
rmsl_gfx = rmsl;
rms_i = 0;
);
rms_i += 1;
bscnt > st ? (
ool = log(pvl)*sc;
xlt = floor(exp(log(1.055)*2.1*ool)*285);
l=sqrt(sqr(r)+sqr(212-xlt));
h=((l-r)*r/l);
m=sqrt(sqr(l-r)-sqr(h));
ylt=35+h;
xlt < 212 ? xlt=xlt+m : xlt=xlt-m;
old_xl < xlt ? (xl = min(max(xlt,66),375); yl = ylt; olt = ool;);
bscnt = pvl = pvr = 0;
);
old_xl = xl;
bscnt += samplesblock;
fallback = rel/2*samplesblock/1024;
fbi_l = exp(xl/512)*fallback;
xl > 66 ? xl -= fbi_l;
xl = min(max(xl,66),375);
yl=35;
l=sqrt(sqr(r)+sqr(212-xl));
h=((l-r)*r/l);
yl=floor(yl+h);
//VU-METER===================================================


@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;
attime=0.010;
atcoef=exp(-1/(attime * srate));
reltime = overdb / 125;
relcoef = exp(-1/(reltime * srate));
);
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);
runmax = maxover + relcoef * (runmax - maxover);
maxover = runmax;
grv < gr_meter ? gr_meter=grv : ( gr_meter*=gr_meter_decay; gr_meter>1?gr_meter=1; );
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==================================================
slider13 ? (
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.0 ? (
panlaw > 1.0 ? adj *= panlaw;
panatt = abs(tpan);
adj *= pancomp+(1.0-pancomp)*(2.0/(2.0-panatt)-1.0);  
);
adj0 = adj1 = adj;
tpan < 0.0 ? adj1 *= 1.0+tpan;
tpan > 0.0 ? adj0 *= 1.0-tpan;
spl0 *= adj0;
spl1 *= adj1;
//VOLUME/PAN==================================================

//VU-METER===================================================
maxs = abs(max(spl0,spl1));
pvl = max(pvl,maxs);
cs == hold ? (
cs = 0;
suml = 0;
) : (
cs += 1;
suml += sqr(maxs);
);
//VU-METER===================================================


@gfx 425 245
//COMPRESSOR=================================================
gr_meter *= exp(1/30); gr_meter>1?gr_meter=1;
gfx_r=1; gfx_g=gfx_b=0; gfx_a=0.8;
meter_bot=20;
meter_h=min(gfx_h,10);
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.0; 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;
);
//COMPRESSOR=================================================

//VU-METER===================================================
gfx_r =  gfx_a = 1;
gfx_g = gfx_b =0;
gfx_x = 283;
gfx_y = 28;
gfx_drawnumber(0,0);
gfx_x = 370;
gfx_y = 55;
gfx_drawnumber(3,0);
gfx_x = 405;
gfx_y = 57;
gfx_drawchar($'+');
gfx_x = 283;
gfx_y = 38;
gfx_lineto(269,76,0.5);
gfx_x = 311;
gfx_y = 43;
gfx_lineto(293,80,1);
gfx_x = 342;
gfx_y = 51;
gfx_lineto(318,85,1);
gfx_x = 370;
gfx_y = 65;
gfx_lineto(344,93,0.5);
gfx_r = gfx_g = gfx_b = 1;
gfx_a = 1;
gfx_x = 12;
gfx_y = 60;
gfx_drawchar($'-');
gfx_x = 41;
gfx_y = 53;
gfx_drawnumber(20,0);
gfx_x = 80;
gfx_y = 37;
gfx_drawnumber(10,0);
gfx_x = 125;
gfx_y = 29;
gfx_drawnumber(7,0);
gfx_x = 157;
gfx_y = 25;
gfx_drawnumber(5,0);
gfx_x = 198;
gfx_y = 24;
gfx_drawnumber(3,0);
gfx_x = 56;
gfx_y = 63;
gfx_lineto(82,92,0.5);
gfx_x = 95;
gfx_y = 47;
gfx_lineto(119,82,0.5);
gfx_x = 130;
gfx_y = 39;
gfx_lineto(146,77,0.5);
gfx_x = 145;
gfx_y = 37;
gfx_lineto(158,75,1);
gfx_x = 162;
gfx_y = 35;
gfx_lineto(171,74,0.5);
gfx_x = 180;
gfx_y = 34;
gfx_lineto(187,74,1);
gfx_x = 202;
gfx_y = 34;
gfx_lineto(204,72,0.5);
gfx_x = 227;
gfx_y = 34;
gfx_lineto(223,73,1);
gfx_x = 253;
gfx_y = 35;
gfx_lineto(245,73,1);
gfx_r = gfx_g = gfx_b = 0.75;
gfx_a = 1;
gfx_x = 198;
gfx_y = 108;
gfx_rectto(241,139);
gfx_a = 1;
gfx_r = 0.5;
gfx_g = gfx_b = 0.1;
gfx_x = 200;
gfx_y = 110;
gfx_rectto(239,137);
gfx_r = gfx_g = gfx_b = 0.85;
gfx_a = 1;
gfx_x = 212;
gfx_y = 120;
gfx_drawchar($'V');
gfx_drawchar($'U');
olt > 0 ? (
gfx_r = 1; 
gfx_g = gfx_b = 0;
) : (
gfx_r = 1; gfx_g = 0.8;  gfx_b = 0.2;
);
gfx_a = 1;
gfx_x = 212;
gfx_y = 236;
gfx_lineto(xl,yl,1);
gfx_x = 211;
gfx_y = 236;
gfx_lineto(xl-1,yl,1);
gfx_x = 210;
gfx_y = 236;
gfx_lineto(xl-2,yl,1);
gfx_r = gfx_g = gfx_b = 0.55;
gfx_a = 1;
gfx_x = 0;
gfx_y = 179;
gfx_rectto(425,180);
gfx_r = 0.1;
gfx_g = 0.2; 
gfx_b = 0.39;
gfx_a = 1;
gfx_x = 0;
gfx_y = 180;
gfx_rectto(425,261);
gfx_r = gfx_g = gfx_b = 1;
gfx_a = 0.1;
gfx_x = 0;
gfx_y = 180;
gfx_rectto(425,190);
gfx_r = gfx_g = gfx_b = 0;
gfx_a = 0.3;
gfx_x = 0;
gfx_y = 245;
gfx_rectto(425,261);
gfx_r = gfx_g = gfx_b = 0;
gfx_a = 1;
gfx_x = 350;
gfx_y = 210;
gfx_rectto(415,227);
gfx_r = gfx_g = gfx_b = 0;
gfx_a = 1;
gfx_x = 250;
gfx_y = 210;
gfx_rectto(315,227);
gfx_r = gfx_g = gfx_b = 1;
gfx_a = 1;
gfx_y = 215;
gfx_x = 215;
gfx_drawchar($'R');
gfx_drawchar($'M');
gfx_drawchar($'S');
gfx_x = 333;
gfx_drawchar($'P');
gfx_x = 255;
rmsl_gfx > -300 ? (
rmsl_gfx > 0.0 ? (
gfx_r = 1;
gfx_g = gfx_b = 0;
gfx_drawchar($'+');
);
gfx_drawnumber(rmsl_gfx,2);
) : (
gfx_drawchar($'-');
gfx_drawchar($'I');
gfx_drawchar($'N');
gfx_drawchar($'F');
);
gfx_r = 1;
gfx_g = gfx_b = 1;
gfx_x = 355;
olt > -300 ? (
olt >= 0.0 ? (
gfx_drawchar($'+');
gfx_r = 1;
gfx_g = gfx_b = 0;  
);
gfx_drawnumber(olt,2);
) : (
gfx_drawchar($'-');
gfx_drawchar($'I');
gfx_drawchar($'N');
gfx_drawchar($'F');
);
//VU-METER===================================================
