diff options
| author | Richard <q@1bpm.net> | 2025-04-13 18:48:02 +0100 |
|---|---|---|
| committer | Richard <q@1bpm.net> | 2025-04-13 18:48:02 +0100 |
| commit | 9fbf91db06a6d4f4b5cd8bb45389a731bb86bf22 (patch) | |
| tree | 291bd79ce340e67affa755a8a6b4f6a83cce93ea /site/udo/scss/scss_persistence_test.csd | |
| download | apps.csound.1bpm.net-9fbf91db06a6d4f4b5cd8bb45389a731bb86bf22.tar.gz apps.csound.1bpm.net-9fbf91db06a6d4f4b5cd8bb45389a731bb86bf22.tar.bz2 apps.csound.1bpm.net-9fbf91db06a6d4f4b5cd8bb45389a731bb86bf22.zip | |
initial
Diffstat (limited to 'site/udo/scss/scss_persistence_test.csd')
| -rwxr-xr-x | site/udo/scss/scss_persistence_test.csd | 100 |
1 files changed, 100 insertions, 0 deletions
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 |