cyfaust 0.1.0__cp311-cp311-macosx_15_0_arm64.whl

cyfaust/resources/libraries/examples/misc/guitarix.dsp

@@ -0,0 +1,184 @@
+/*
+ * Copyright (C) 2009, 2010 Hermann Meyer, James Warden, Andreas Degert
+ * Copyright (C) 2011 Pete Shorthose
+ *
+ * This program is free software; you can redistribute it and/or modify
+ * it under the terms of the GNU General Public License as published by
+ * the Free Software Foundation; either version 2 of the License, or
+ * (at your option) any later version.
+ *
+ * This program is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ * GNU General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with this program; if not, write to the Free Software
+ * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
+ * 
+ * ----------------------------------------------------------------------------
+ * Adapted version from guitarixlite (v.0.28) using foreign functions 
+ * to this self-contained Faust version (v.0.29)
+ * Adapted by GRAME - 2014
+ * ----------------------------------------------------------------------------
+ */
+
+declare name        "guitarix";
+declare version     "0.29";
+declare author      "Guitarix project (http://guitarix.sourceforge.net/)";
+declare copyright   "Guitarix project";
+declare license     "LGPL";
+
+ba = library("basics.lib");
+si = library("signals.lib");
+
+import("tubes.lib");
+import("tonestacks.lib");
+
+process = preamp; 
+
+/****************************************************************
+ ** Tube Preamp Emulation with
+ *  tubescreamer -  tube stage 1 - 2 - tonestack - cabinet
+ */
+preamp = hgroup("Guitarix",
+         hgroup("[0]TubeScreamer",ts9sim) :
+         hgroup("[1]preamp: 12AX7", stage1 : stage2): 
+         hgroup("[2]tonestack: jcm2000", tstack) :
+         hgroup("[3]Cabinet", cab)) 
+with {
+
+    stage1 = T1_12AX7 : *(preamp) : fi.lowpass(1,6531.0) : T2_12AX7 : *(preamp) 
+    with {
+        preamp = vslider("[0] Pregain [style:knob]",-6,-20,20,0.1) : ba.db2linear : si.smoo;
+    };
+
+    stage2 = fi.lowpass(1,6531.0) : T3_12AX7 : *(gain) 
+    with {
+        gain = vslider("[1] Gain [style:knob]",-6,-20.0,20.0,0.1) : ba.db2linear : si.smoo;
+    };
+
+    tstack = jcm2000(t, m, l) 
+    with {
+        t = vslider("[2] Treble [style:knob]",0.5,0,1,0.01);
+        m = vslider("[3] Middle [style:knob]",0.5,0,1,0.01);
+        l = vslider("[4] Bass [style:knob]",0.5,0,1,0.01);
+    };
+   
+    /*
+    // Dynamically choose between several 'tstack'
+    tstack = ba.selectmulti(ma.SR/100, (tjcm2000, tjtm45, tjcm800), 
+    nentry("tstack [style:menu{'tjcm2000':0;'tjtm45':1;'tjcm800':2}]", 0, 0, 2, 1))
+    with {
+        tjcm2000 = jcm2000(t, m, l);
+        tjtm45 = jtm45(t, m, l);
+        tjcm800 = jcm800(t, m, l);
+        t = vslider("[2] Treble [style:knob]",0.5,0,1,0.01);
+        m = vslider("[3] Middle [style:knob]",0.5,0,1,0.01);
+        l = vslider("[4] Bass [style:knob]",0.5,0,1,0.01);
+    };
+    */
+};
+
+
+/****************************************************************************************
+ * 1-dimensional function tables for nonlinear interpolation
+****************************************************************************************/
+nonlininterpolation(table, low, high, step, size, x) = ts9(low, step, size, table, x),inverse(x) : ccopysign;
+
+//-- Interpolate value from table
+ts9(low, step, size, table, x) = interpolation(table, getCoef(low, step, size, x), 
+                                 nonlinindex(low, step, x) : boundIndex(size));
+
+//-- Calculate non linear index
+nonlinindex(low, step, x) = (abs(x)/(3.0 + abs(x)) - low) * step;
+
+//--Get interpolation factor
+getCoef(low, step, size, x) = boundFactor(size, nonlinindex(low, step, x), nonlinindex(low, step, x) : boundIndex(size));
+
+/********* Faust Version of ts9nonlin.cc, generated by tools/ts9sim.py ****************/
+
+ts9comp = nonlininterpolation(ts9table, low, high, step, size) 
+with {
+
+// Characteristics of the wavetable
+low = 0.0;
+high = 0.970874;
+step = 101.97;
+size = 99; // (real size = 100, set the actual size at 100-1 for interpolation to work at the last point)
+    
+ts9table = waveform{0.0,-0.0296990148227,-0.0599780676992,-0.0908231643281,-0.122163239629,
+    -0.15376009788,-0.184938007182,-0.214177260107,-0.239335434213,-0.259232575019,
+    -0.274433909887,-0.286183308354,-0.29553854444,-0.303222323477,-0.309706249977,
+    -0.315301338712,-0.320218440785,-0.324604982281,-0.328567120703,-0.332183356975,
+    -0.335513124719,-0.33860236542,-0.34148724693,-0.344196707008,-0.346754233717,
+    -0.34917913798,-0.351487480543,-0.35369275887,-0.355806424152,-0.357838275995,
+    -0.359796767655,-0.361689244919,-0.363522135105,-0.365301098113,-0.367031148289,
+    -0.368716753588,-0.370361916943,-0.371970243537,-0.373544996828,-0.375089145544,
+    -0.376605403346,-0.378096262548,-0.379564022938,-0.381010816596,-0.382438629377,
+    -0.383849319643,-0.385244634694,-0.386626225283,-0.387995658543,-0.389354429565,
+    -0.39070397188,-0.392045667012,-0.393380853288,-0.39471083403,-0.396036885269,
+    -0.397360263098,-0.398682210753,-0.400003965547,-0.401326765733,-0.402651857394,
+    -0.403980501471,-0.405313980999,-0.406653608692,-0.40800073496,-0.409356756504,
+    -0.410723125631,-0.412101360439,-0.413493056085,-0.414899897347,-0.416323672745,
+    -0.417766290556,-0.419229797097,-0.420716397759,-0.422228481377,-0.423768648654,
+    -0.425339745558,-0.426944902828,-0.428587583057,-0.430271637224,-0.432001373102,
+    -0.433781638746,-0.435617925286,-0.437516494692,-0.439484540257,-0.441530390423,
+    -0.443663770898,-0.445896146322,-0.448241172434,-0.450715304661,-0.453338632988,
+    -0.45613605235,-0.45913894467,-0.46238766699,-0.465935359011,-0.469854010456,
+    -0.474244617411,-0.479255257451,-0.48511588606,-0.492212726244,-0.501272723631
+    };
+};
+/****************************************************************************************/
+
+/****************************************************************************************
+*    declare id       "ts9sim";
+*    declare name     "Tube Screamer";
+*    declare category "Distortion";
+*
+**  based on a circuit diagram of the Ibanez TS-9 and
+**  a mathematical analysis published by Tamás Kenéz
+****************************************************************************************/
+
+ts9sim = ts9nonlin : lowpassfilter : *(gain) 
+with {
+
+    R1 = 4700;
+    R2 = 51000 + 500000 * vslider("drive[name:Drive][style:knob]", 0.5, 0, 1, 0.01);
+    C = 0.047 * 1e-6;
+    a1 = (R1 + R2) * C * 2 * ma.SR;
+    a2 = R1 * C * 2 * ma.SR;
+    B0 = (1 + a1) / (1 + a2);
+    B1 = (1 - a1) / (1 + a2);
+    A1 = (1 - a2) / (1 + a2);
+    X2 = fi.tf1(B0, B1, A1);
+
+    ts9nonlin = _ <: _ ,(X2,_ : - : ts9comp) : - :> _;
+  
+    fc = vslider("tone[log][name:Tone][style:knob]", 400, 100, 1000, 1.03);
+    lowpassfilter = fi.lowpass(1,fc);
+    gain = vslider("level[name:Level][style:knob]", -16, -20, 4, 0.1) : ba.db2linear : si.smoo;
+};
+
+/****************************************************************************************
+*    declare name "cabinet";
+*
+**     based on a circuit diagram of the Ibanez TS-9 and
+**     a mathematical analysis published by Tamás Kenéz
+****************************************************************************************/
+
+wetdry = vslider("[5] amount[style:knob]", 100, 0, 100, 1) : /(100);
+dry = 1 - wetdry;
+
+cab = _<:(*(dry):_), (*(wetdry):fi.conv((0.000488281, -0.0020752, 0.000561523, -0.00231934, 0.000634766, -0.00247803, 0.000512695, -0.00247803, 0.000146484, -0.00219727, -0.000622559, -0.00145264, -0.00202637, 
+    -2.44141e-05, -0.00438232, 0.00247803, -0.00822754, 0.00706787, -0.0159546, 0.0202148, -0.0471558, 0.0953003, -0.208582, 0.312427, 0.75, -0.26803, 
+    0.399963, 0.200696, -0.146655, -0.29303, -0.222168, -0.113098, 0.0267334, 0.0312134, 0.164685, 0.0443481, 0.186621, 0.0540039, 0.123303, 
+    0.0805054, 0.0739868, 0.0591797, 0.0661743, 0.0400391, 0.0429932, 0.0339844, 0.0320557, 0.02323, 0.0217285, 0.0182007, 0.0157227, 0.0130005, 
+    0.0103882, 0.00942383, 0.00718994, 0.0067749, 0.00458984, 0.00455322, 0.00272217, 0.00294189, 0.00140381, 0.00170898, 0.000402832, 0.000720215, -0.000354004, 
+    -2.44141e-05, -0.000915527, -0.000610352, -0.00134277, -0.0010498, -0.00166016, -0.0013916, -0.0019043, -0.00166016, -0.0020874, -0.00187988, -0.00224609, -0.00203857, 
+    -0.00235596, -0.00217285, -0.0024292, -0.0022583, -0.00247803, -0.00233154, -0.00252686, -0.00238037, -0.00256348, -0.0024292, 0.75, -0.00246582, -0.0026001, 
+    -0.00247803, -0.0026001, -0.00249023, -0.0026001, -0.00250244, -0.0026001, -0.00251465, -0.0026001, -0.00251465, -0.0026001, -0.00251465, -0.0026001, -0.00252686, 
+    -0.00258789, -0.00252686, -0.00258789, -0.00251465, -0.00257568, -0.00251465, -0.00256348, -0.00251465, -0.00256348, -0.00251465, -0.00256348, -0.00251465, -0.00256348, 
+    -0.00251465, -0.00256348, -0.00251465, -0.00256348, -0.00252686, -0.00256348, -0.00252686, -0.00255127, -0.00252686, -0.00255127, -0.00252686, -0.00255127, -0.00252686, 
+    -0.00255127, -0.00252686, -0.00256348
+     ))):>_;

