diff options
| author | Richard Knight <q@1bpm.net> | 2021-10-29 22:32:21 +0100 |
|---|---|---|
| committer | Richard Knight <q@1bpm.net> | 2021-10-29 22:32:21 +0100 |
| commit | c4b96cdd87738e9f0cba695904d2d484b4335e7f (patch) | |
| tree | 111cf121905aa3d7a317bd96b5e7db0f2a8aac6e /BUG3/effects.udo | |
| download | csd-unfixedbugs1-c4b96cdd87738e9f0cba695904d2d484b4335e7f.tar.gz csd-unfixedbugs1-c4b96cdd87738e9f0cba695904d2d484b4335e7f.tar.bz2 csd-unfixedbugs1-c4b96cdd87738e9f0cba695904d2d484b4335e7f.zip | |
initial
Diffstat (limited to 'BUG3/effects.udo')
| -rw-r--r-- | BUG3/effects.udo | 28 |
1 files changed, 28 insertions, 0 deletions
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 |