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/reverb.udo | 80 ++++++++++++++++++++++++++++++++++++
 1 file changed, 80 insertions(+)
 create mode 100755 site/udo/twist/transforms/reverb.udo

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

diff --git a/site/udo/twist/transforms/reverb.udo b/site/udo/twist/transforms/reverb.udo
new file mode 100755
index 0000000..e6f66ec
--- /dev/null
+++ b/site/udo/twist/transforms/reverb.udo
@@ -0,0 +1,80 @@
+#include "/twist/transform_api.udo"
+
+instr twst_tf_reverb1
+	$TWST_TRANSFORM
+	aL, aR, ileft, iright twst_getinput
+	ktime = twst_param:k("time")
+	if (ileft == 1) then
+		aL reverb aL, ktime
+	endif
+	if (iright == 1) then
+		aR reverb aR, ktime
+	endif
+	outs aL, aR
+endin
+
+instr twst_tf_reverb2
+	$TWST_TRANSFORM
+	aL, aR, ileft, iright twst_getinput
+	ktime = twst_param:k("time")
+	khfdamp = twst_param:k("hfdamp")
+	if (ileft == 1) then
+		aL nreverb aL, ktime, khfdamp
+	endif
+	if (iright == 1) then
+		aR nreverb aR, ktime, khfdamp
+	endif
+	outs aL, aR
+endin
+
+instr twst_tf_reverb3
+	$TWST_TRANSFORM
+	aL, aR, ileft, iright twst_getinput
+	kroomsize = twst_param:k("roomsize")
+	khfdamp = twst_param:k("hfdamp")
+	if (ileft != 1) then
+		aL noise 0.001, 0.5
+	endif
+	if (iright != 1) then
+		aR noise 0.001, 0.5
+	endif
+	aL, aR freeverb aL, aR, kroomsize, khfdamp
+	outs aL, aR
+endin
+
+instr twst_tf_reverb4
+	$TWST_TRANSFORM
+	aL, aR, ileft, iright twst_getinput
+	kfeedback = twst_param:k("feedback")
+	khfdamp = twst_param:k("hfdamp") * (sr / 2)
+	ipitchmod = twst_parami("pitchmod")
+	if (ileft != 1) then
+		aL noise 0.001, 0.5
+	endif
+	if (iright != 1) then
+		aR noise 0.001, 0.5
+	endif
+	aL, aR reverbsc aL, aR, kfeedback, khfdamp, sr, ipitchmod
+	outs aL, aR
+endin
+
+
+instr twst_tf_reverb5
+	$TWST_TRANSFORM
+	aL, aR, ileft, iright twst_getinput
+	iwidth = twst_parami("width")
+	idepth = twst_parami("depth")
+	iheight = twst_parami("height")
+	kposx = twst_param:k("posx") * iwidth
+	kposy = twst_param:k("posy") * idepth
+	kposz = twst_param:k("posz") * iheight
+	if (ileft == 1 && iright == 1) then
+		ainput = (aL + aR) * 0.5
+	elseif (ileft != 1) then
+		ainput = aR
+	else
+		ainput = aL
+	endif
+	aL, aR babo ainput, kposx, kposy, kposz, iwidth, idepth, iheight
+	outs aL, aR
+endin
-- 
cgit v1.2.3