cyfaust/resources/libraries/examples/misc/matrix.dsp

@@ -0,0 +1,17 @@
+declare name      "matrix";
+declare version   "1.0";
+declare author    "Grame";
+declare license   "BSD";
+declare copyright "(c)GRAME 2006";
+
+//-----------------------------------------------
+// Audio Matrix : N inputs x M outputs
+//-----------------------------------------------
+
+import("stdfaust.lib");
+
+Fader(in)    = ba.db2linear(vslider("Input %in", -10, -96, 4, 0.1));
+Mixer(N,out) = hgroup("Output %out", par(in, N, *(Fader(in)) ) :> _ );
+Matrix(N,M)  = tgroup("Matrix %N x %M", par(in, N, _) <: par(out, M, Mixer(N, out)));
+
+process = Matrix(8, 8);

cyfaust/resources/libraries/examples/misc/midiTester.dsp

@@ -0,0 +1,122 @@
+declare name      "midiTester";
+declare version   "1.0";
+declare author    "Vincent Rateau, GRAME";
+declare license   "GPL v3";
+declare reference "www.sonejo.net";
+
+// FAUST MIDI TESTER
+
+process = _*0, (vgroup("FAUST MIDI TESTER", hgroup("[1]", controltester, controlchantester, noteontester, noteonchantester, noteofftester, noteoffchantester, keypresschantester, midiclocktester), hgroup("[2]", kattester, katchantester, pctester, pcchantester, chattester, chatchantester, pitchwheeltester, pitchwheelchantester) :> _)) : attach;
+
+///////////////////////////
+
+// Ctrl tester (ctrl ): tester(midi in, midi out)
+controltester = vgroup("CTRL IN/OUT", valuetest(50,51), booltest(100,101))
+with {
+    valuetest(i,o) = hslider("Ctrl Value IN (Ctrl %i) [midi:ctrl %i]", 60, 0, 127, 1) : hbargraph("Ctrl Value OUT (Ctrl %o) [midi:ctrl %o]", 0, 127);
+    booltest(i,o) = checkbox("Ctrl Bool IN (Ctrl %i) [midi:ctrl %i]") : hbargraph("Ctrl Bool OUT (Ctrl %o) [midi:ctrl %o]", 0, 1);
+};
+
+// Ctrl Chan tester (ctrl chan): tester(midi in, midi out)
+controlchantester = vgroup("CTRL CHAN IN/OUT", valuetest(50,2,74,3))
+with {
+    valuetest(i,ic,o,oc) = hslider("Ctrl Value IN (Ctrl %i Channel %ic) [midi:ctrl %i %ic]", 60, 0, 127, 1) : hbargraph("Ctrl Value OUT (Ctrl %o) Channel OUT(Chan %oc) [midi:ctrl %o %oc]", 0, 127);
+};
+
+// Note tester (keyon) : tester(midi in, midi out)
+noteontester = vgroup("NOTE ON IN/OUT", valuetest(50,51), booltest(100,101))
+with {
+    valuetest(i,o) = hslider("NoteOn Value IN (Note %i) [midi:keyon %i]", 60, 0, 127, 1) : hbargraph("NoteOn Value OUT (Note %o) [midi:keyon %o]", 0, 127);
+    booltest(i,o) = checkbox("NoteOn Bool IN (Note %i) [midi:keyon %i]") : hbargraph("NoteOn Bool OUT (Note %o) [midi:keyon %o]", 0, 1);
+};
+
+// Note Chan tester (keyon) : tester(midi in, midi out)
+noteonchantester = vgroup("NOTE ON CHAN IN/OUT", valuetest(50, 2, 51, 3), booltest(50, 2, 101, 3))
+with {
+    valuetest(i, ic, o, oc) = hslider("NoteOn Value IN (Note %i Channel %ic) [midi:keyon %i %ic]", 60, 0, 127, 1) : hbargraph("NoteOn Value OUT (Note %o Chan %oc) [midi:keyon %o %oc]", 0, 127);
+    booltest(i, ic, o, oc) = checkbox("NoteOn Chan Bool IN (Note %i Channel %ic) [midi:keyon %i %ic]") : hbargraph("NoteOn Chan Bool OUT (Note %o Channel %oc) [midi:keyon %o %oc]", 0, 1);
+};
+
+// Note tester (keyoff) : tester(midi in, midi out)
+noteofftester = vgroup("NOTE OFF IN/OUT", valuetest(50,51), booltest(100,101))
+with {
+    valuetest(i,o) = hslider("NoteOff Value IN (Note %i) [midi:keyoff %i]", 60, 0, 127, 1) : hbargraph("NoteOff Value OUT (Note %o) [midi:keyoff %o]", 0, 127);
+    booltest(i,o) = checkbox("NoteOff Bool IN (Note %i) [midi:keyoff %i]") : hbargraph("NoteOff Bool OUT (Note %o) [midi:keyoff %o]", 0, 1);
+};
+
+// Note Chan tester (keyoff) : tester(midi in, midi out)
+noteoffchantester = vgroup("NOTE OFF CHAN IN/OUT", valuetest(50, 2, 51, 3), booltest(50, 2, 101, 3))
+with {
+    valuetest(i, ic, o, oc) = hslider("NoteOff Value IN (Note %i Channel %ic) [midi:keyoff %i %ic]", 60, 0, 127, 1) : hbargraph("NoteOff Value OUT (Note %o Channel %oc) [midi:keyoff %o %oc]", 0, 127);
+    booltest(i, ic, o, oc) = checkbox("NoteOff Bool IN (Note %i Channel %ic) [midi:keyoff %i %ic]") : hbargraph("NoteOff Bool OUT (Note %o Channel %oc) [midi:keyoff %o %oc]", 0, 1);
+};
+
+// KeyPress Chan tester (keypress) : tester(midi in, midi out)
+keypresschantester = vgroup("KEY PRESS CHAN IN/OUT", valuetest(50, 2, 51, 3), booltest(50, 2, 101, 3))
+with {
+    valuetest(i, ic, o, oc) = hslider("Pressure Value IN (Note %i Channel %ic) [midi:keypress %i %ic]", 60, 0, 127, 1) : hbargraph("Note Value OUT (Note %o Channel %oc) [midi:keypress %o %oc]", 0, 127);
+    booltest(i, ic, o, oc) = checkbox("Pressure Bool IN (Note %i Channel %ic) [midi:keypress %i %ic]") : hbargraph("Pressure Bool OUT (Note %o Channel %oc) [midi:keypress %o %oc]", 0, 1);
+};
+
+// Midisync tester
+midiclocktester = vgroup("MIDI SYNC (IN)", clock, startstop)
+with {
+    clock = checkbox("MIDI clock signal [midi:clock]");
+    startstop = checkbox("MIDI START/STOP [midi:start] [midi:stop]");
+};
+
+// Key Aftertouch tester (keypress) : tester(midi in, midi out)
+kattester = vgroup("KEY AFTERTOUCH (KAT) IN/OUT",valuetest(50,51), booltest(100,101))
+with {
+    valuetest(i,o) = hslider("Note KAT Value IN (Note %i) [midi:keypress %i]", 60, 0, 127, 1) : hbargraph("Note KAT Value OUT (Note %o) [midi:keypress %o]", 0, 127);
+    booltest(i,o) = checkbox("Note KAT Bool IN (Note %i) [midi:keypress %i]") : hbargraph("Note KAT Bool OUT (Note %o) [midi:keypress %o]", 0, 1);
+};
+
+// Key Aftertouch tester (keypress) : tester(midi in, midi out)
+katchantester = vgroup("KEY AFTERTOUCH CHAN (KAT) IN/OUT",valuetest(50,2,51,3), booltest(100,2,101,3))
+with {
+    valuetest(i,ic,o,oc) = hslider("Note KAT Value IN (Note %i) (Chan %ic) [midi:keypress %i %ic]", 60, 0, 127, 1) : hbargraph("Note KAT Value OUT (Note %o) (Chan %oc) [midi:keypress %o %oc]", 0, 127);
+    booltest(i,ic,o,oc) = checkbox("Note KAT Bool IN (Note %i) (Chan %ic) [midi:keypress %i %ic]") : hbargraph("Note KAT Bool OUT (Note %o) (Chan %oc)[midi:keypress %o %oc]", 0, 1);
+};
+
+// ProgramChange tester (pgm) : tester(midi in, midi out)
+pctester = vgroup("PROGRAM CHANGE (PC) IN/OUT",valuetest(1,2), booltest(1,2))
+with {
+    valuetest(i,o) = hslider("ProgramChange Value IN (PC %i) [midi:pgm %i]", 60, 0, 127, 1) : hbargraph("ProgramChange Value OUT (PC %o) [midi:pgm %o]", 0, 127);
+    booltest(i,o) = checkbox("ProgramChange Bool IN (PC %i) [midi:pgm %i]") : hbargraph("ProgramChange Bool OUT (PC %o) [midi:pgm %o]", 0, 1);
+};
+
+// ProgramChange Chan tester (pgm) : tester(midi in, midi out)
+pcchantester = vgroup("PROGRAM CHANGE CHAN (PC) IN/OUT",valuetest(1, 2, 2, 3), booltest(1, 2, 2, 3))
+with {
+    valuetest(i,ic,o,oc) = hslider("ProgramChange Value IN (PC %i) (CHAN %ic) [midi:pgm %i %ic]", 60, 0, 127, 1) : hbargraph("ProgramChange Value OUT (PC %o) (CHAN %oc) [midi:pgm %o %oc]", 0, 127);
+    booltest(i,ic,o,oc) = checkbox("ProgramChange Bool IN (PC %i) (CHAN %ic) [midi:pgm %i %ic]") : hbargraph("ProgramChange Bool OUT (PC %o) (CHAN %oc) [midi:pgm %o %oc]", 0, 1);
+};
+
+// Channel Aftertourch tester (chanpress) : tester(midi in, midi out)
+chattester = vgroup("CHANNEL AFTERTOUCH (CHAT) IN/OUT",valuetest(50,51), booltest(100,101))
+with {
+    valuetest(i,o) = hslider("Note CHAT Value IN (Note %i) [midi:chanpress %i]", 60, 0, 127, 1) : hbargraph("Note CHAT Value OUT (Note %o) [midi:chanpress %o]", 0, 127);
+    booltest(i,o) = checkbox("Note CHAT Bool IN (Note %i) [midi:chanpress %i]") : hbargraph("Note CHAT Bool OUT (Note %o) [midi:chanpress %o]", 0, 1);
+};
+
+// Channel Aftertourch tester (chanpress) : tester(midi in, midi out)
+chatchantester = vgroup("CHANNEL AFTERTOUCH CHAN (CHAT) IN/OUT",valuetest(50,2,51,3), booltest(100,2,101,3))
+with {
+    valuetest(i,ic,o,oc) = hslider("Note CHAT Chan Value IN (Note %i) (Chan %ic) [midi:chanpress %i %ic]", 60, 0, 127, 1) : hbargraph("Note CHAT Value OUT (Note %o) (Chan %oc) [midi:chanpress %o %oc]", 0, 127);
+    booltest(i,ic,o,oc) = checkbox("Note CHAT Bool IN (Note %i) (Chan %ic) [midi:chanpress %i %ic]") : hbargraph("Note CHAT Bool OUT (Note %o) (Chan %oc) [midi:chanpress %o %oc]", 0, 1);
+};
+
+// Pitchwheel tester (pitchwheel) : tester(midi in, midi out)
+pitchwheeltester = vgroup("PITCHWHEEL IN/OUT",valuetest, booltest)
+with {
+    valuetest = hslider("Pitchwheel Value IN  [midi:pitchwheel]", 0, -8192, 8191, 1) : hbargraph("Pitchwheel Value OUT[midi:pitchwheel]", -8192, 8191);
+    booltest = checkbox("Pitchwheel Bool IN [midi:pitchwheel]") : hbargraph("Pitchwheel Bool OUT [midi:pitchwheel]", 0, 1);
+};
+
+// Pitchwheel Chan tester (pitchwheel) : tester(midi in, midi out)
+pitchwheelchantester = vgroup("PITCHWHEEL CHAN IN/OUT",valuetest(2, 15), booltest(2, 15))
+with {
+    valuetest(ic, oc) = hslider("Pitchwheel Value IN (Chan %ic) [midi:pitchwheel %ic]", 0, -8192, 8191, 1) : hbargraph("Pitchwheel Value OUT (Chan %oc)[midi:pitchwheel %oc]", -8192, 8191);
+    booltest(ic, oc) = checkbox("Pitchwheel Bool IN (Chan %ic) [midi:pitchwheel %ic]") : hbargraph("Pitchwheel Bool OUT (Chan %oc) [midi:pitchwheel %oc]", 0, 1);
+};

