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
|
// generated automatically
// DO NOT MODIFY!
declare id "baxandall";
declare name "Baxandall";
declare category "Tone Control";
import("stdfaust.lib");
process = pre : fi.iir((b0/a0,b1/a0,b2/a0,b3/a0,b4/a0),(a1/a0,a2/a0,a3/a0,a4/a0)) with {
s = 0.993;
fs = float(ma.SR);
pre = _;
tr = vslider("tr[name:treble]", 0.5, 0, 1, 0.01) : si.smooth(s);
ba = 1.0 - vslider("ba[name:bass]", 0.5, 0, 1, 0.01) : si.smooth(s);
b0 = ba*(ba*(fs*(fs*(-1.16646701382671e-16*fs - 1.35752299926304e-12) - 1.24043238434298e-9) + tr*(pow(fs,3)*tr*(7.45996346051965e-20*fs + 7.93613134097836e-16) + pow(fs,2)*(fs*(-3.84934114562814e-19*fs - 4.45721994768766e-15) - 3.85293803981734e-12))) + fs*(fs*(1.16646701382671e-16*fs + 1.13415697533877e-12) + 5.05476196619765e-10) + tr*(pow(fs,2)*tr*(fs*(-7.45996346051965e-20*fs - 6.50762769960225e-16) + 1.68853858318688e-12) + fs*(fs*(fs*(3.84934114562814e-19*fs + 3.72011206873759e-15) + 1.47087060946334e-12) - 4.60510522687332e-9)) - 1.55054048042873e-6) + fs*(2.48184471026959e-13*fs + 9.9677425108649e-10) + tr*(pow(fs,2)*tr*(-1.58722626819567e-16*fs - 1.72230935485062e-12) + fs*(fs*(8.19008754388966e-16*fs + 3.24125726288252e-12) + 4.69720733141079e-9)) + 1.5815512900373e-6;
b1 = ba*(ba*(fs*(2.33293402765342e-16*pow(fs,2) - 2.48086476868596e-9) + tr*(pow(fs,3)*tr*(-2.98398538420786e-19*fs - 1.58722626819567e-15) + pow(fs,3)*(1.53973645825126e-18*fs + 8.91443989537532e-15))) + fs*(-2.33293402765342e-16*pow(fs,2) + 1.01095239323953e-9) + tr*(pow(fs,3)*tr*(2.98398538420786e-19*fs + 1.30152553992045e-15) + fs*(pow(fs,2)*(-1.53973645825126e-18*fs - 7.44022413747518e-15) - 9.21021045374664e-9)) - 6.20216192171491e-6) + 1.99354850217298e-9*fs + tr*(3.17445253639134e-16*pow(fs,3)*tr + fs*(-1.63801750877793e-15*pow(fs,2) + 9.39441466282157e-9)) + 6.32620516014921e-6;
b2 = ba*(ba*(2.71504599852608e-12*pow(fs,2) + tr*(4.47597807631179e-19*pow(fs,4)*tr + pow(fs,2)*(-2.30960468737688e-18*pow(fs,2) + 7.70587607963469e-12))) - 2.26831395067755e-12*pow(fs,2) + tr*(pow(fs,2)*tr*(-4.47597807631179e-19*pow(fs,2) - 3.37707716637377e-12) + pow(fs,2)*(2.30960468737688e-18*pow(fs,2) - 2.94174121892668e-12)) - 9.30324288257237e-6) - 4.96368942053919e-13*pow(fs,2) + tr*(3.44461870970124e-12*pow(fs,2)*tr - 6.48251452576504e-12*pow(fs,2)) + 9.48930774022381e-6;
b3 = ba*(ba*(fs*(-2.33293402765342e-16*pow(fs,2) + 2.48086476868596e-9) + tr*(pow(fs,3)*tr*(-2.98398538420786e-19*fs + 1.58722626819567e-15) + pow(fs,3)*(1.53973645825126e-18*fs - 8.91443989537532e-15))) + fs*(2.33293402765342e-16*pow(fs,2) - 1.01095239323953e-9) + tr*(pow(fs,3)*tr*(2.98398538420786e-19*fs - 1.30152553992045e-15) + fs*(pow(fs,2)*(-1.53973645825126e-18*fs + 7.44022413747518e-15) + 9.21021045374664e-9)) - 6.20216192171491e-6) - 1.99354850217298e-9*fs + tr*(-3.17445253639134e-16*pow(fs,3)*tr + fs*(1.63801750877793e-15*pow(fs,2) - 9.39441466282157e-9)) + 6.32620516014921e-6;
b4 = ba*(ba*(fs*(fs*(1.16646701382671e-16*fs - 1.35752299926304e-12) + 1.24043238434298e-9) + tr*(pow(fs,3)*tr*(7.45996346051965e-20*fs - 7.93613134097836e-16) + pow(fs,2)*(fs*(-3.84934114562814e-19*fs + 4.45721994768766e-15) - 3.85293803981734e-12))) + fs*(fs*(-1.16646701382671e-16*fs + 1.13415697533877e-12) - 5.05476196619765e-10) + tr*(pow(fs,2)*tr*(fs*(-7.45996346051965e-20*fs + 6.50762769960225e-16) + 1.68853858318688e-12) + fs*(fs*(fs*(3.84934114562814e-19*fs - 3.72011206873759e-15) + 1.47087060946334e-12) + 4.60510522687332e-9)) - 1.55054048042873e-6) + fs*(2.48184471026959e-13*fs - 9.9677425108649e-10) + tr*(pow(fs,2)*tr*(1.58722626819567e-16*fs - 1.72230935485062e-12) + fs*(fs*(-8.19008754388966e-16*fs + 3.24125726288252e-12) - 4.69720733141079e-9)) + 1.5815512900373e-6;
a0 = ba*(ba*(fs*(fs*(fs*(-3.10334479957618e-19*fs - 4.74326697987594e-15) - 1.66212915750803e-11) - 1.36447562277728e-8) + tr*(pow(fs,3)*tr*(8.20595980657162e-19*fs + 8.72974447507619e-15) + pow(fs,2)*(fs*(-8.20595980657162e-19*fs - 1.09677335132321e-14) - 2.38083940229351e-11))) + fs*(fs*(fs*(3.10334479957618e-19*fs + 4.14900946506348e-15) + 1.38603283669398e-11) + 1.11887001067737e-8) + tr*(pow(fs,3)*tr*(-8.20595980657162e-19*fs - 7.15839046956248e-15) + pow(fs,2)*(fs*(8.20595980657162e-19*fs + 9.39637950771837e-15) + 1.95228830988068e-11))) + fs*(fs*(6.60286127569399e-16*fs + 3.81609719800236e-12) + 5.84773317653659e-9) + tr*(pow(fs,2)*tr*(-1.74594889501524e-15*fs - 2.060017071488e-12) + fs*(fs*(1.74594889501524e-15*fs + 6.82169587607501e-12) + 5.61822837678545e-9)) + 1.89165938612305e-6;
a1 = ba*(ba*(fs*(pow(fs,2)*(1.24133791983047e-18*fs + 9.48653395975189e-15) - 2.72895124555456e-8) + tr*(pow(fs,3)*tr*(-3.28238392262865e-18*fs - 1.74594889501524e-14) + pow(fs,3)*(3.28238392262865e-18*fs + 2.19354670264642e-14))) + fs*(pow(fs,2)*(-1.24133791983047e-18*fs - 8.29801893012697e-15) + 2.23774002135474e-8) + tr*(pow(fs,3)*tr*(3.28238392262865e-18*fs + 1.4316780939125e-14) + pow(fs,3)*(-3.28238392262865e-18*fs - 1.87927590154367e-14))) + fs*(-1.3205722551388e-15*pow(fs,2) + 1.16954663530732e-8) + tr*(3.49189779003048e-15*pow(fs,3)*tr + fs*(-3.49189779003048e-15*pow(fs,2) + 1.12364567535709e-8)) + 7.56663754449219e-6;
a2 = ba*(ba*(pow(fs,2)*(-1.86200687974571e-18*pow(fs,2) + 3.32425831501606e-11) + tr*(4.92357588394297e-18*pow(fs,4)*tr + pow(fs,2)*(-4.92357588394297e-18*pow(fs,2) + 4.76167880458701e-11))) + pow(fs,2)*(1.86200687974571e-18*pow(fs,2) - 2.77206567338795e-11) + tr*(-4.92357588394297e-18*pow(fs,4)*tr + pow(fs,2)*(4.92357588394297e-18*pow(fs,2) - 3.90457661976135e-11))) - 7.63219439600472e-12*pow(fs,2) + tr*(4.120034142976e-12*pow(fs,2)*tr - 1.364339175215e-11*pow(fs,2)) + 1.13499563167383e-5;
a3 = ba*(ba*(fs*(pow(fs,2)*(1.24133791983047e-18*fs - 9.48653395975189e-15) + 2.72895124555456e-8) + tr*(pow(fs,3)*tr*(-3.28238392262865e-18*fs + 1.74594889501524e-14) + pow(fs,3)*(3.28238392262865e-18*fs - 2.19354670264642e-14))) + fs*(pow(fs,2)*(-1.24133791983047e-18*fs + 8.29801893012697e-15) - 2.23774002135474e-8) + tr*(pow(fs,3)*tr*(3.28238392262865e-18*fs - 1.4316780939125e-14) + pow(fs,3)*(-3.28238392262865e-18*fs + 1.87927590154367e-14))) + fs*(1.3205722551388e-15*pow(fs,2) - 1.16954663530732e-8) + tr*(-3.49189779003048e-15*pow(fs,3)*tr + fs*(3.49189779003048e-15*pow(fs,2) - 1.12364567535709e-8)) + 7.56663754449219e-6;
a4 = ba*(ba*(fs*(fs*(fs*(-3.10334479957618e-19*fs + 4.74326697987594e-15) - 1.66212915750803e-11) + 1.36447562277728e-8) + tr*(pow(fs,3)*tr*(8.20595980657162e-19*fs - 8.72974447507619e-15) + pow(fs,2)*(fs*(-8.20595980657162e-19*fs + 1.09677335132321e-14) - 2.38083940229351e-11))) + fs*(fs*(fs*(3.10334479957618e-19*fs - 4.14900946506348e-15) + 1.38603283669398e-11) - 1.11887001067737e-8) + tr*(pow(fs,3)*tr*(-8.20595980657162e-19*fs + 7.15839046956248e-15) + pow(fs,2)*(fs*(8.20595980657162e-19*fs - 9.39637950771837e-15) + 1.95228830988068e-11))) + fs*(fs*(-6.60286127569399e-16*fs + 3.81609719800236e-12) - 5.84773317653659e-9) + tr*(pow(fs,2)*tr*(1.74594889501524e-15*fs - 2.060017071488e-12) + fs*(fs*(-1.74594889501524e-15*fs + 6.82169587607501e-12) - 5.61822837678545e-9)) + 1.89165938612305e-6;
};
|
