From 9fbf91db06a6d4f4b5cd8bb45389a731bb86bf22 Mon Sep 17 00:00:00 2001
From: Richard <q@1bpm.net>
Date: Sun, 13 Apr 2025 18:48:02 +0100
Subject: initial

---
 site/udo/twist/transforms/delay.udo | 72 +++++++++++++++++++++++++++++++++++++
 1 file changed, 72 insertions(+)
 create mode 100755 site/udo/twist/transforms/delay.udo

(limited to 'site/udo/twist/transforms/delay.udo')

diff --git a/site/udo/twist/transforms/delay.udo b/site/udo/twist/transforms/delay.udo
new file mode 100755
index 0000000..5d59612
--- /dev/null
+++ b/site/udo/twist/transforms/delay.udo
@@ -0,0 +1,72 @@
+#include "/twist/transform_api.udo"
+
+instr twst_tf_vdelay
+	$TWST_TRANSFORM
+	aL, aR, ileft, iright twst_getinput
+	kdelay = twst_param:k("delay") * 1000
+	kfeedback = twst_param:k("feedback")
+	adelay = a(kdelay)
+
+	if (ileft == 1) then
+		afbkL init 0
+		aLd vdelay3 aL + afbkL, adelay, 1000
+		afbkL = aLd * kfeedback
+		aL = aLd
+	endif
+	if (iright == 1) then
+		afbkR init 0
+		aRd vdelay3 aR + afbkR, adelay, 1000
+		afbkR = aRd * kfeedback
+		aR = aRd
+	endif
+	outs aL, aR
+endin
+
+instr twst_tf_flanger
+	$TWST_TRANSFORM
+	aL, aR, ileft, iright twst_getinput
+	kdelay = twst_param:k("delay")
+	kfeedback = twst_param:k("feedback")
+
+	adelay = a(kdelay)
+	if (ileft == 1) then
+		aL flanger aL, adelay, kfeedback
+	endif
+	if (iright == 1) then
+		aR flanger aR, adelay, kfeedback
+	endif
+	outs aL, aR
+endin
+
+instr twst_tf_phaser1
+	$TWST_TRANSFORM
+	aL, aR, ileft, iright twst_getinput
+	kfreq = twst_param:k("freq")
+	iord = twst_parami("order")
+	kfeedback = twst_param:k("feedback")
+	if (ileft == 1) then
+		aL phaser1 aL, kfreq, iord, kfeedback 
+	endif
+	if (iright == 1) then
+		aR phaser1 aR, kfreq, iord, kfeedback
+	endif
+	outs aL, aR
+endin
+
+instr twst_tf_phaser2
+	$TWST_TRANSFORM
+	aL, aR, ileft, iright twst_getinput
+	kfreq = twst_param:k("freq")
+	kq = twst_param:k("q")
+	iord = twst_parami("order")
+	imode = twst_parami("mode")
+	ksep = twst_param:k("sep")
+	kfeedback = twst_param:k("feedback")
+	if (ileft == 1) then
+		aL phaser2 aL, kfreq, kq, iord, imode, ksep, kfeedback
+	endif
+	if (iright == 1) then
+		aR phaser2 aR, kfreq, kq, iord, imode, ksep, kfeedback
+	endif
+	outs aL, aR
+endin
-- 
cgit v1.2.3