1// generated automatically
2// DO NOT MODIFY!
3declare id "ffreak";
4declare name "Fat Furry Freak";
5declare category "Fuzz";
6declare shortname "Fat FFreak";
7declare description "Extreme Bass Fuzz Monster";
8declare drywetbox "true";
9
10import("stdfaust.lib");
11
12process = pre : fi.iir((b0/a0,b1/a0,b2/a0,b3/a0,b4/a0,b5/a0),(a1/a0,a2/a0,a3/a0,a4/a0,a5/a0))  : clip with {
13    LogPot(a, x) = ba.if(a, (exp(a * x) - 1) / (exp(a) - 1), x);
14    Inverted(b, x) = ba.if(b, 1 - x, x);
15    s = 0.993;
16    fs = float(ma.SR);
17    pre = _;
18    clip(x) =  atan(x)/ma.PI;
19
20
21
22        Fuzz = vslider("Fuzz[name:Fuzz]", 0.5, 0, 1, 0.01) : Inverted(0) : si.smooth(s);
23
24
25        Tone = vslider("Tone[name:Tone]", 0.5, 0, 1, 0.01) : Inverted(0) : si.smooth(s);
26
27
28        Gate = vslider("Gate[name:Gate]", 0.5, 0, 1, 0.01) : Inverted(0) : si.smooth(s);
29
30
31        Level = vslider("Level[name:Level]", 0.5, 0, 1, 0.01) : +(0.01) : *(0.05) : Inverted(0) : si.smooth(s);
32
33    b0 = Gate*(Tone*Level*(Fuzz*pow(fs,4)*(2.31663605170274e-21*fs + 1.15904771305164e-17) + pow(fs,3)*(fs*(-3.33595591445214e-21*fs - 1.66926037039962e-17) - 1.15904771305164e-17)) + Level*(Fuzz*pow(fs,3)*(1.55887720056646e-18*fs + 1.29589876827223e-14) + pow(fs,2)*(fs*(-2.24478316881583e-18*fs - 1.86625011403217e-14) - 1.29589876827223e-14))) + Tone*Level*(Fuzz*pow(fs,4)*(-2.79019064029167e-21*fs - 1.39597416617563e-17) + pow(fs,3)*(fs*(4.01337447559094e-21*fs + 2.00823037773104e-17) + 1.39597416617563e-17)) + Level*(Fuzz*pow(fs,3)*(-1.87753470001801e-18*fs - 1.56079959618215e-14) + pow(fs,2)*(fs*(2.70062186191725e-18*fs + 2.24522189930002e-14) + 1.56079959618215e-14));
34
35    b1 = Gate*(Tone*Level*(Fuzz*pow(fs,4)*(-1.15831802585137e-20*fs - 3.47714313915491e-17) + pow(fs,3)*(fs*(1.66797795722607e-20*fs + 5.00778111119886e-17) + 1.15904771305164e-17)) + Level*(Fuzz*pow(fs,3)*(-4.67663160169938e-18*fs - 1.29589876827223e-14) + pow(fs,2)*(fs*(6.7343495064475e-18*fs + 1.86625011403217e-14) - 1.29589876827223e-14))) + Tone*Level*(Fuzz*pow(fs,4)*(1.39509532014583e-20*fs + 4.18792249852688e-17) + pow(fs,3)*(fs*(-2.00668723779547e-20*fs - 6.02469113319311e-17) - 1.39597416617563e-17)) + Level*(Fuzz*pow(fs,3)*(5.63260410005403e-18*fs + 1.56079959618215e-14) + pow(fs,2)*(fs*(-8.10186558575176e-18*fs - 2.24522189930002e-14) + 1.56079959618215e-14));
36
37    b2 = Gate*(Tone*Level*(Fuzz*pow(fs,4)*(2.31663605170274e-20*fs + 2.31809542610327e-17) + pow(fs,3)*(fs*(-3.33595591445214e-20*fs - 3.33852074079924e-17) + 2.31809542610327e-17)) + Level*(Fuzz*pow(fs,3)*(3.11775440113292e-18*fs - 2.59179753654445e-14) + pow(fs,2)*(fs*(-4.48956633763166e-18*fs + 3.73250022806433e-14) + 2.59179753654445e-14))) + Tone*Level*(Fuzz*pow(fs,4)*(-2.79019064029167e-20*fs - 2.79194833235126e-17) + pow(fs,3)*(fs*(4.01337447559094e-20*fs + 4.01646075546207e-17) - 2.79194833235126e-17)) + Level*(Fuzz*pow(fs,3)*(-3.75506940003602e-18*fs + 3.12159919236431e-14) + pow(fs,2)*(fs*(5.40124372383451e-18*fs - 4.49044379860004e-14) - 3.12159919236431e-14));
38
39    b3 = Gate*(Tone*Level*(Fuzz*pow(fs,4)*(-2.31663605170274e-20*fs + 2.31809542610327e-17) + pow(fs,3)*(fs*(3.33595591445214e-20*fs - 3.33852074079924e-17) - 2.31809542610327e-17)) + Level*(Fuzz*pow(fs,3)*(3.11775440113292e-18*fs + 2.59179753654445e-14) + pow(fs,2)*(fs*(-4.48956633763166e-18*fs - 3.73250022806433e-14) + 2.59179753654445e-14))) + Tone*Level*(Fuzz*pow(fs,4)*(2.79019064029167e-20*fs - 2.79194833235126e-17) + pow(fs,3)*(fs*(-4.01337447559094e-20*fs + 4.01646075546207e-17) + 2.79194833235126e-17)) + Level*(Fuzz*pow(fs,3)*(-3.75506940003602e-18*fs - 3.12159919236431e-14) + pow(fs,2)*(fs*(5.40124372383451e-18*fs + 4.49044379860004e-14) - 3.12159919236431e-14));
40
41    b4 = Gate*(Tone*Level*(Fuzz*pow(fs,4)*(1.15831802585137e-20*fs - 3.47714313915491e-17) + pow(fs,3)*(fs*(-1.66797795722607e-20*fs + 5.00778111119886e-17) - 1.15904771305164e-17)) + Level*(Fuzz*pow(fs,3)*(-4.67663160169938e-18*fs + 1.29589876827223e-14) + pow(fs,2)*(fs*(6.7343495064475e-18*fs - 1.86625011403217e-14) - 1.29589876827223e-14))) + Tone*Level*(Fuzz*pow(fs,4)*(-1.39509532014583e-20*fs + 4.18792249852688e-17) + pow(fs,3)*(fs*(2.00668723779547e-20*fs - 6.02469113319311e-17) + 1.39597416617563e-17)) + Level*(Fuzz*pow(fs,3)*(5.63260410005403e-18*fs - 1.56079959618215e-14) + pow(fs,2)*(fs*(-8.10186558575176e-18*fs + 2.24522189930002e-14) + 1.56079959618215e-14));
42
43    b5 = Gate*(Tone*Level*(Fuzz*pow(fs,4)*(-2.31663605170274e-21*fs + 1.15904771305164e-17) + pow(fs,3)*(fs*(3.33595591445214e-21*fs - 1.66926037039962e-17) + 1.15904771305164e-17)) + Level*(Fuzz*pow(fs,3)*(1.55887720056646e-18*fs - 1.29589876827223e-14) + pow(fs,2)*(fs*(-2.24478316881583e-18*fs + 1.86625011403217e-14) - 1.29589876827223e-14))) + Tone*Level*(Fuzz*pow(fs,4)*(2.79019064029167e-21*fs - 1.39597416617563e-17) + pow(fs,3)*(fs*(-4.01337447559094e-21*fs + 2.00823037773104e-17) - 1.39597416617563e-17)) + Level*(Fuzz*pow(fs,3)*(-1.87753470001801e-18*fs + 1.56079959618215e-14) + pow(fs,2)*(fs*(2.70062186191725e-18*fs - 2.24522189930002e-14) + 1.56079959618215e-14));
44
45    a0 = Fuzz*fs*(fs*(fs*(fs*(-7.85412319843037e-24*fs - 7.78792746651557e-20) - 9.37831383212842e-17) - 2.2395439003671e-14) - 6.9809489892874e-15) + Gate*(Fuzz*fs*(fs*(fs*(fs*(6.54379653368279e-24*fs + 5.8178250366366e-20) + 1.85568523263077e-17) + 1.66102929456909e-16) + 5.00381548719697e-17) + Tone*(Fuzz*pow(fs,2)*(fs*(fs*(6.54379653368279e-24*fs + 5.62612870500991e-20) + 3.66325429672487e-18) + 2.81398235873665e-17) + Tone*(Fuzz*pow(fs,2)*(fs*(fs*(-4.65295447579144e-24*fs - 2.3734396603456e-20) - 2.32762902199933e-18) - 1.88310920685508e-17) + fs*(fs*(fs*(fs*(4.76440117855883e-24*fs + 2.43075314241076e-20) + 2.40711435730575e-18) + 2.16097599157672e-17) + 1.88310920685508e-17)) + fs*(fs*(fs*(fs*(-6.70053233478593e-24*fs - 5.76153907610497e-20) - 3.80725717138185e-18) - 3.24770777204501e-17) - 2.81398235873665e-17)) + fs*(fs*(fs*(fs*(-6.70053233478593e-24*fs - 5.95782688271891e-20) - 1.90595008624394e-17) - 1.88638248347695e-16) - 2.17339588935373e-16) - 5.00381548719697e-17) + Tone*(Fuzz*pow(fs,2)*(fs*(fs*(-7.85412319843037e-24*fs - 7.55784595381368e-20) - 7.35486357301917e-17) - 3.92585764869989e-15) + Tone*(Fuzz*pow(fs,2)*(fs*(fs*(5.5846598379774e-24*fs + 3.42119219586653e-20) + 3.19454127568422e-17) + 2.62717307381708e-15) + fs*(fs*(fs*(fs*(-5.71839588129828e-24*fs - 3.49001694087958e-20) - 3.20489931550843e-17) - 2.65988017960028e-15) - 2.62717307381708e-15)) + fs*(fs*(fs*(fs*(8.04220615975415e-24*fs + 7.72040670186403e-20) + 7.37353569889037e-17) + 4.00054450346227e-15) + 3.92585764869989e-15)) + fs*(fs*(fs*(fs*(8.04220615975415e-24*fs + 7.95599798455062e-20) + 9.44004344622607e-17) + 2.24958749395835e-14) + 2.93784119708285e-14) + 6.9809489892874e-15;
46
47    a1 = Fuzz*fs*(fs*(fs*(fs*(3.92706159921519e-23*fs + 2.33637823995467e-19) + 9.37831383212842e-17) - 2.2395439003671e-14) - 2.09428469678622e-14) + Gate*(Fuzz*fs*(fs*(fs*(fs*(-3.27189826684139e-23*fs - 1.74534751099098e-19) - 1.85568523263077e-17) + 1.66102929456909e-16) + 1.50114464615909e-16) + Tone*(Fuzz*pow(fs,2)*(fs*(fs*(-3.27189826684139e-23*fs - 1.68783861150297e-19) - 3.66325429672487e-18) + 2.81398235873665e-17) + Tone*(Fuzz*pow(fs,2)*(fs*(fs*(2.32647723789572e-23*fs + 7.1203189810368e-20) + 2.32762902199933e-18) - 1.88310920685508e-17) + fs*(fs*(fs*(fs*(-2.38220058927942e-23*fs - 7.29225942723227e-20) - 2.40711435730575e-18) + 2.16097599157672e-17) + 5.64932762056525e-17)) + fs*(fs*(fs*(fs*(3.35026616739297e-23*fs + 1.72846172283149e-19) + 3.80725717138185e-18) - 3.24770777204501e-17) - 8.44194707620995e-17)) + fs*(fs*(fs*(fs*(3.35026616739297e-23*fs + 1.78734806481567e-19) + 1.90595008624394e-17) - 1.88638248347695e-16) - 6.52018766806119e-16) - 2.50190774359849e-16) + Tone*(Fuzz*pow(fs,2)*(fs*(fs*(3.92706159921519e-23*fs + 2.2673537861441e-19) + 7.35486357301917e-17) - 3.92585764869989e-15) + Tone*(Fuzz*pow(fs,2)*(fs*(fs*(-2.7923299189887e-23*fs - 1.02635765875996e-19) - 3.19454127568422e-17) + 2.62717307381708e-15) + fs*(fs*(fs*(fs*(2.85919794064914e-23*fs + 1.04700508226387e-19) + 3.20489931550843e-17) - 2.65988017960028e-15) - 7.88151922145125e-15)) + fs*(fs*(fs*(fs*(-4.02110307987707e-23*fs - 2.31612201055921e-19) - 7.37353569889037e-17) + 4.00054450346227e-15) + 1.17775729460997e-14)) + fs*(fs*(fs*(fs*(-4.02110307987707e-23*fs - 2.38679939536519e-19) - 9.44004344622607e-17) + 2.24958749395835e-14) + 8.81352359124856e-14) + 3.4904744946437e-14;
48
49    a2 = Fuzz*fs*(fs*(fs*(fs*(-7.85412319843037e-23*fs - 1.55758549330311e-19) + 1.87566276642568e-16) + 4.4790878007342e-14) - 1.39618979785748e-14) + Gate*(Fuzz*fs*(fs*(fs*(fs*(6.54379653368279e-23*fs + 1.16356500732732e-19) - 3.71137046526153e-17) - 3.32205858913818e-16) + 1.00076309743939e-16) + Tone*(Fuzz*pow(fs,2)*(fs*(fs*(6.54379653368279e-23*fs + 1.12522574100198e-19) - 7.32650859344974e-18) - 5.6279647174733e-17) + Tone*(Fuzz*pow(fs,2)*(fs*(fs*(-4.65295447579144e-23*fs - 4.7468793206912e-20) + 4.65525804399867e-18) + 3.76621841371017e-17) + fs*(fs*(fs*(fs*(4.76440117855883e-23*fs + 4.86150628482151e-20) - 4.8142287146115e-18) - 4.32195198315344e-17) + 3.76621841371017e-17)) + fs*(fs*(fs*(fs*(-6.70053233478593e-23*fs - 1.15230781522099e-19) + 7.6145143427637e-18) + 6.49541554409002e-17) - 5.6279647174733e-17)) + fs*(fs*(fs*(fs*(-6.70053233478593e-23*fs - 1.19156537654378e-19) + 3.81190017248788e-17) + 3.7727649669539e-16) - 4.34679177870746e-16) - 5.00381548719697e-16) + Tone*(Fuzz*pow(fs,2)*(fs*(fs*(-7.85412319843037e-23*fs - 1.51156919076274e-19) + 1.47097271460383e-16) + 7.85171529739978e-15) + Tone*(Fuzz*pow(fs,2)*(fs*(fs*(5.5846598379774e-23*fs + 6.84238439173306e-20) - 6.38908255136844e-17) - 5.25434614763417e-15) + fs*(fs*(fs*(fs*(-5.71839588129828e-23*fs - 6.98003388175915e-20) + 6.40979863101685e-17) + 5.31976035920056e-15) - 5.25434614763417e-15)) + fs*(fs*(fs*(fs*(8.04220615975415e-23*fs + 1.54408134037281e-19) - 1.47470713977807e-16) - 8.00108900692453e-15) + 7.85171529739978e-15)) + fs*(fs*(fs*(fs*(8.04220615975415e-23*fs + 1.59119959691012e-19) - 1.88800868924521e-16) - 4.49917498791669e-14) + 5.87568239416571e-14) + 6.9809489892874e-14;
50
51    a3 = Fuzz*fs*(fs*(fs*(fs*(7.85412319843037e-23*fs - 1.55758549330311e-19) - 1.87566276642568e-16) + 4.4790878007342e-14) + 1.39618979785748e-14) + Gate*(Fuzz*fs*(fs*(fs*(fs*(-6.54379653368279e-23*fs + 1.16356500732732e-19) + 3.71137046526153e-17) - 3.32205858913818e-16) - 1.00076309743939e-16) + Tone*(Fuzz*pow(fs,2)*(fs*(fs*(-6.54379653368279e-23*fs + 1.12522574100198e-19) + 7.32650859344974e-18) - 5.6279647174733e-17) + Tone*(Fuzz*pow(fs,2)*(fs*(fs*(4.65295447579144e-23*fs - 4.7468793206912e-20) - 4.65525804399867e-18) + 3.76621841371017e-17) + fs*(fs*(fs*(fs*(-4.76440117855883e-23*fs + 4.86150628482151e-20) + 4.8142287146115e-18) - 4.32195198315344e-17) - 3.76621841371017e-17)) + fs*(fs*(fs*(fs*(6.70053233478593e-23*fs - 1.15230781522099e-19) - 7.6145143427637e-18) + 6.49541554409002e-17) + 5.6279647174733e-17)) + fs*(fs*(fs*(fs*(6.70053233478593e-23*fs - 1.19156537654378e-19) - 3.81190017248788e-17) + 3.7727649669539e-16) + 4.34679177870746e-16) - 5.00381548719697e-16) + Tone*(Fuzz*pow(fs,2)*(fs*(fs*(7.85412319843037e-23*fs - 1.51156919076274e-19) - 1.47097271460383e-16) + 7.85171529739978e-15) + Tone*(Fuzz*pow(fs,2)*(fs*(fs*(-5.5846598379774e-23*fs + 6.84238439173306e-20) + 6.38908255136844e-17) - 5.25434614763417e-15) + fs*(fs*(fs*(fs*(5.71839588129828e-23*fs - 6.98003388175915e-20) - 6.40979863101685e-17) + 5.31976035920056e-15) + 5.25434614763417e-15)) + fs*(fs*(fs*(fs*(-8.04220615975415e-23*fs + 1.54408134037281e-19) + 1.47470713977807e-16) - 8.00108900692453e-15) - 7.85171529739978e-15)) + fs*(fs*(fs*(fs*(-8.04220615975415e-23*fs + 1.59119959691012e-19) + 1.88800868924521e-16) - 4.49917498791669e-14) - 5.87568239416571e-14) + 6.9809489892874e-14;
52
53    a4 = Fuzz*fs*(fs*(fs*(fs*(-3.92706159921519e-23*fs + 2.33637823995467e-19) - 9.37831383212842e-17) - 2.2395439003671e-14) + 2.09428469678622e-14) + Gate*(Fuzz*fs*(fs*(fs*(fs*(3.27189826684139e-23*fs - 1.74534751099098e-19) + 1.85568523263077e-17) + 1.66102929456909e-16) - 1.50114464615909e-16) + Tone*(Fuzz*pow(fs,2)*(fs*(fs*(3.27189826684139e-23*fs - 1.68783861150297e-19) + 3.66325429672487e-18) + 2.81398235873665e-17) + Tone*(Fuzz*pow(fs,2)*(fs*(fs*(-2.32647723789572e-23*fs + 7.1203189810368e-20) - 2.32762902199933e-18) - 1.88310920685508e-17) + fs*(fs*(fs*(fs*(2.38220058927942e-23*fs - 7.29225942723227e-20) + 2.40711435730575e-18) + 2.16097599157672e-17) - 5.64932762056525e-17)) + fs*(fs*(fs*(fs*(-3.35026616739297e-23*fs + 1.72846172283149e-19) - 3.80725717138185e-18) - 3.24770777204501e-17) + 8.44194707620995e-17)) + fs*(fs*(fs*(fs*(-3.35026616739297e-23*fs + 1.78734806481567e-19) - 1.90595008624394e-17) - 1.88638248347695e-16) + 6.52018766806119e-16) - 2.50190774359849e-16) + Tone*(Fuzz*pow(fs,2)*(fs*(fs*(-3.92706159921519e-23*fs + 2.2673537861441e-19) - 7.35486357301917e-17) - 3.92585764869989e-15) + Tone*(Fuzz*pow(fs,2)*(fs*(fs*(2.7923299189887e-23*fs - 1.02635765875996e-19) + 3.19454127568422e-17) + 2.62717307381708e-15) + fs*(fs*(fs*(fs*(-2.85919794064914e-23*fs + 1.04700508226387e-19) - 3.20489931550843e-17) - 2.65988017960028e-15) + 7.88151922145125e-15)) + fs*(fs*(fs*(fs*(4.02110307987707e-23*fs - 2.31612201055921e-19) + 7.37353569889037e-17) + 4.00054450346227e-15) - 1.17775729460997e-14)) + fs*(fs*(fs*(fs*(4.02110307987707e-23*fs - 2.38679939536519e-19) + 9.44004344622607e-17) + 2.24958749395835e-14) - 8.81352359124856e-14) + 3.4904744946437e-14;
54
55    a5 = Fuzz*fs*(fs*(fs*(fs*(7.85412319843037e-24*fs - 7.78792746651557e-20) + 9.37831383212842e-17) - 2.2395439003671e-14) + 6.9809489892874e-15) + Gate*(Fuzz*fs*(fs*(fs*(fs*(-6.54379653368279e-24*fs + 5.8178250366366e-20) - 1.85568523263077e-17) + 1.66102929456909e-16) - 5.00381548719697e-17) + Tone*(Fuzz*pow(fs,2)*(fs*(fs*(-6.54379653368279e-24*fs + 5.62612870500991e-20) - 3.66325429672487e-18) + 2.81398235873665e-17) + Tone*(Fuzz*pow(fs,2)*(fs*(fs*(4.65295447579144e-24*fs - 2.3734396603456e-20) + 2.32762902199933e-18) - 1.88310920685508e-17) + fs*(fs*(fs*(fs*(-4.76440117855883e-24*fs + 2.43075314241076e-20) - 2.40711435730575e-18) + 2.16097599157672e-17) - 1.88310920685508e-17)) + fs*(fs*(fs*(fs*(6.70053233478593e-24*fs - 5.76153907610497e-20) + 3.80725717138185e-18) - 3.24770777204501e-17) + 2.81398235873665e-17)) + fs*(fs*(fs*(fs*(6.70053233478593e-24*fs - 5.95782688271891e-20) + 1.90595008624394e-17) - 1.88638248347695e-16) + 2.17339588935373e-16) - 5.00381548719697e-17) + Tone*(Fuzz*pow(fs,2)*(fs*(fs*(7.85412319843037e-24*fs - 7.55784595381368e-20) + 7.35486357301917e-17) - 3.92585764869989e-15) + Tone*(Fuzz*pow(fs,2)*(fs*(fs*(-5.5846598379774e-24*fs + 3.42119219586653e-20) - 3.19454127568422e-17) + 2.62717307381708e-15) + fs*(fs*(fs*(fs*(5.71839588129828e-24*fs - 3.49001694087958e-20) + 3.20489931550843e-17) - 2.65988017960028e-15) + 2.62717307381708e-15)) + fs*(fs*(fs*(fs*(-8.04220615975415e-24*fs + 7.72040670186403e-20) - 7.37353569889037e-17) + 4.00054450346227e-15) - 3.92585764869989e-15)) + fs*(fs*(fs*(fs*(-8.04220615975415e-24*fs + 7.95599798455062e-20) - 9.44004344622607e-17) + 2.24958749395835e-14) - 2.93784119708285e-14) + 6.9809489892874e-15;
56};
57