BUG5 completeHEADmaster

3 files changed, 129 insertions, 15 deletions

diff --git a/BUG5/BUG5.csd b/BUG5/BUG5.csd
index 7d45739..1522800 100644
--- a/BUG5/BUG5.csd
+++ b/BUG5/BUG5.csd
@@ -9,14 +9,14 @@
 	
 	http://git.1bpm.net/csd-unfixedbugs1/about/
 
-	By Richard Knight 2022
+	By Richard Knight 2022, 2023
 		http://1bpm.net
 		q@1bpm.net
 
 */
 
 sr = 44100
-ksmps = 10
+ksmps = 64
 nchnls = 2
 0dbfs = 1
 seed 0
@@ -24,13 +24,13 @@ 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
+gkmastergain init 1			; master gain
+gkpump = 0					; kick ducking control
 gksection init -1
 
 #include "wavetables.udo"	; general waveforms
 #include "bussing.udo"		; global audio bussing
-#include "bid.udo"		; Bug Infested Directive tools and parsing
+#include "bid.udo"			; Bug Infested Directive tools and parsing
 #include "instruments.udo"	; sound generators
 #include "txt_tools.udo"	; text tools
 
@@ -68,12 +68,21 @@ endin
 instr global_master
 	igain = 1
 	aL, aR bus_read "master"
-	itime6 = tab_i(1, gibid_sectionlengths)*gibid_beattime
+	itime6 = tab_i(5, gibid_sectionlengths)*gibid_beattime
+	itime8 = tab_i(7, gibid_sectionlengths)*gibid_beattime
+	itime10 = tab_i(9, gibid_sectionlengths)*gibid_beattime
 	if (gksection == 6) then
 		khpf linseg 5, itime6*0.5, 10, itime6*0.3, 100, itime6*0.2, 500
 		klpf linseg 22050, itime6*0.5, 22050, itime6*0.3, 10000, itime6*0.2, 1000
 		aL butterhp butterlp(aL, klpf), khpf
 		aR butterhp butterlp(aR, klpf), khpf
+	elseif (gksection == 8) then
+		khpf linseg 5, itime6*0.5, 5, itime6*0.2, 100, itime6*0.2, 500, itime6*0.2, 2000
+		aL butterhp aL, khpf
+		aR butterhp aL, khpf
+	elseif (gksection == 10) then
+		ksnarevol linseg 0, itime10*0.5, 0.2, itime10*0.5, 1
+		chnset ksnarevol, "snarevol"
 	endif
 
 	aL limit aL*0.5, -1, 1
@@ -154,15 +163,12 @@ instr sequencer
 		else
 			kposchord = 0
 			event "i", "bid_setcurrentchord", 0, 1, ksection, 1
-		endif
-		
-
+		endif		
 	endif
 endin
 
 </CsInstruments>
 <CsScore>
 i"parseandrun" 0 1
-
 </CsScore>
 </CsoundSynthesizer>
\ No newline at end of file
diff --git a/BUG5/bid_source.udo b/BUG5/bid_source.udo
index 7052e2e..b63ec38 100644
--- a/BUG5/bid_source.udo
+++ b/BUG5/bid_source.udo
@@ -45,6 +45,13 @@ s 4, 8, 3
 s 5, 32, 2
 s 6, 32, 2
 s 7, 32, 1
+s 8, 32, 1
+s 9, 32, 2
+s 10, 32, 2
+s 11, 64, 1
+s 12, 64, 1
+s 13, 64, 1
+s 14, 32, 1
 
 
 
@@ -66,7 +73,13 @@ i stringchord, 7
   0, 0, 0, 0, 0, 0, 0, 0, 0, 0,.6, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
   1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,.6, 1, 1, 1, 1, 1, 1, 1, 1
   1,.6, 1,.6, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,.8, 0,.7, 1,.6, 1, 1, 1, 1, 1, 1
-
+i stringchord, 8, 7
+i stringchord, 9, -1
+i stringchord, 10, -1
+i stringchord, 11, -1
+i strinchord, 12, 7
+i stringchord, 13, -1
+i stringchord, 14, -1
 
 i chord1, 1, -1
 i chord1, 2
@@ -80,6 +93,13 @@ i chord1, 4, 2
 i chord1, 5, 2
 i chord1, 6, 2
 i chord1, 7, -1
+i chord1, 8, -1
+i chord1, 9, 2
+i chord1, 10, 2
+i chord1, 11, 2
+i chord1, 12, 3
+i chord1, 13, -1
+i chord1, 14, -1
 
 
 i clap, 1, -1
@@ -104,6 +124,18 @@ i clap, 7
   0, 0, 0, 0,.1, 0, 0, 0, 0, 0, 0, 0,.1, 0, 0, 0, 0, 0, 0, 0,.1, 1, 0, 0, 0, 0, 0, 0,.2, 0, 0, 1
   1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1
   1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1
+i clap, 8, 7
+i clap, 9, -1
+i clap, 10
+  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0
+  0, 0, 0, 0,.1, 0, 0, 0, 0, 0, 0, 0,.1, 0, 0, 0, 0, 0, 0, 0,.1, 1, 0, 0, 0, 0, 0, 0,.2, 0, 0, 1
+  1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1
+  1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1
+i clap, 11, 2
+i clap, 12, 2
+i clap, 13, 2
+i clap, 14, 2
+
 
 i snare, 1
 ; 1  -  -  -  2  -  -  -  3  -  -  -  4  -  -  -  5  -  -  -  6  -  -  -  7  -  -  -  8  -  -  -
@@ -127,6 +159,18 @@ i snare, 7
   1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1
   1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1
   1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1
