From 69d812698d8b6b4e963d49d0953ebeca05fa6500 Mon Sep 17 00:00:00 2001
From: Richard <q@1bpm.net>
Date: Tue, 9 Nov 2021 21:10:12 +0000
Subject: BUG4 finished

---
 BUG3/BUG3.csd        |  5 ++++-
 BUG3/bid.udo         |  6 +-----
 BUG3/instruments.udo | 10 +++++++---
 3 files changed, 12 insertions(+), 9 deletions(-)

(limited to 'BUG3')

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
-- 
cgit v1.2.3