cyfaust/resources/libraries/examples/misc/mixer.dsp

@@ -0,0 +1,27 @@
+declare name      "mixer";
+declare version   "1.0";
+declare author    "Grame";
+declare license   "BSD";
+declare copyright "(c)GRAME 2006-2020";
+
+import("stdfaust.lib");
+
+//-------------------------------------------------
+// Simple 8x2 mixer
+//-------------------------------------------------
+
+vol = component("../dynamic/volume.dsp");
+pan = component("../spat/panpot.dsp");
+mute = *(1 - checkbox("mute")); 
+      
+vumeter(i, x) = attach(x, envelop(x) : vbargraph("chan %i[2][unit:dB]", -70, +5))
+with {
+    envelop = abs : max ~ -(1.0/ma.SR) : max(ba.db2linear(-70)) : ba.linear2db;
+};
+
+voice(v) = vgroup("Ch %v",  mute : hgroup("[2]", vol : vumeter(v)) : pan);
+stereo = hgroup("stereo out", (vol, vol : vgroup("L", vumeter(0)), vgroup("R", vumeter(1))));
+
+process = hgroup("mixer", par(i, 8, voice(i)) :> stereo);
+
+

cyfaust/resources/libraries/examples/misc/statespace.dsp

@@ -0,0 +1,39 @@
+declare name 		"statespace";
+declare version 	"1.0";
+declare author 		"JOS";
+declare license 	"MIT";
+declare copyright 	"(c) Julius O. Smith III, 2020";
+
+//-----------------------------------------------
+// General Linear State-Space Model Example
+//-----------------------------------------------
+
+import("stdfaust.lib");
+
+p = 2; // number of inputs
+q = 3; // number of outputs
+N = 5; // number of states
+
+A = matrix(N,N); // state transition matrix
+B = matrix(N,p); // input-to-states matrix
+C = matrix(q,N); // states-to-output matrix
+D = matrix(q,p); // direct-term matrix, bypassing state
+
+// ./matrix.dsp with M and N transposed to follow convention:
+matrix(M,N) = tgroup("Matrix: %M x %N", par(in, N, _)
+              <: par(out, M, mixer(N, out))) with {
+  fader(in) = ba.db2linear(vslider("Input %in", -10, -96, 4, 0.1));
+  mixer(N,out) = hgroup("Output %out", par(in, N, *(fader(in)) ) :> _ );
+};
+
+Bd = par(i,p,mem) : B; // input delay needed for conventional definition
+vsum(N) = si.bus(2*N) :> si.bus(N); // vector sum of two N-vectors
+
+// Illustrate nonzero initial state, following conventional definition:
+impulse = 1-1'; // For zero initial state, set impulse = 0 or simplify code
+x0 = par(i,N,i*impulse); // initial state = (0,1,2,3,...,N-1)
+
+system = si.bus(p) <: D, (Bd : vsum(N)~(A), x0 : vsum(N) : C) :> si.bus(q);
+
+process = system;
+

