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_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_test.csd')
| -rwxr-xr-x | site/udo/scss/scss_test.csd | 125 |
1 files changed, 125 insertions, 0 deletions
diff --git a/site/udo/scss/scss_test.csd b/site/udo/scss/scss_test.csd new file mode 100755 index 0000000..72a3bd2 --- /dev/null +++ b/site/udo/scss/scss_test.csd @@ -0,0 +1,125 @@ +<CsoundSynthesizer>
+<CsOptions>
+-odac
+-m0
+-M0
+</CsOptions>
+<CsInstruments>
+sr = 48000
+ksmps = 64
+nchnls = 2
+0dbfs = 1
+seed 0
+
+#include "wavetables.udo"
+
+#define SCSS_MIDI ##
+
+
+#define SCSS_BOOT_INSTRUMENT #run_shit#
+#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, gifnSquare
+ 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 run_shit
+ prints "run shit\n"
+ index1 = 0
+ while (index1 < lenarray(giscss_stfn_trig, 1)) do
+ index2 = 0
+ while (index2 < lenarray(giscss_stfn_trig, 2)) do
+ seq_randtable giscss_stfn_trig[index1][index2]
+ seq_randtable giscss_stfn_dur[index1][index2]
+ index2 += 1
+ od
+ index1 += 1
+ od
+
+
+ prints "OK then\n\n\n"
+endin
+
+instr test_change1
+ prints "change 1\n"
+ kval line 120, p3, 160
+ chnset kval, "scss_bpm"
+endin
+
+
+instr test_change2
+ prints "change 2\n"
+ kval line 160, p3, 100
+ chnset kval, "scss_bpm"
+endin
+
+
+
+</CsInstruments>
+<CsScore>
+f0 z
+</CsScore>
+</CsoundSynthesizer>
\ No newline at end of file |