aboutsummaryrefslogtreecommitdiff
path: root/examples/example2.csd
blob: 5fe23bd2fcb5ce95763ca48f18d7a9ad4494ed82 (plain)
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>