@DanH yes "fun"..
So the only way I can get this to work is to remove the (silly) normalisation all together and replace it with the valid Freq values like this:
import("stdfaust.lib");
korg35LPF(theFreq,Q) = _ <: (s1,s2,s3,y) : !,!,!,_
letrec{
's1 = _-s1:_*(alpha*2):_+s1;
's2 = _-s1:_*alpha:_+s1:_+(s3*B3):_+(s2*B2):_*alpha0:_-s3:_*alpha:_+s3:_*K:_-s2:_*(alpha*2):_+s2;
's3 = _-s1:_*alpha:_+s1:_+(s3*B3):_+(s2*B2):_*alpha0:_-s3:_*(alpha*2):_+s3;
'y = _-s1:_*alpha:_+s1:_+(s3*B3):_+(s2*B2) :_*alpha0:_-s3:_*alpha:_+s3;
}
with{
invSqrt2 = 1/sqrt(2);
freq = theFreq;
K = 2.0*(Q - invSqrt2)/(10.0 - invSqrt2);
wd = 2*ma.PI*freq;
T = 1/ma.SR;
wa = (2/T)*tan(wd*T/2);
g = wa*T/2;
G = g/(1.0 + g);
alpha = G;
B3 = (K - K*G)/(1 + g);
B2 = -1/(1 + g);
alpha0 = 1/(1 - K*G + K*G*G);
};
// Filter Frequency
myFreq = (hslider("Freq.", 3000, 20, 20000, 1));
Res = hslider("Res.", 1, 0.3, 9.0, 0.1);
// The filter is a mono effect, so duplicated here for stereo usage
process = _,_:korg35LPF(myFreq,Res),korg35LPF(myFreq,Res);
I assume this is more like what most "HISE-people" would want - as we can add our own ScriptNode/UI skewing as we like it. If theres no complaints I will work my way through the versions on faust_fx_library replacing the ones I uploaded with these versions....