+i snare, 8, 7
+i snare, 9, -1
+i snare, 10
+  1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1
+  1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1
+  1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1
+  1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1
+i snare, 11, 2
+i snare, 12, 3
+i snare, 13, -1
+i snare, 14, -1
+
 
 i hat1, 1
 ; 1  -  -  -  2  -  -  -  3  -  -  -  4  -  -  -  5  -  -  -  6  -  -  -  7  -  -  -  8  -  -  -
@@ -150,6 +194,14 @@ i hat1, 7
  .1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1
  .4,.4,.4,.4,.4,.4,.4,.4,.4,.4,.4,.4,.4,.4,.4,.4,.4,.4,.4,.4,.4,.4,.4,.4,.4,.4,.4,.4,.4,.4,.4,.4
   1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1
+i hat1, 8, 7
+i hat1, 9, -1
+i hat1, 10, -1
+i hat1, 11, 2
+i hat1, 12, 5
+i hat1, 13, 5
+i hat1, 14, 2
+
 
 i hat2, 1, -1
 i hat2, 2
@@ -173,7 +225,13 @@ i hat2, 7
  .1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1,.1
   1, 1, 1, 1, 1, 1, 1, 1, 1,.8, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,.8, 1,.8, 1, 1, 1, 1, 1, 1
   1, 1, 1, 1, 1, 1, 1, 1, 1,.5, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,.5, 1,.5, 1, 1, 1, 1, 1, 1
-
+i hat2, 8, 7
+i hat2, 9, -1
+i hat2, 10, -1
+i hat2, 11, 2
+i hat2, 12, 5
+i hat2, 13, -1
+i hat2, 14, -1
 
 i mel1, 1
 ; 1  -  -  -  2  -  -  -  3  -  -  -  4  -  -  -  5  -  -  -  6  -  -  -  7  -  -  -  8  -  -  -
@@ -200,8 +258,13 @@ i mel1, 7
  .2,.2,.2,.2,.2,.2, 2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2
   1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1
   1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1
-
-
+i mel1, 8, 7
+i mel1, 9, -1
+i mel1, 10, 4
+i mel1, 11, 2
+i mel1, 12, 3
+i mel1, 13, -1
+i mel1, 14, -1
 
 i 303, 1, -1
 i 303, 2, -1
@@ -223,7 +286,17 @@ i 303, 7
  .2,.2,.2,.2,.2,.2, 2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.6
   1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1
   1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1
-
+i 303, 8, 7
+i 303, 9
+  0, 0, 1, 0, 0, 0, 0, 1, 1, 0, 0, 1, 0, 0, 0, 0, 1, 0, 1, 0, 0, 0, 1, 0, 1, 1, 0, 1, 0, 1, 1, 1
+ .2,.2, 1,.2,.2,.2, 2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.5,.2,.5,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.6
+  1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1
+  1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1
+i 303, 10, 9
+i 303, 11, 2
+i 303, 12, 3
+i 303, 13, 3
+i 303, 14, -1
 
 
 i 303b, 1, -1
@@ -237,6 +310,17 @@ i 303b, 5
   1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1
 i 303b, 6, 5
 i 303b, 7, -1
+i 303b, 8, -1
+i 303b, 9
+  1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
+  2,.2,.2,.2,.2,.2,.2,.2,.2,.2, 2,.2,.2,.2,.2,.2,.2,.2,.2,.2, 1,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2,.2
+  1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1
+  1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1
+i 303b, 10, 9
+i 303b, 11, -1
+i 303b, 12, 5
+i 303b, 13, 5
+i 303b, 14, -1
 
 i bass, 1, -1
 i bass, 2
@@ -265,6 +349,18 @@ i bass, 7
  .5,.5,.3,.5,.5,.5,.3,.5,.5,.5,.3,.5,.5,.5,.3,.5,.5,.5,.3,.5,.5,.5,.3,.5,.5,.5,.3,.5,.5,.5,.3,.5
   1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1
   1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1
+i bass, 8, 7
+i bass, 9
+; 1  -  -  -  2  -  -  -  3  -  -  -  4  -  -  -  5  -  -  -  6  -  -  -  7  -  -  -  8  -  -  -
+  1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
+  2,.5,.3,.5,.5,.5,.3,.5,.5,.5,.3,.5,.5,.5,.3,.5,.5,.5,.3,.5,.5,.5,.3,.5,.5,.5,.3,.5,.5,.5,.3,.5
+  1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1
+  1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1
+i bass, 10, 9
+i bass, 11, 2
+i bass, 12, 4
+i bass, 13, -1
+i bass, 14, -1
 
 i kick, 1
 ; 1  -  -  -  2  -  -  -  3  -  -  -  4  -  -  -  5  -  -  -  6  -  -  -  7  -  -  -  8  -  -  -
@@ -283,4 +379,11 @@ i kick, 4
 i kick, 5, 1
 i kick, 6, 1
 i kick, 7, 1
+i kick, 8, 1
+i kick, 9, -1
+i kick, 10, -1
+i kick, 11, 1
+i kick, 12, 1
+i kick, 13, 1
+i kick, 14, 1
 }}
diff --git a/BUG5/instruments.udo b/BUG5/instruments.udo
index 356d775..eaa4be5 100644
--- a/BUG5/instruments.udo
+++ b/BUG5/instruments.udo
@@ -131,6 +131,11 @@ instr play_snare
 	a0 = a0 * aenv1
 	a0 butterhp a0, 210
 	aout = a0*iamp
+
+	isection = i(gksection)
+	if (isection == 10) then
+		aout *= chnget:k("snarevol")
+	endif
 	bus_mix("master", aout, aout)
 
 endin