From 1d055261b4144dbf86b2658437015b15d4dd9bff Mon Sep 17 00:00:00 2001
From: Richard <q@1bpm.net>
Date: Sun, 4 Sep 2022 00:32:56 +0100
Subject: initial

---
 examples/example2.csd | 120 ++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 120 insertions(+)
 create mode 100644 examples/example2.csd

(limited to 'examples/example2.csd')

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
-- 
cgit v1.2.3