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
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
|
/*
csound-json example 2
merge objects, play score based on contents
*/
<CsoundSynthesizer>
<CsLicence>
Released into the public domain under the Unlicense license
http://unlicense.org/
</CsLicence>
<CsOptions>
-d
-m0
</CsOptions>
<CsInstruments>
sr = 44100
ksmps = 64
nchnls = 2
0dbfs = 1
; base JSON string
gSjson = {{
{
"instruments": {
"oscil1": [
[0, 2, 440],
[2, 4, 880],
[4, 2, 220]
],
"oscil2": [
[6, 2, 330],
[8, 2, 660]
]
},
"details": {
"createdby": "Richard Knight",
"createdon": "2022-09-02"
}
}
}}
instr boot
; load the string and the supplementary file
iJbase jsonloads gSjson
iJsupplement jsonload "supplement.json"
; get the instruments objects and merge them
iJinstrs1 jsonget iJbase, "instruments"
iJinstrs2 jsonget iJsupplement, "instruments"
jsonmerge iJinstrs1, iJinstrs2, 1
; get keys of the resulting instruments
Skeys[] jsonkeys iJinstrs1
; loop through the keys
indexi = 0
while (indexi < lenarray(Skeys)) do
Sinstrument = Skeys[indexi]
; get the relevant instrument object
iJscore jsonget iJinstrs1, Sinstrument
; score items are retrieved as handles to JSON arrays, in a Csound array
iJscorelines[] jsonarr iJscore
; loop through each of the JSON arrays
indexs = 0
while (indexs < lenarray(iJscorelines)) do
; get the JSON array values and format/call the scoreline accordingly
isc[] jsonarrval iJscorelines[indexs]
Scoreline = sprintf("i\"%s\" %d %d %d\n", Sinstrument, isc[0], isc[1], isc[2])
prints Scoreline
scoreline_i Scoreline
indexs += 1
od
indexi += 1
od
endin
/*
The sound producting instruments to be called
*/
instr oscil1
ifreq = p4
kamp linseg 1, p3*0.7, 1, p3*0.3, 0
aout oscil kamp, ifreq, 1
outs aout, aout
endin
instr oscil2
ifreq = p4
kamp linseg 1, p3*0.7, 1, p3*0.3, 0
aout oscil kamp, ifreq, 2
outs aout, aout
endin
instr oscil3
ifreq = p4
kamp linseg 1, p3*0.7, 1, p3*0.3, 0
aout oscil kamp, ifreq, 3
outs aout, aout
endin
</CsInstruments>
<CsScore>
f1 0 16384 10 1 ; Sine
f2 0 16384 10 1 0.5 0.3 0.25 0.2 0.167 0.14 0.125 .111 ; Sawtooth
f3 0 16384 10 1 0 0.3 0 0.2 0 0.14 0 .111 ; Square
f0 15
i"boot" 0 1
</CsScore>
</CsoundSynthesizer>
|