diff options
Diffstat (limited to 'BUG5/BUG5.csd')
| -rw-r--r-- | BUG5/BUG5.csd | 26 |
1 files changed, 16 insertions, 10 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 |