diff options
Diffstat (limited to 'examples/example2.csd')
| -rw-r--r-- | examples/example2.csd | 120 |
1 files changed, 120 insertions, 0 deletions
diff --git a/examples/example2.csd b/examples/example2.csd new file mode 100644 index 0000000..fd03ec3 --- /dev/null +++ b/examples/example2.csd @@ -0,0 +1,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 jsongetval iJbase, "instruments" + iJinstrs2 jsongetval 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 jsongetval 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>
\ No newline at end of file |