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/_TESTS/feedback_test.csd | 41 +++++++++++++++++++++++++++++++++++++++
 1 file changed, 41 insertions(+)
 create mode 100755 site/udo/_TESTS/feedback_test.csd

(limited to 'site/udo/_TESTS/feedback_test.csd')

diff --git a/site/udo/_TESTS/feedback_test.csd b/site/udo/_TESTS/feedback_test.csd
new file mode 100755
index 0000000..2049acb
--- /dev/null
+++ b/site/udo/_TESTS/feedback_test.csd
@@ -0,0 +1,41 @@
+<CsoundSynthesizer>
+<CsOptions>
+-odac
+;-+rtmidi=alsa -Q hw:1 -M hw:1 -odac 
+</CsOptions>
+<CsInstruments>
+sr = 48000
+ksmps= 1
+nchnls = 2
+0dbfs = 1
+seed 0
+
+#include "feedback.udo"
+
+instr 2
+	kp1[] init 9
+	kp2[] init 9
+	kdx = 0
+	while (kdx < lenarray(kp1)) do
+		if (random:k(0, 1) > 0.999) then
+			kp1[kdx] random 0, 0.9
+		endif
+		if (random:k(0, 1) > 0.999) then
+			kp2[kdx] random 0, 0.9
+		endif
+		kdx += 1
+	od
+
+	ao fbk_mixer2 kp1, kp2
+	outs ao, ao
+endin
+
+
+
+</CsInstruments>
+<CsScore>
+i2 0 3600
+
+
+</CsScore>
+</CsoundSynthesizer>
\ No newline at end of file
-- 
cgit v1.2.3