cyfaust/resources/libraries/examples/misc/switcher.dsp

@@ -0,0 +1,20 @@
+declare name        "switcher";
+declare version     "1.0";
+declare author      "Grame";
+declare license     "BSD";
+declare copyright   "(c)GRAME 2007";
+
+//-----------------------------------------------
+// Switch between two stereo sources. 
+// Useful to compare these two sources
+// The parameter c\in{0,1} indicates the 
+// channels to select
+//-----------------------------------------------
+
+switch(c,x0,x1,y0,y1) = sel(c,x0,y0), sel(c,x1,y1)
+                        with { 
+                            sel(c,x,y) = (1-c)*x + c*y; 
+                        };
+    
+process = switch(hslider("source 0 <-> source 1",0,0,1,1));
+

cyfaust/resources/libraries/examples/misc/tester.dsp

@@ -0,0 +1,32 @@
+declare name      "tester";
+declare version   "1.0";
+declare author    "Grame";
+declare license   "BSD";
+declare copyright "(c)GRAME 2006";
+
+//-----------------------------------------------
+// Tester : tests louspeakers
+// Send a test signal( sine, noise, pink) to one 
+// of 8 loudspeakers
+//-----------------------------------------------
+
+import("stdfaust.lib");
+
+// TODO: this should be rewritten with the pink noise function of noises.lib
+pink = f : (+ ~ g) with {
+    f(x) = 0.04957526213389*x - 0.06305581334498*x' + 0.01483220320740*x'';
+    g(x) = 1.80116083982126*x - 0.80257737639225*x';
+};
+
+// User interface
+//----------------
+vol  = hslider("[2] volume [unit:dB]", -96, -96, 0, 1): ba.db2linear : si.smoo;
+freq = hslider("[1] freq [unit:Hz]", 1000, 10, 20000, 1);
+dest = hslider("[3] destination", 0, 0, 8, 1);
+
+testsignal = os.osci(freq)*checkbox("sine wave")
+            + no.noise * checkbox("white noise")
+            + pink(no.noise) * ba.db2linear(20)  * checkbox("pink noise");
+
+process = vgroup("Audio Tester", testsignal*vol <: par(i, 8, *(dest==i)));
+

