aboutsummaryrefslogtreecommitdiff
path: root/BUG5
diff options
context:
space:
mode:
authorRichard <richard@1bpm.net>2023-01-08 01:06:40 +0000
committerRichard <richard@1bpm.net>2023-01-08 01:06:40 +0000
commit6a8342a78bb65afbec9eac5693438a3107ff1dd3 (patch)
tree30b8cfb88d0544d089a78c776d214158d3642ab8 /BUG5
parentc4b6599d5995a00c85237f35d4f496b786fd7be1 (diff)
downloadcsd-unfixedbugs1-6a8342a78bb65afbec9eac5693438a3107ff1dd3.tar.gz
csd-unfixedbugs1-6a8342a78bb65afbec9eac5693438a3107ff1dd3.tar.bz2
csd-unfixedbugs1-6a8342a78bb65afbec9eac5693438a3107ff1dd3.zip
BUG5 completeHEADmaster
Diffstat (limited to 'BUG5')
-rw-r--r--BUG5/BUG5.csd26
-rw-r--r--BUG5/bid_source.udo113
-rw-r--r--BUG5/instruments.udo5
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