From 9fbf91db06a6d4f4b5cd8bb45389a731bb86bf22 Mon Sep 17 00:00:00 2001 From: Richard Date: Sun, 13 Apr 2025 18:48:02 +0100 Subject: initial --- site/udo/delays.udo | 42 ++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 42 insertions(+) create mode 100755 site/udo/delays.udo (limited to 'site/udo/delays.udo') diff --git a/site/udo/delays.udo b/site/udo/delays.udo new file mode 100755 index 0000000..948e3cb --- /dev/null +++ b/site/udo/delays.udo @@ -0,0 +1,42 @@ +#ifndef UDO_DELAYS +#define UDO_DELAYS ## +/* + Delay lines + + This file is part of the SONICS UDO collection by Richard Knight 2021 + License: GPL-2.0-or-later + http://1bpm.net +*/ + + +/* + Multitap delay with random oscillated repitching and feedback + aout delay_wild ain, imindelay, imaxdelay + + aout delayed signal + ain input signal + imindelay minimum delay time + imaxdelay maximum delay time +*/ +opcode delay_wild, a, aoo + ain, imindelay, imaxdelay xin + if (imindelay == 0) then + imindelay = 0.2 + endif + if (imaxdelay == 0) then + imaxdelay = 0.6 + endif + adb delayr imaxdelay + ad1 deltap abs(oscili:k(random:i(imindelay, imaxdelay), random:i(0.01, 0.2))) + ad2 deltap abs(oscili:k(random:i(imindelay, imaxdelay), random:i(0.01, 0.2))) + delayw ain + (ad1 * random:i(0.1, 0.3)) + (ad2 * random:i(0.1, 0.3)) + + adb delayr imaxdelay + ad3 deltap abs(oscili:k(random:i(imindelay, imaxdelay), random:i(0.01, 0.2))) + ad4 deltap abs(oscili:k(random:i(imindelay, imaxdelay), random:i(0.01, 0.2))) + delayw ad2 + (ad3 * random:i(0, 0.3)) + (ad4 * random:i(0, 0.3)) + xout ad3+ad4 +endop + + +#end \ No newline at end of file -- cgit v1.2.3