From 6a8342a78bb65afbec9eac5693438a3107ff1dd3 Mon Sep 17 00:00:00 2001 From: Richard Date: Sun, 8 Jan 2023 01:06:40 +0000 Subject: BUG5 complete --- BUG5/BUG5.csd | 26 +++++++----- BUG5/bid_source.udo | 113 ++++++++++++++++++++++++++++++++++++++++++++++++--- BUG5/instruments.udo | 5 +++ 3 files changed, 129 insertions(+), 15 deletions(-) (limited to 'BUG5') 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 i"parseandrun" 0 1 - \ 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 -- cgit v1.2.3