aboutsummaryrefslogtreecommitdiff
path: root/BUG3
diff options
context:
space:
mode:
Diffstat (limited to 'BUG3')
-rw-r--r--BUG3/BUG3.csd5
-rw-r--r--BUG3/bid.udo6
-rw-r--r--BUG3/instruments.udo10
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