1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
|
<CsoundSynthesizer>
<CsOptions>
-odac
-m0
</CsOptions>
<CsInstruments>
/*
Debugger - Unfixed Bugs : BUG #9
http://git.1bpm.net/csd-unfixedbugs1/about/
By Richard Knight 2022, 2024
http://1bpm.net
q@1bpm.net
*/
sr = 44100
ksmps = 100
nchnls = 2
0dbfs = 1.1
seed 0
#define NOFILEIO ## ; file IO with readfi not supported on all platforms: disables bid_loadfile
#include "bussing.udo" ; global audio bussing
#include "bid.udo" ; Bug Infested Directive tools and parsing
#include "instruments.udo" ; sound generators
/*
Master audio output
*/
instr global_master
igain = 1
aL, aR bus_read "master"
aL limit aL*0.5, -1, 1
aR limit aR*0.5, -1, 1
outs aL * igain, aR * igain
endin
/*
Parse BID file and run the sequencer
*/
instr parseandrun
tt_notify "Parsing events"
#include "bid_source.udo"
bid_loadtext(SBID)
tt_notify "Running sequencer"
schedule "sequencer", 0, 3600
turnoff
endin
instr sequencer
isection = 2
schedule "bid_setcurrentchord", 0, 1, isection, 0
schedule "global_master", 0, p3
gksection bid_seq_all isection
endin
</CsInstruments>
<CsScore>
i"parseandrun" 0 1
</CsScore>
</CsoundSynthesizer>
|