cyfaust/resources/libraries/examples/misc/tester2.dsp

@@ -0,0 +1,31 @@
+declare name      "tester2";
+declare version   "1.0";
+declare author    "Grame";
+declare license   "BSD";
+declare copyright "(c)GRAME 2014";
+
+//-----------------------------------------------
+// Stereo Audio Tester : send a test signal (sine, 
+// noise, pink) on a stereo channel
+//-----------------------------------------------
+
+import("stdfaust.lib");
+
+pink = f : (+ ~ g) with {
+    f(x) = 0.04957526213389*x - 0.06305581334498*x' + 0.01483220320740*x'';
+    g(x) = 1.80116083982126*x - 0.80257737639225*x';
+};
+
+// User interface
+//----------------
+transition(n) = \(old,new).(ba.if(old<new, min(old+1.0/n,new), max(old-1.0/n,new))) ~ _;
+
+vol  = hslider("[2] volume [unit:dB]", -96, -96, 0, 1): ba.db2linear : si.smoo;
+freq = hslider("[1] freq [unit:Hz][scale:log]", 440, 40, 20000, 1);
+wave = nentry("[3] signal [style:menu{'white noise':0;'pink noise':1;'sine':2}]", 0, 0, 2, 1) : int;
+dest = nentry("[4] channel [style:radio{'none':0;'left':1;'right':2;'both':3}]", 0, 0, 3, 1) : int;
+
+testsignal = no.noise, pink(no.noise), os.osci(freq): select3(wave);
+
+process = vgroup("Stereo Audio Tester", testsignal*vol <: par(i, 2, *((dest & (i+1)) != 0 : transition(4410))));
+

