diff options
Diffstat (limited to 'BUG3')
| -rw-r--r-- | BUG3/BUG3.csd | 5 | ||||
| -rw-r--r-- | BUG3/bid.udo | 6 | ||||
| -rw-r--r-- | BUG3/instruments.udo | 10 |
3 files changed, 12 insertions, 9 deletions
diff --git a/BUG3/BUG3.csd b/BUG3/BUG3.csd index 3496201..2902a67 100644 --- a/BUG3/BUG3.csd +++ b/BUG3/BUG3.csd @@ -20,6 +20,7 @@ nchnls = 2 seed 0 #define NOFILEIO ## ; file IO with readfi not supported on all platforms: disables bid_loadfile +;#define CPUSAVER ## ; improve CPU performance by degrading aesthetic performance gkmastergain init 1 ; master gain gkpump = 0 ; kick ducking control @@ -96,9 +97,11 @@ endin Global send effects: reverb */ instr global_reverb +#ifndef CPUSAVER aL, aR bus_read "reverb" - ;aL, aR freeverb aL, aR, 0.4, 0.3 + aL, aR freeverb aL, aR, 0.4, 0.3 bus_mix("master", aL, aR) +#endif endin diff --git a/BUG3/bid.udo b/BUG3/bid.udo index b26750e..61891b3 100644 --- a/BUG3/bid.udo +++ b/BUG3/bid.udo @@ -364,11 +364,7 @@ opcode bid_loadfile, 0, S tt_notify(sprintf("Directive file cannot be found: '%s'", Sfile)) exitnow endif - iparameter = -1 - isection = -1 - ichordnum = -1 - isectiondataindex = -1 - imode = -1 + idata[] fillarray -1, -1, -1, -1, -1 read: Sline, ilinenum readfi Sfile Sline = tt_stripnewline(Sline) diff --git a/BUG3/instruments.udo b/BUG3/instruments.udo index 195e3eb..d8e384d 100644 --- a/BUG3/instruments.udo +++ b/BUG3/instruments.udo @@ -146,7 +146,11 @@ instr chord2 a1 fmbell 0.2*iamp, cpsmidinn(inote+12), 1, 3, 0.05, 10, gifnSine, gifnSquare, gifnSine, gifnSquare, gifnSine a1 butterhp a1, 700 kenv linseg 0, p3*0.5, 1, p3*0.4, 1, p3*0.1, 0 - aL, aR ensembleChorus a1*9*kenv, .07, .003, .75, 1, 12, gifnSine + ivoices = 12 +#ifdef CPUSAVER + ivoices = 4 +#endif + aL, aR ensembleChorus a1*9*kenv, .07, .003, .75, 1, ivoices, gifnSine aL pareq aL, 1000, 0.4, 0.6 aR pareq aR, 1000, 0.4, 0.6 bus_mix("reverb", aL*0.2, aR*0.2) @@ -313,11 +317,11 @@ instr play_clap909 aR butterbp aR, 1200, 1100 aL butterhp aL, 400 aR butterhp aR, 400 - irevsend = 0.2 + irevsend = 0.15 if (ilowpass == 1) then aL butterlp aL, 900 aR butterlp aR, 900 - irevsend = 0.6 + irevsend = 0.4 endif kamp1 linseg 1, p3*0.1, 0, p3*0.1, 1, p3*0.2, 0.1, p3*0.3, 0.5, p3*0.2, 0, p3*0.05, 0.4, p3*0.05, 0 kamp2 linseg 1, p3*0.15, 0, p3*0.15, 1, p3*0.1, 0.1, p3*0.2, 0.5, p3*0.3, 0, p3*0.05, 0.4, p3*0.05, 0 |