From 45e1250eb7c8425f646a51b8fe65c08d149608f0 Mon Sep 17 00:00:00 2001
From: dxinteractive <dxinteractive@gmail.com>
Date: Thu, 5 Dec 2024 02:42:30 +1100
Subject: [PATCH] alc proto

---
 .../dsp-definitions/45-alchemist-prototype.ts | 36 +++++++++++++++++++
 dev/src/dsp-definitions/all.ts                |  2 ++
 2 files changed, 38 insertions(+)
 create mode 100644 dev/src/dsp-definitions/45-alchemist-prototype.ts

diff --git a/dev/src/dsp-definitions/45-alchemist-prototype.ts b/dev/src/dsp-definitions/45-alchemist-prototype.ts
new file mode 100644
index 0000000..233540f
--- /dev/null
+++ b/dev/src/dsp-definitions/45-alchemist-prototype.ts
@@ -0,0 +1,36 @@
+import type { DspDefinition } from "../types";
+
+const dsp = `
+import("stdfaust.lib");
+
+// synth
+
+tune1 = waveform{48,-1,47,-1,40,-1,43,-1};
+tune2 = waveform{24,-1,-1,-1,28,-1,-1,-1};
+tunePlayer(tune) = tuneGate,tuneFreq
+with {
+    tuneNow = tune,int(os.phasor(8,0.2)) : rdtable;
+    tuneGate = tuneNow > 0 : ba.sAndH(tuneNow != 0) : en.adsre(0.01,2.0,0.2,1.0);
+    tuneFreq = tuneNow : ba.sAndH(tuneNow > 0);
+};
+synth(gate) = ba.midikey2hz : os.triangle : *(gate) : *(0.2);
+input1 = tunePlayer(tune1) : synth;
+input2 = tunePlayer(tune2) : synth;
+
+// fx
+
+channel1 = input1 <: _,_; // : _,de.fdelay(ma.SR, ma.SR * 0.59);
+channel2 = input2 <: _,_;
+
+process = channel1, channel2 :> _,_;
+`;
+
+const dspDefinition: DspDefinition = {
+  id: "alchemist-prototype",
+  name: "alchemist prototype",
+  description: "Makes a live tune and puts through alchemist prototype",
+  dsp,
+  type: "live",
+};
+
+export default dspDefinition;
diff --git a/dev/src/dsp-definitions/all.ts b/dev/src/dsp-definitions/all.ts
index 77d1f77..06cecea 100644
--- a/dev/src/dsp-definitions/all.ts
+++ b/dev/src/dsp-definitions/all.ts
@@ -44,6 +44,7 @@ import autosampler2 from "./41-autosampler-2";
 import multibandFilter from "./42-multiband-filter";
 import c4BlopsLive from "./43-c4-blops-live";
 import c4Blops from "./44-c4-blops";
+import alchemistPrototype from "./45-alchemist-prototype";
 
 export const all: DspDefinition[] = [
   sineWave,
@@ -90,4 +91,5 @@ export const all: DspDefinition[] = [
   multibandFilter,
   c4BlopsLive,
   c4Blops,
+  alchemistPrototype,
 ];