From 9fbf91db06a6d4f4b5cd8bb45389a731bb86bf22 Mon Sep 17 00:00:00 2001 From: Richard Date: Sun, 13 Apr 2025 18:48:02 +0100 Subject: initial --- site/udo/experimental.udo | 41 +++++++++++++++++++++++++++++++++++++++++ 1 file changed, 41 insertions(+) create mode 100755 site/udo/experimental.udo (limited to 'site/udo/experimental.udo') 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 -- cgit v1.2.3