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/app/twist/_unlive/twist_fxtester.csd | 101 ++++++++++++++++++++++++++++++
 1 file changed, 101 insertions(+)
 create mode 100644 site/app/twist/_unlive/twist_fxtester.csd

(limited to 'site/app/twist/_unlive/twist_fxtester.csd')

diff --git a/site/app/twist/_unlive/twist_fxtester.csd b/site/app/twist/_unlive/twist_fxtester.csd
new file mode 100644
index 0000000..9f12cb7
--- /dev/null
+++ b/site/app/twist/_unlive/twist_fxtester.csd
@@ -0,0 +1,101 @@
+<CsoundSynthesizer>
+<CsOptions>
+-odac
+</CsOptions>
+<CsInstruments>
+sr = 44100
+ksmps = 64
+nchnls = 2
+0dbfs = 1
+seed 0
+
+#include "/twist/twist.udo"
+
+gStransform = "twst_tf_fftpitchscale";, "twst_tf_morph"
+SchanSet[] fillarray "timescale", "pitchscale", "winsize", "randwin", "overlap", "wintype", "shift", "amp", "freq", "fftsize", "otinstchan", "instanceindex", "otinststart", "otinstend", "pvresmode", "time", "scale", "formants"
+ichanset[] fillarray 1.5, 1, 4410, 441, 4, 0, 900, 0, 1, 512, -1, 1, 0, 1, 0, 0.4, 2, 0
+index = 0
+while (index < lenarray(ichanset)) do
+	chnset ichanset[index], sprintf("%s_%s", gStransform, SchanSet[index])
+	index += 1
+od
+
+
+gSfile1 = "d:/temp/kord.wav"
+gSfile2 = "d:/temp/drive.wav"
+
+instr load1
+	gitwst_instanceindex = 0
+	schedule("twst_loadfile", 0, 1, 0, gSfile1)
+endin
+
+instr load2
+	gitwst_instanceindex = 1
+	schedule("twst_loadfile", 0, 1, 0, gSfile2)
+endin
+
+instr boot
+	schedule("load1", 0, 1)
+	schedule("load2", 1, 1)
+	schedule("audition", 2, 2)
+endin
+
+instr apply
+	schedule("twst_commit", 0, -1, 0, 0, 1, -1, gStransform, 0, 0, 0)
+	turnoff
+endin
+
+instr playback
+	schedule("twst_audition", 0, p3, 0, 0, 1, -1, "", 0)
+	turnoff
+endin
+
+instr audition
+	gitwst_instanceindex = 0
+	schedule("twst_audition", 0, p3, 0, 0, 1, -1, gStransform, 0)
+	turnoff
+endin
+
+
+/*
+gStransform = "twst_tf_freqshift1" 
+gStransform = "twst_tfi_sndwarp"
+
+SchanSet[] fillarray "timescale", "pitchscale", "winsize", "randwin", "overlap", "wintype", "shift"
+ichanset[] fillarray 1.5, 1, 4410, 441, 4, 0, 900
+index = 0
+while (index < lenarray(ichanset)) do
+	chnset ichanset[index], sprintf("%s_%s", gStransform, SchanSet[index])
+	index += 1
+od
+
+
+gSfile = "d:/temp/sinetest.wav"
+
+instr boot
+	schedule("twst_loadfile", 0, 1, 0, gSfile)
+	schedule("audition", 1, 2)
+	schedule("apply", 3, 1)
+	schedule("playback", 4, 2)
+endin
+
+instr apply
+	schedule("twst_commit", 0, -1, 0, 0, 1, -1, gStransform, 0, 0, 0)
+	turnoff
+endin
+
+instr playback
+	schedule("twst_audition", 0, p3, 0, 0, 1, -1, "", 0)
+	turnoff
+endin
+
+instr audition
+	schedule("twst_audition", 0, p3, 0, 0, 1, -1, gStransform, 0)
+	turnoff
+endin
+*/
+</CsInstruments>
+<CsScore>
+i"boot" 0 10
+</CsScore>
+</CsoundSynthesizer>
\ No newline at end of file
-- 
cgit v1.2.3