diff options
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 |