1 files changed, 41 insertions, 0 deletions
diff --git a/site/udo/experimental.udo b/site/udo/experimental.udo
new file mode 100755
index 0000000..71a9d88
--- /dev/null
+++ b/site/udo/experimental.udo
@@ -0,0 +1,41 @@
+#ifndef UDO_EXPERIMENTAL
+#define UDO_EXPERIMENTAL ##
+
+/*
+	Experimental tonal balance of two signals
+
+	aoutput balancetonal ain, aincomparator
+
+	aoutput			balanced signal
+	ain 			signal to apply changes to
+	aincomparator	signal to 'extract' frequency contour from
+*/
+opcode balancetonal, a, aa
+	ain, ainc xin
+	aouts[] init 16
+
+	aouts[0] balance butterbp(ain, 100, 200), butterbp(ainc, 100, 200) ; 0 - 200
+	aouts[1] balance butterbp(ain, 400, 400), butterbp(ainc, 400, 400) ; 200 - 600
+	aouts[2] balance butterbp(ain, 800, 400), butterbp(ainc, 800, 400) ; 600 - 1000
+	aouts[3] balance butterbp(ain, 1200, 400), butterbp(ainc, 1200, 400) ; 1000 - 1400
+	aouts[4] balance butterbp(ain, 1700, 600), butterbp(ainc, 1700, 600) ; 1400 - 2000
+	aouts[5] balance butterbp(ain, 2400, 800), butterbp(ainc, 2400, 800) ; 2000 - 2800
+	aouts[6] balance butterbp(ain, 3200, 800), butterbp(ainc, 3200, 800) ; 2800 - 3600
+	aouts[7] balance butterbp(ain, 4200, 1200), butterbp(ainc, 4200, 1200) ; 3600 - 4800
+	aouts[8] balance butterbp(ain, 5400, 1200), butterbp(ainc, 5400, 1200) ; 4800 - 6000
+	aouts[9] balance butterbp(ain, 7000, 2000), butterbp(ainc, 7000, 2000) ; 6000 - 8000
+	aouts[10] balance butterbp(ain, 9000, 2000), butterbp(ainc, 9000, 2000) ; 8000 - 10000
+	aouts[11] balance butterbp(ain, 11000, 2000), butterbp(ainc, 11000, 2000) ; 10000 - 12000
+	aouts[12] balance butterbp(ain, 14000, 4000), butterbp(ainc, 14000, 4000) ; 12000 - 16000
+	aouts[13] balance butterbp(ain, 18000, 4000), butterbp(ainc, 18000, 4000) ; 16000 - 20000
+	aouts[14] balance butterhp(ain, 20000), butterhp(ainc, 20000)
+
+	aout sumarray aouts
+	xout aout
+endop
+
+
+
+
+
+#end