cyfaust/resources/libraries/examples/old/README.md

@@ -0,0 +1,5 @@
+This folder contains some of the old Faust examples that were using functions from libraries that are considered to not be "standard" anymore. It could be called the "legacy" folder :). Since old Faust libraries are sill implemented using a series `import` of the new libraries, all these files should still work!
+
+## Thoughts
+
+* Maybe the examples based on maxmsp.lib should be in a separate library 

cyfaust/resources/libraries/examples/old/freeverb.dsp

@@ -0,0 +1,109 @@
+// WARNING: freeverb has been reimplemented in reverbs.lib: this version is deprecated
+
+declare name        "freeverb";
+declare version     "1.0";
+declare author      "Grame";
+declare license     "BSD";
+declare copyright   "(c) GRAME 2006";
+declare reference   "https://ccrma.stanford.edu/~jos/pasp/Freeverb.html";
+
+//======================================================
+//
+//                      Freeverb
+//        Faster version using fixed delays (20% gain)
+//
+//======================================================
+
+// Constant Parameters
+//--------------------
+
+fixedgain   = 0.015; //value of the gain of fxctrl
+scalewet    = 3.0;
+scaledry    = 2.0;
+scaledamp   = 0.4;
+scaleroom   = 0.28;
+offsetroom  = 0.7;
+initialroom = 0.5;
+initialdamp = 0.5;
+initialwet  = 1.0/scalewet;
+initialdry  = 0;
+initialwidth= 1.0;
+initialmode = 0.0;
+freezemode  = 0.5;
+stereospread= 23;
+allpassfeed = 0.5; //feedback of the delays used in allpass filters
+
+
+// Filter Parameters
+//------------------
+
+combtuningL1    = 1116;
+combtuningL2    = 1188;
+combtuningL3    = 1277;
+combtuningL4    = 1356;
+combtuningL5    = 1422;
+combtuningL6    = 1491;
+combtuningL7    = 1557;
+combtuningL8    = 1617;
+
+allpasstuningL1 = 556;
+allpasstuningL2 = 441;
+allpasstuningL3 = 341;
+allpasstuningL4 = 225;
+
+
+// Control Sliders
+//--------------------
+// Damp : filters the high frequencies of the echoes (especially active for great values of RoomSize)
+// RoomSize : size of the reverberation room
+// Dry : original signal
+// Wet : reverberated signal
+
+dampSlider      = hslider("Damp",0.5, 0, 1, 0.025)*scaledamp;
+roomsizeSlider  = hslider("RoomSize", 0.9, 0, 1, 0.025)*scaleroom + offsetroom;
+wetSlider       = hslider("Wet", 0.9, 0, 1, 0.025);
+combfeed        = roomsizeSlider;
+
+
+// Comb and Allpass filters
+//-------------------------
+
+allpass(dt,fb) = (_,_ <: (*(fb),_:+:@(dt)), -) ~ _ : (!,_);
+
+comb(dt, fb, damp) = (+:@(dt)) ~ (*(1-damp) : (+ ~ *(damp)) : *(fb));
+
+
+// Reverb components
+//------------------
+
+monoReverb(fb1, fb2, damp, spread)
+    = _ <:  comb(combtuningL1+spread, fb1, damp),
+            comb(combtuningL2+spread, fb1, damp),
+            comb(combtuningL3+spread, fb1, damp),
+            comb(combtuningL4+spread, fb1, damp),
+            comb(combtuningL5+spread, fb1, damp),
+            comb(combtuningL6+spread, fb1, damp),
+            comb(combtuningL7+spread, fb1, damp),
+            comb(combtuningL8+spread, fb1, damp)
+        +>
+            allpass (allpasstuningL1+spread, fb2)
+        :   allpass (allpasstuningL2+spread, fb2)
+        :   allpass (allpasstuningL3+spread, fb2)
+        :   allpass (allpasstuningL4+spread, fb2)
+        ;
+
+stereoReverb(fb1, fb2, damp, spread)
+    = + <:  monoReverb(fb1, fb2, damp, 0), monoReverb(fb1, fb2, damp, spread);
+
+
+// fxctrl : add an input gain and a wet-dry control to a stereo FX
+//----------------------------------------------------------------
+
+fxctrl(g,w,Fx) =  _,_ <: (*(g),*(g) : Fx : *(w),*(w)), *(1-w), *(1-w) +> _,_;
+
+// Freeverb
+//---------
+
+freeverb = vgroup("Freeverb", fxctrl(fixedgain, wetSlider, stereoReverb(combfeed, allpassfeed, dampSlider, stereospread)));
+
+process = freeverb;

cyfaust/resources/libraries/examples/old/rewriting/Makefile

@@ -0,0 +1,21 @@
+
+dspsrc  := $(wildcard *.dsp)
+cppsrc  := $(dspsrc:.dsp=.cpp)
+plugins	:= $(dspsrc:%.dsp=%~.pd_linux)
+svg 	:= $(dspsrc:.dsp=-svg)
+xml 	:= $(dspsrc:.dsp=.dsp.xml)
+pd 	:= $(dspsrc:.dsp=.pd)
+
+all: $(plugins) $(svg)
+
+clean:
+	rm -Rf *~ $(cppsrc) $(plugins) $(svg) $(xml)
+
+%.cpp %.dsp.xml %-svg: %.dsp
+	faust -xml -svg -sd -a puredata.cpp $< -o $@
+
+%~.pd_linux: %.cpp
+	g++ -shared -fPIC -Dmydsp=$(@:%~.pd_linux=%) -o $@ $<
+
+%.pd: %.dsp.xml
+	faust2pd -s $<

cyfaust/resources/libraries/examples/old/rewriting/fact.dsp

@@ -0,0 +1,3 @@
+fact(0) = 1;
+fact(n) = n*fact(n-1);
+process = fact(10);