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/app/twist/_unlive/twist_fxtester.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/app/twist/_unlive/twist_fxtester.csd')
| -rw-r--r-- | site/app/twist/_unlive/twist_fxtester.csd | 101 |
1 files changed, 101 insertions, 0 deletions
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 |