From 9fbf91db06a6d4f4b5cd8bb45389a731bb86bf22 Mon Sep 17 00:00:00 2001
From: Richard <q@1bpm.net>
Date: Sun, 13 Apr 2025 18:48:02 +0100
Subject: initial

---
 site/udo/scss/scss_persistence_test.csd | 100 ++++++++++++++++++++++++++++++++
 1 file changed, 100 insertions(+)
 create mode 100755 site/udo/scss/scss_persistence_test.csd

(limited to 'site/udo/scss/scss_persistence_test.csd')

diff --git a/site/udo/scss/scss_persistence_test.csd b/site/udo/scss/scss_persistence_test.csd
new file mode 100755
index 0000000..372ba76
--- /dev/null
+++ b/site/udo/scss/scss_persistence_test.csd
@@ -0,0 +1,100 @@
+<CsoundSynthesizer>
+<CsOptions>
+-odac
+</CsOptions>
+<CsInstruments>
+sr = 48000
+ksmps = 64
+nchnls = 2
+0dbfs = 1
+seed 0
+
+#define SCSS_NAME #default#
+#include "scss/base.udo"
+
+
+
+
+icategory = scss_registercategory("sine", "play_sine1")
+
+scss_registerinstr(icategory, ({{
+	{
+		"name": "play_sine1",
+		"parameters": [
+			{"name": "frequency", "default": 440, "max": 880, "min": 220}
+		]
+	}
+}}))
+instr play_sine1
+	icategoryid = p4 ; just used by scss_seqparam(iparamnum)
+	itimeindex = p5
+
+	kamp line 0.2, p3, 0
+	a1 oscil kamp, chnget:i("play_sine1_frequency")
+	scss_catout(a1, a1)
+endin
+
+
+scss_registerinstr(icategory, ({{
+	{
+		"name": "play_sine2",
+		"parameters": [
+			{"name": "frequency", "default": 4400, "max": 8800, "min": 220}
+		]
+	}
+}}))
+instr play_sine2
+	kamp line 0, p3, 0.2
+	a1 oscil kamp, 880
+	scss_catout(a1, a1)
+endin
+
+
+icategory = scss_registercategory("bass", "play_bass1")
+
+
+scss_registerinstr(icategory, ({{
+	{
+		"name": "play_bass1",
+		"parameters": [
+			{"name": "wobble", "default": 0.5, "max": 1, "min": 0.1}
+		]
+	}
+}}))
+instr play_bass1
+	kamp line 0.2, p3, 0
+	a1 oscil kamp, 220
+	scss_catout(a1, a1)
+endin
+
+
+scss_registerinstr(icategory, ({{
+	{
+		"name": "play_bass2"
+	}
+}}))
+instr play_bass2
+	kamp line 0.2, p3, 0
+	a1 oscil kamp, 110
+	scss_catout(a1, a1)
+endin
+
+
+
+instr 1
+	;Squery = {{select f_savejsontest('{"ass":1}')}}
+	;prints Squery
+	;dbexec gidb, Squery
+	;schedule("scss_savestate_db", 0, 1, 123, "test")
+	;iJp1 = scss_getstate(1,1,1,1,1)
+	;Sd1 = jsondumps(iJp1)
+	;prints Sd1
+	schedule("scss_savestate_db", 0, 1)
+endin
+
+</CsInstruments>
+<CsScore>
+i1 0.1 1
+
+</CsScore>
+</CsoundSynthesizer>
\ No newline at end of file
-- 
cgit v1.2.3