-odac 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 */ i"boot" 0 10