diff options
| author | Richard <richard@1bpm.net> | 2025-02-28 02:08:19 +0000 |
|---|---|---|
| committer | Richard <richard@1bpm.net> | 2025-02-28 02:08:19 +0000 |
| commit | 0f09f0882ed87bea9ff3e745c73f5d4743854fbb (patch) | |
| tree | 62d04024200a4942ce4e012227822fdaae6a2e25 /BUG7/BUG7.csd | |
| parent | 6a8342a78bb65afbec9eac5693438a3107ff1dd3 (diff) | |
| download | csd-unfixedbugs1-0f09f0882ed87bea9ff3e745c73f5d4743854fbb.tar.gz csd-unfixedbugs1-0f09f0882ed87bea9ff3e745c73f5d4743854fbb.tar.bz2 csd-unfixedbugs1-0f09f0882ed87bea9ff3e745c73f5d4743854fbb.zip | |
Diffstat (limited to 'BUG7/BUG7.csd')
| -rw-r--r-- | BUG7/BUG7.csd | 48 |
1 files changed, 19 insertions, 29 deletions
diff --git a/BUG7/BUG7.csd b/BUG7/BUG7.csd index 9e52133..98be65b 100644 --- a/BUG7/BUG7.csd +++ b/BUG7/BUG7.csd @@ -29,9 +29,8 @@ 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 #include "src_vox.udo" #include "oprepare.udo" ; offline preparation system @@ -123,25 +122,6 @@ instr global_master endin -/* - Print notification of performance time since last notification - or if isection is -1, print completion notification -*/ -gitimetrack times -instr notify_change - isection = p4 - itime times - if (isection == -1) then - tt_notify(sprintf"Complete, runtime: %s", tt_parsetime(itime))) - exitnow - else - isectiontime = itime - gitimetrack - tt_notify(sprintf("%s : section %d complete in %s", tt_parsetime(itime), isection, tt_parsetime(isectiontime))) - gitimetrack = itime - endif - turnoff -endin - /* Initialise the performance: run offline preparation and then call parseandrun @@ -162,18 +142,28 @@ instr parseandrun bid_loadtext(SBID) tt_notify("Running sequencer") - event_i "i", "sequencer", 0, 3600 + schedule "sequencer", 0, 3600 turnoff endin -instr endfade - exitnow -endin - - instr sequencer isection = 1 + + schedule "bid_setcurrentchord", 0, 1, isection, 0 + schedule "global_master", 0, p3 + schedule "global_delay1", 0, p3 + schedule "global_delay2", 0, p3 + gksection bid_seq_all isection + + if (isection == 1) then + schedule "play_stringchord", 0, tab_i(1, gibid_sectionlengths)*gibid_beattime, 1, 1 + endif +endin + +/* +instr sequencer_old + isection = 1 event_i "i", "bid_setcurrentchord", 0, 1, isection, 0 event_i "i", "global_master", 0, p3 event_i "i", "global_delay1", 0, p3 @@ -214,7 +204,7 @@ instr sequencer if (kposabs+1 < ksection16ths) then kposabs += 1 else - event "i","notify_change", 0, 1, ksection + event "i", "notify_change", 0, 1, ksection ;event "i", "play_crash", 0, gibid_beattime*4 ksection += 1 kposchord = 0 @@ -233,8 +223,8 @@ instr sequencer endif - endin +*/ </CsInstruments> <CsScore> |