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

//VU-METER===================================================
sc = 20/log(10);
r = 200;
yl = ylt = 74;
xl = 66;
cs = 0;
sum = 0;
rms_i = 0;
i_max = 36;
ms = 50; // Change that !!!! 1-350.default 50
rel = 5; // Change that !!!! 1-10.default 5
st = 0.001*ms*srate;
hold = (0.001*ms*srate)*36;
//VU-METER===================================================


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

//VU-METER===================================================
rmsl = floor(sc*log(sqrt(sum/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 = 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;
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);
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==================================================

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


@gfx 0 245
//COMPRESSOR=================================================
gfx_r=1; gfx_g=gfx_b=0; gfx_a=0.8;
meter_bot=21;
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; 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-gfx_texth;
gfx_drawnumber(grmin,1);
//COMPRESSOR=================================================

//VU-METER===================================================
z = (gfx_w*0.5)-210|0;
//red scale
gfx_r = 1; gfx_g = gfx_b = 0; gfx_a = 0.6;
gfx_x = z+279;
gfx_y = 33;
gfx_drawnumber(0,0);
gfx_x = z+349;
gfx_y = 58;
gfx_drawnumber(3,0);
gfx_x = z+391;
gfx_y = 58;
gfx_drawchar($'+');
gfx_x = z+279;
gfx_y = 45;
gfx_lineto(z+264,86,1);
gfx_x = z+304;
gfx_y = 53;
gfx_lineto(z+283,94,1);
gfx_x = z+327;
gfx_y = 62;
gfx_lineto(z+299,104,1);
gfx_x = z+347;
gfx_y = 69;
gfx_lineto(z+311,113,1);
//white scale
gfx_r = gfx_g = gfx_b = 1; gfx_a = 0.6;
gfx_x = z+22;
gfx_y = 58;
gfx_drawchar($'-');
gfx_x = z+58;
gfx_y = 58;
gfx_drawnumber(20,0);
gfx_x = z+92;
gfx_y = 45;
gfx_drawnumber(10,0);
gfx_x = z+126;
gfx_y = 36;
gfx_drawnumber(7,0);
gfx_x = z+157;
gfx_y = 28;
gfx_drawnumber(5,0);
gfx_x = z+198;
gfx_y = 23;
gfx_drawnumber(3,0);
gfx_x = z+76;
gfx_y = 69;
gfx_lineto(z+111,113,1);
gfx_x = z+108;
gfx_y = 57;
gfx_lineto(z+131,98,1);
gfx_x = z+134;
gfx_y = 48;
gfx_lineto(z+151,89,1);
gfx_x = z+147;
gfx_y = 44;
gfx_lineto(z+161,85,1);
gfx_x = z+162;
gfx_y = 40;
gfx_lineto(z+173,82,1);
gfx_x = z+180;
gfx_y = 37;
gfx_lineto(z+186,79,1);
gfx_x = z+202;
gfx_y = 35;
gfx_lineto(z+204,77,1);
gfx_x = z+225;
gfx_y = 35;
gfx_lineto(z+222,77,1);
gfx_x = z+252;
gfx_y = 39;
gfx_lineto(z+243,81,1);
//angle
angle = 0.5*84*$pi/179.9;
gfx_arc(z+211,236,158,angle,-angle,1);
//vu box border
gfx_r = gfx_g = gfx_b = 0.75; gfx_a = 0.5;
gfx_x = z+190;
gfx_y = 108;
gfx_rectto(z+234,139);
//vu box
gfx_r = 0.5; gfx_g = gfx_b = 0.1; gfx_a = 0.5;
gfx_x = z+192;
gfx_y = 110;
gfx_rectto(z+232,137);
//vu text
gfx_r = gfx_g = gfx_b = 0.85; gfx_a = 0.5;
gfx_x = z+204;
gfx_y = 120;
gfx_drawchar($'V');
gfx_drawchar($'U');
//meter
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 = z+212;
gfx_y = 236;
gfx_lineto(z+xl,yl,1);
gfx_x = z+211;
gfx_y = 236;
gfx_lineto(z+xl-1,yl,1);
gfx_x = z+210;
gfx_y = 236;
gfx_lineto(z+xl-2,yl,1);
//border
gfx_r = gfx_g = gfx_b = 0.55; gfx_a = 1;
gfx_x = 0;
gfx_y = 179;
gfx_rectto(gfx_w,180);
gfx_r = 0.1; gfx_g = 0.2; gfx_b = 0.39; gfx_a = 1;
gfx_x = 0;
gfx_y = 180;
gfx_rectto(gfx_w,245);
gfx_r = gfx_g = gfx_b = 1; gfx_a = 0.1;
gfx_x = 0;
gfx_y = 180;
gfx_rectto(gfx_w,190);
gfx_r = gfx_g = gfx_b = 0; gfx_a = 0.3;
gfx_x = 0;
gfx_y = 235;
gfx_rectto(gfx_w,245);
gfx_r = gfx_g = gfx_b = 0; gfx_a = 1;
gfx_x = gfx_w-75;
gfx_y = 205;
gfx_rectto(gfx_w-10,222);
gfx_r = gfx_g = gfx_b = 0; gfx_a = 1;
gfx_x = gfx_w-175;
gfx_y = 205;
gfx_rectto(gfx_w-110,222);
gfx_r = gfx_g = gfx_b = 1; gfx_a = 0.8;
gfx_x = gfx_w-210;
gfx_y = 210;
gfx_drawchar($'R');
gfx_drawchar($'M');
gfx_drawchar($'S');
gfx_x = gfx_w-92;
gfx_drawchar($'P');
gfx_x = gfx_w-170;
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 = gfx_w-70;
olt > -300 ? (
olt >= 0.0 ? (
gfx_r = 1; gfx_g = gfx_b = 0;  
gfx_drawchar($'+');
);
gfx_drawnumber(olt,2);
) : (
gfx_drawchar($'-');
gfx_drawchar($'I');
gfx_drawchar($'N');
gfx_drawchar($'F');
);
//VU-METER===================================================

(mouse_cap) ? (grmin=0; rmsl_gfx=-300; olt=-300;);
