From 194676e190b827c6b12318213261d4e47ec7e6aa Mon Sep 17 00:00:00 2001
From: Vee9ahd1 <>
Date: Tue, 11 May 2021 15:29:40 -0400
Subject: initial commit

---
 loquelic_vo.dsp | 30 ++++++++++++++++++++++++++++++
 1 file changed, 30 insertions(+)
 create mode 100644 loquelic_vo.dsp

(limited to 'loquelic_vo.dsp')

diff --git a/loquelic_vo.dsp b/loquelic_vo.dsp
new file mode 100644
index 0000000..7687932
--- /dev/null
+++ b/loquelic_vo.dsp
@@ -0,0 +1,30 @@
+import("stdfaust.lib");
+import("src/util.dsp");
+
+UIGroupOscA(x) = hgroup("Oscillator A", x);
+UIFreqA = UIGroupOscA(vslider("Frequency", 440.0, 20.0, 10000.0, 1));
+UIFoldGain = UIGroupOscA(vslider("Fold", 1.0, 0.0, 5.0, 0.01));
+UIMorph = UIGroupOscA(vslider("Morph", 0.5, 0.0, 1.0, 0.001));
+
+UIGroupOscB(x) = hgroup("Oscillator B", x);
+UIFreqB = UIGroupOscB(vslider("Frequency", 440.0, 20.0, 10000.0, 1));
+UIDecay = UIGroupOscB(vslider("Decay", 0.0, 0.0, 1.0, 0.01));
+
+UIMod = vslider("Modulation", 0.0, 0.0, 1.0, 0.001);
+
+process = oscA * oscB
+with {
+  oscB = UIFreqA
+         : phase
+         : *(-UIDecay*10.0)
+         : exp;
+
+  oscA = UIFreqB
+         : phase
+         : +(oscB*UIMod)
+         : fmod(_,1.0)
+         : knee(UIMorph)
+         : sin(_*2.0*ma.PI)
+         : *(UIFoldGain)
+         : fold;
+};
-- 
cgit v1.2.1