cyfaust 0.1.0__cp311-cp311-macosx_15_0_arm64.whl

cyfaust/resources/libraries/tonestacks.lib

@@ -0,0 +1,427 @@
+/**
+ **  Guitar tone stacks (based on the work from D.T. Yeh)
+ **  some values are taken from CAPS plugin tonestack 
+ ** 
+ **  this tonestacks.library provide the following tonestack models:
+ **  bassman, mesa, twin, princeton, jcm800, jcm2000, jtm45, mlead,
+ **  m2199, ac30, ac15, soldano, sovtek, peavey, ibanez, roland, 
+ **  ampeg, ampeg_rev, bogner, groove, crunch, fender_blues,
+ **  fender_default, fender_deville, gibsen
+ **  
+ **  USAGE :
+ **        _:component("tonestacks.lib").model(t,m,l):_
+ **  WHERE :
+ **       model is on of the models above.
+ **       t is treble freq control in range of (0.0 - 1.0)
+ **       m is middle freq control in range of (0.0 - 1.0)
+ **       l is low freq control in range of (0.0 - 1.0)
+ ** 
+ **  EXAMPLE :
+ **       process = component("tonestacks.lib").jcm2000(t,m,l) 
+ **       with {
+ **         t = vslider("Treble ", 0.5, 0, 1, 0.01);
+ **         m = vslider("Middle ", 0.5, 0, 1, 0.01);
+ **         l = vslider("Bass ", 0.5, 0, 1, 0.01);
+ **       };
+ **/
+
+ma = library("maths.lib");
+fi = library("filters.lib");
+
+declare name      "Faust Tonestack Emulation Library";
+declare author    "Guitarix project (<http://guitarix.sourceforge.net/>)";
+declare copyright "Guitarix project";
+declare version   "1.28.0";
+declare license   "LGPL";
+
+/****************************************************************
+ **           Equalisation 3 bands
+ **                    C1
+ **       IN >---------||---------
+ **            |                 |
+ **            |                 |
+ **           | | R4            | | R1 Treble
+ **           | |               | |<------<  Out
+ **           | |               | | 
+ **            |       C2        |
+ **            |-------||--------|------
+ **            |                 |     |
+ **            |                | |    |
+ **            |                | |<---- R2 Bass
+ **            |                | |
+ **            |                 |
+ **            |       C3       | |
+ **            --------||------>| |  R3 Middle
+ **                             | |
+ **                              |
+ **                             _|_
+ **                              -
+ **
+ ****************************************************************/
+
+tonestack(C1,C2,C3,R1,R2,R3,R4,t,m,L) = 
+    1/A0*fi.iir((B0,B1,B2,B3),(A1/A0,A2/A0,A3/A0)) 
+    with {
+    
+    l = L : (_-1)*3.4 : exp;
+    
+    b1 = t*C1*R1 + m*C3*R3 + l*(C1*R2 + C2*R2) + (C1*R3 + C2*R3);
+
+    b2 = t*(C1*C2*R1*R4 + C1*C3*R1*R4) - m*m*(C1*C3*R3*R3 + C2*C3*R3*R3)
+         + m*(C1*C3*R1*R3 + C1*C3*R3*R3 + C2*C3*R3*R3)
+         + l*(C1*C2*R1*R2 + C1*C2*R2*R4 + C1*C3*R2*R4)
+         + l*m*(C1*C3*R2*R3 + C2*C3*R2*R3)
+         + (C1*C2*R1*R3 + C1*C2*R3*R4 + C1*C3*R3*R4);
+
+    b3 = l*m*(C1*C2*C3*R1*R2*R3 + C1*C2*C3*R2*R3*R4)
+         - m*m*(C1*C2*C3*R1*R3*R3 + C1*C2*C3*R3*R3*R4)
+         + m*(C1*C2*C3*R1*R3*R3 + C1*C2*C3*R3*R3*R4)
+         + t*C1*C2*C3*R1*R3*R4 - t*m*C1*C2*C3*R1*R3*R4
+         + t*l*C1*C2*C3*R1*R2*R4;
+
+    a0 = 1;
+
+    a1 = (C1*R1 + C1*R3 + C2*R3 + C2*R4 + C3*R4)
+         + m*C3*R3 + l*(C1*R2 + C2*R2);
+
+    a2 = m*(C1*C3*R1*R3 - C2*C3*R3*R4 + C1*C3*R3*R3 + C2*C3*R3*R3)
+         + l*m*(C1*C3*R2*R3 + C2*C3*R2*R3)
+         - m*m*(C1*C3*R3*R3 + C2*C3*R3*R3)
+         + l*(C1*C2*R2*R4 + C1*C2*R1*R2 + C1*C3*R2*R4 + C2*C3*R2*R4)
+         + (C1*C2*R1*R4 + C1*C3*R1*R4 + C1*C2*R3*R4 + C1*C2*R1*R3 + C1*C3*R3*R4 + C2*C3*R3*R4);
+
+    a3 = l*m*(C1*C2*C3*R1*R2*R3 + C1*C2*C3*R2*R3*R4)
+         - m*m*(C1*C2*C3*R1*R3*R3 + C1*C2*C3*R3*R3*R4)
+         + m*(C1*C2*C3*R3*R3*R4 + C1*C2*C3*R1*R3*R3 - C1*C2*C3*R1*R3*R4)
+         + l*C1*C2*C3*R1*R2*R4
+         + C1*C2*C3*R1*R3*R4;
+
+    c = 2*float(ma.SR);
+
+    B0 = -b1*c - b2*pow(c,2) - b3*pow(c,3);
+    B1 = -b1*c + b2*pow(c,2) + 3*b3*pow(c,3);
+    B2 = b1*c + b2*pow(c,2) - 3*b3*pow(c,3);
+    B3 = b1*c - b2*pow(c,2) + b3*pow(c,3);
+    A0 = -a0 - a1*c - a2*pow(c,2) - a3*pow(c,3);
+    A1 = -3*a0 - a1*c + a2*pow(c,2) + 3*a3*pow(c,3);
+    A2 = -3*a0 + a1*c + a2*pow(c,2) - 3*a3*pow(c,3);
+    A3 = -a0 + a1*c - a2*pow(c,2) + a3*pow(c,3);
+};
+
+ts = environment {
+    k = *(1e3);
+    M = *(1e6);
+    nF = *(1e-9);
+    pF = *(1e-12);
+
+    /* Fender */
+
+    bassman = environment { /* 59 Bassman 5F6-A */
+        R1 = 250:k;
+        R2 = 1:M;
+        R3 = 25:k;
+        R4 = 56:k;
+        C1 = 250:pF;
+        C2 = 20:nF;
+        C3 = 20:nF;
+        };
+        
+    mesa = environment { /* Mesa Boogie Mark */
+        R1 = 250:k;
+        R2 = 250:k;
+        R3 = 25:k;
+        R4 = 100:k;
+        C1 = 250:pF;
+        C2 = 100:nF;
+        C3 = 47:nF;
+        };
+        
+    twin = environment { /* 69 Twin Reverb AA270 */
+        R1 = 250:k;
+        R2 = 250:k;
+        R3 = 10:k;
+        R4 = 100:k;
+        C1 = 120:pF;
+        C2 = 100:nF;
+        C3 = 47:nF;
+        };
+
+    princeton = environment { /* 64 Princeton AA1164 */
+        R1 = 250:k;
+        R2 = 250:k;
+        R3 = 4.8:k;
+        R4 = 100:k;
+        C1 = 250:pF;
+        C2 = 100:nF;
+        C3 = 47:nF;
+        };
+
+    /* Marshall */
+
+    jcm800 = environment { /* 59/81 JCM-800 Lead 100 2203 */
+        R1 = 220:k;
+        R2 = 1:M;
+        R3 = 22:k;
+        R4 = 33:k;
+        C1 = 470:pF;
+        C2 = 22:nF;
+        C3 = 22:nF;
+        };
+    /* 90 JCM-900 Master 2100: same as JCM-800 */
+
+    jcm2000 = environment { /* 81 2000 Lead */
+        R1 = 250:k;
+        R2 = 1:M;
+        R3 = 25:k;
+        R4 = 56:k; /* a 10 k fixed + 100 k pot in series actually */
+        C1 = 500:pF;
+        C2 = 22:nF;
+        C3 = 22:nF;
+        };
+        
+    jtm45 = environment { /* JTM 45 */
+        R1 = 250:k;
+        R2 = 1:M;
+        R3 = 25:k;
+        R4 = 33:k; 
+        C1 = 270:pF;
+        C2 = 22:nF;
+        C3 = 22:nF;
+        };
+
+    /* parameter order is R1 - R4, C1 - C3 */
+    mlead = environment { /* 67 Major Lead 200 */
+        R1 = 250:k;
+        R2 = 1:M;
+        R3 = 25:k;
+        R4 = 33:k;
+        C1 = 500:pF;
+        C2 = 22:nF;
+        C3 = 22:nF;
+        };
+
+    m2199 = environment { /* undated M2199 30W solid state */
+        R1 = 250:k;
+        R2 = 250:k;
+        R3 = 25:k;
+        R4 = 56:k;
+        C1 = 250:pF;
+        C2 = 47:nF;
+        C3 = 47:nF;
+        };
+
+    /* Vox */
+    ac30 = environment { /* 59/86 AC-30 */
+        /* R3 is fixed (circuit differs anyway) */
+        R1 = 1:M;
+        R2 = 1:M;
+        R3 = 10:k;
+        R4 = 100:k;
+        C1 = 50:pF;
+        C2 = 22:nF;
+        C3 = 22:nF;
+        };
+        
+    ac15 = environment { /* VOX AC-15 */
+        R1 = 220:k;
+        R2 = 220:k;
+        R3 = 220:k;
+        R4 = 100:k;
+        C1 = 470:pF;
+        C2 = 100:nF;
+        C3 = 47:nF;
+        };
+        
+    soldano = environment { /* Soldano SLO 100 */
+        R1 = 250:k;
+        R2 = 1:M;
+        R3 = 25:k;
+        R4 = 47:k;
+        C1 = 470:pF;
+        C2 = 20:nF;
+        C3 = 20:nF;
+        };
+        
+    sovtek = environment { /* MIG 100 H*/
+        R1 = 500:k;
+        R2 = 1:M;
+        R3 = 10:k;
+        R4 = 47:k;
+        C1 = 470:pF;
+        C2 = 22:nF;
+        C3 = 22:nF;
+        };
+
+    peavey = environment { /* c20*/
+        R1 = 250:k;
+        R2 = 250:k;
+        R3 = 20:k;
+        R4 = 68:k;
+        C1 = 270:pF;
+        C2 = 22:nF;
+        C3 = 22:nF;
+        };
+        
+    ibanez = environment { /* gx20 */
+        R1 = 250:k;
+        R2 = 250:k;
+        R3 = 10:k;
+        R4 = 100:k;
+        C1 = 270:pF;
+        C2 = 100:nF;
+        C3 = 40:nF;
+        };
+        
+    roland = environment { /* Cube 60 */
+        R1 = 250:k;
+        R2 = 250:k;
+        R3 = 10:k;
+        R4 = 41:k;
+        C1 = 240:pF;
+        C2 = 33:nF;
+        C3 = 82:nF;
+        };
+        
+    ampeg = environment { /* VL 501 */
+        R1 = 250:k;
+        R2 = 1:M;
+        R3 = 25:k;
+        R4 = 32:k;
+        C1 = 470:pF;
+        C2 = 22:nF;
+        C3 = 22:nF;
+        };
+    
+    ampeg_rev = environment { /* reverbrocket*/
+        R1 = 250:k;
+        R2 = 250:k;
+        R3 = 10:k;
+        R4 = 100:k;
+        C1 = 100:pF;
+        C2 = 100:nF;
+        C3 = 47:nF;
+        };
+        
+    bogner = environment { /* Triple Giant Preamp  */
+        R1 = 250:k;
+        R2 = 1:M;
+        R3 = 33:k;
+        R4 = 51:k;
+        C1 = 220:pF;
+        C2 = 15:nF;
+        C3 = 47:nF;
+        };
+        
+    groove = environment { /* Trio Preamp  */
+        R1 = 220:k;
+        R2 = 1:M;
+        R3 = 22:k;
+        R4 = 68:k;
+        C1 = 470:pF;
+        C2 = 22:nF;
+        C3 = 22:nF;
+        };
+        
+    crunch = environment { /* Hughes&Kettner  */
+        R1 = 220:k;
+        R2 = 220:k;
+        R3 = 10:k;
+        R4 = 100:k;
+        C1 = 220:pF;
+        C2 = 47:nF;
+        C3 = 47:nF;
+        };
+        
+    fender_blues = environment { /* Fender blues junior  */
+        R1 = 250:k;
+        R2 = 250:k;
+        R3 = 25:k;
+        R4 = 100:k;
+        C1 = 250:pF;
+        C2 = 22:nF;
+        C3 = 22:nF;
+        };
+        
+    fender_default = environment { /* Fender   */
+        R1 = 250:k;
+        R2 = 250:k;
+        R3 = 10:k;
+        R4 = 100:k;
+        C1 = 250:pF;
+        C2 = 100:nF;
+        C3 = 47:nF;
+        };
+        
+    fender_deville = environment { /* Fender Hot Rod  */
+        R1 = 250:k;
+        R2 = 250:k;
+        R3 = 25:k;
+        R4 = 130:k;
+        C1 = 250:pF;
+        C2 = 100:nF;
+        C3 = 22:nF;
+        };
+        
+    gibsen = environment { /* gs12 reverbrocket   */
+        R1 = 1:M;
+        R2 = 1:M;
+        R3 = 94:k;  // 47k fixed
+        R4 = 270:k;
+        C1 = 25:pF;
+        C2 = 60:nF;
+        C3 = 20:nF;
+        };
+
+};
+
+bassman(T,M,L) = tonestack(t.C1,t.C2,t.C3,t.R1,t.R2,t.R3,t.R4,T,M,L) 
+                    with {t = ts.bassman;};
+mesa(T,M,L) = tonestack(t.C1,t.C2,t.C3,t.R1,t.R2,t.R3,t.R4,T,M,L) 
+                    with {t = ts.mesa;};
+twin(T,M,L) = tonestack(t.C1,t.C2,t.C3,t.R1,t.R2,t.R3,t.R4,T,M,L) 
+                    with {t = ts.twin;};
+princeton(T,M,L) = tonestack(t.C1,t.C2,t.C3,t.R1,t.R2,t.R3,t.R4,T,M,L) 
+                    with {t = ts.princeton;};
+jcm800(T,M,L) = tonestack(t.C1,t.C2,t.C3,t.R1,t.R2,t.R3,t.R4,T,M,L) 
+                    with {t = ts.jcm800;};
+jcm2000(T,M,L) = tonestack(t.C1,t.C2,t.C3,t.R1,t.R2,t.R3,t.R4,T,M,L) 
+                    with {t = ts.jcm2000;};
+jtm45(T,M,L) = tonestack(t.C1,t.C2,t.C3,t.R1,t.R2,t.R3,t.R4,T,M,L) 
+                    with {t = ts.jtm45;};
+mlead(T,M,L) = tonestack(t.C1,t.C2,t.C3,t.R1,t.R2,t.R3,t.R4,T,M,L) 
+                    with {t = ts.mlead;};
+m2199(T,M,L) = tonestack(t.C1,t.C2,t.C3,t.R1,t.R2,t.R3,t.R4,T,M,L) 
+                    with {t = ts.m2199;};
+ac30(T,M,L) = tonestack(t.C1,t.C2,t.C3,t.R1,t.R2,t.R3,t.R4,T,M,L) 
+                    with {t = ts.ac30;};
+ac15(T,M,L) = tonestack(t.C1,t.C2,t.C3,t.R1,t.R2,t.R3,t.R4,T,M,L) 
+                    with {t = ts.ac15;};
+soldano(T,M,L) = tonestack(t.C1,t.C2,t.C3,t.R1,t.R2,t.R3,t.R4,T,M,L) 
+                    with {t = ts.soldano;};
+sovtek(T,M,L) = tonestack(t.C1,t.C2,t.C3,t.R1,t.R2,t.R3,t.R4,T,M,L) 
+                    with {t = ts.sovtek;};
+peavey(T,M,L) = tonestack(t.C1,t.C2,t.C3,t.R1,t.R2,t.R3,t.R4,T,M,L) 
+                    with {t = ts.peavey;};
+ibanez(T,M,L) = tonestack(t.C1,t.C2,t.C3,t.R1,t.R2,t.R3,t.R4,T,M,L) 
+                    with {t = ts.ibanez;};
+roland(T,M,L) = tonestack(t.C1,t.C2,t.C3,t.R1,t.R2,t.R3,t.R4,T,M,L) 
+                    with {t = ts.roland;};
+ampeg(T,M,L) = tonestack(t.C1,t.C2,t.C3,t.R1,t.R2,t.R3,t.R4,T,M,L) 
+                    with {t = ts.ampeg;};
+ampeg_rev(T,M,L) = tonestack(t.C1,t.C2,t.C3,t.R1,t.R2,t.R3,t.R4,T,M,L) 
+                    with {t = ts.ampeg_rev;};
+bogner(T,M,L) = tonestack(t.C1,t.C2,t.C3,t.R1,t.R2,t.R3,t.R4,T,M,L) 
+                    with {t = ts.bogner;};
+groove(T,M,L) = tonestack(t.C1,t.C2,t.C3,t.R1,t.R2,t.R3,t.R4,T,M,L) 
+                    with {t = ts.groove;};
+crunch(T,M,L) = tonestack(t.C1,t.C2,t.C3,t.R1,t.R2,t.R3,t.R4,T,M,L) 
+                    with {t = ts.crunch;};
+fender_blues(T,M,L) = tonestack(t.C1,t.C2,t.C3,t.R1,t.R2,t.R3,t.R4,T,M,L) 
+                    with {t = ts.fender_blues;};
+fender_default(T,M,L)= tonestack(t.C1,t.C2,t.C3,t.R1,t.R2,t.R3,t.R4,T,M,L) 
+                    with {t = ts.fender_default;};
+fender_deville(T,M,L) = tonestack(t.C1,t.C2,t.C3,t.R1,t.R2,t.R3,t.R4,T,M,L) 
+                    with {t = ts.fender_deville;};
+gibsen(T,M,L) = tonestack(t.C1,t.C2,t.C3,t.R1,t.R2,t.R3,t.R4,T,M,L) 
+                    with {t = ts.gibsen;};
+