Create opf.dsp

LucaSpanedda · Apr 16, 2024 · 4a690fd · 4a690fd
1 parent d83be7d
commit 4a690fd
Showing 1 changed file with 14 additions and 0 deletions.
diff --git a/files/opf.dsp b/files/opf.dsp
@@ -0,0 +1,14 @@
+// import Standard Faust library
+// https://github.com/grame-cncm/faustlibraries/
+import("stdfaust.lib");
+
+// (G)  = give amplitude 1-0 (open-close) for the lowpass cut
+// (CF) = Frequency Cut in HZ
+OPF(CF,x) = OPFFBcircuit ~ _ 
+    with{
+        g(x) = x / (1.0 + x);
+        G = tan(CF * ma.PI / ma.SR):g;
+        OPFFBcircuit(y) = x*G+(y*(1-G));
+        };
+
+process = OPF(20000) <: si.bus(2);