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_test.csd | 125 ++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 125 insertions(+)
 create mode 100755 site/udo/scss/scss_test.csd

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

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