From c4b96cdd87738e9f0cba695904d2d484b4335e7f Mon Sep 17 00:00:00 2001
From: Richard Knight <q@1bpm.net>
Date: Fri, 29 Oct 2021 22:32:21 +0100
Subject: initial

---
 BUG3/effects.udo | 28 ++++++++++++++++++++++++++++
 1 file changed, 28 insertions(+)
 create mode 100644 BUG3/effects.udo

(limited to 'BUG3/effects.udo')

diff --git a/BUG3/effects.udo b/BUG3/effects.udo
new file mode 100644
index 0000000..40d9c80
--- /dev/null
+++ b/BUG3/effects.udo
@@ -0,0 +1,28 @@
+#ifndef UDO_EFFECTS
+#define UDO_EFFECTS ##
+
+opcode ensembleChorus, aa, akkkkiip
+	ain, kdelay, kdpth, kmin, kmax, inumvoice, iwave, icount xin
+	incr = 1/(inumvoice)
+
+	if (icount == inumvoice) goto out
+		ainl, ainr ensembleChorus ain, kdelay, kdpth, kmin, kmax, inumvoice, iwave, icount + 1
+
+out:
+
+max:
+	imax = i(kmax)
+	if (kmax != imax) then 
+	reinit max
+	endif
+
+	iratemax unirand imax
+	rireturn
+	alfo oscil kdpth, iratemax + kmin, iwave
+	adel vdelay3 ain/(inumvoice * .5), (kdelay + alfo) * 1000, 1000
+	al = ainl + adel * incr * icount
+	ar = ainr + adel * (1 - incr * icount)
+	xout al, ar
+endop
+
+#end
-- 
cgit v1.2.3