initial

1 files changed, 642 insertions, 0 deletions

diff --git a/site/udo/twist/transforms/spectral.udo b/site/udo/twist/transforms/spectral.udo
new file mode 100755
index 0000000..b5f2fab
--- /dev/null
+++ b/site/udo/twist/transforms/spectral.udo
@@ -0,0 +1,642 @@
+#include "/twist/transform_api.udo"

+#include "/pvs_tabproc.udo"

+#include "/spectral_transforms.udo"

+#include "/fx_autoglitch.udo"

+#include "/host_platform.udo"

+#include "/addsub.udo"

+

+instr twst_tf_tpvinvert

+	$TWST_TRANSFORM

+	setksmps(64)

+	fL, fR, aL, aR, ileft, iright twst_getfinput

+	kinvertamp = twst_param:k("invertamp")

+	kinvertfreq = twst_param:k("invertfreq")

+

+	if (ileft == 1) then

+		kreadyL, itpvdataL tpv_anal fL

+		tpv_invert kreadyL, itpvdataL, kinvertamp, kinvertfreq

+		fL tpv_resynth itpvdataL, fL

+		aL twst_tf_fresynth fL

+	endif

+	if (iright == 1) then

+		kreadyR, itpvdataR tpv_anal fR

+		tpv_invert kreadyR, itpvdataR, kinvertamp, kinvertfreq

+		fR tpv_resynth itpvdataR, fR

+		aR twst_tf_fresynth fR

+	endif

+	outs aL, aR

+endin

+

+

+instr twst_tf_tpvbubble

+	$TWST_TRANSFORM

+	setksmps(64)

+	fL, fR, aL, aR, ileft, iright twst_getfinput

+	kchance = twst_param:k("chance")

+	kstereounique = twst_param:k("stereounique")

+

+	if (ileft == 1) then

+		kreadyL, itpvdataL tpv_anal fL

+		tpv_bubble kreadyL, itpvdataL, kchance, kstereounique

+		fL tpv_resynth itpvdataL, fL

+		aL twst_tf_fresynth fL

+	endif

+	if (iright == 1) then

+		kreadyR, itpvdataR tpv_anal fR

+		tpv_bubble kreadyR, itpvdataR, kchance, kstereounique

+		fR tpv_resynth itpvdataR, fR

+		aR twst_tf_fresynth fR

+	endif

+	outs aL, aR

+endin

+

+instr twst_tf_tpvsmear

+	$TWST_TRANSFORM

+	setksmps(64)

+	fL, fR, aL, aR, ileft, iright twst_getfinput

+	imaxframes = twst_parami("maxframes")

+	kframes = twst_param:k("frames")

+	kavgfreqs = twst_param:k("avgfreqs")

+	kincludeoriginal = twst_param:k("includeoriginal")

+

+	if (ileft == 1) then

+		kreadyL, itpvdataL tpv_anal fL

+		tpv_smear kreadyL, itpvdataL, imaxframes, kframes, kavgfreqs, kincludeoriginal

+		fL tpv_resynth itpvdataL, fL

+		aL twst_tf_fresynth fL

+	endif

+	if (iright == 1) then

+		kreadyR, itpvdataR tpv_anal fR

+		tpv_smear kreadyR, itpvdataR, imaxframes, kframes, kavgfreqs, kincludeoriginal

+		fR tpv_resynth itpvdataR, fR

+		aR twst_tf_fresynth fR

+	endif

+	outs aL, aR

+endin

+

+

+instr twst_tf_tpvscramble

+	$TWST_TRANSFORM

+	setksmps(64)

+	fL, fR, aL, aR, ileft, iright twst_getfinput

+	kstep = twst_param:k("step")

+	kdoamp = twst_param:k("scrambleamp")

+	kdofreq = twst_param:k("scramblefreq")

+

+	if (ileft == 1) then

+		kreadyL, itpvdataL tpv_anal fL

+		tpv_scramble kreadyL, itpvdataL, kstep, kdoamp, kdofreq

+		fL tpv_resynth itpvdataL, fL

+		aL twst_tf_fresynth fL

+	endif

+	if (iright == 1) then

+		kreadyR, itpvdataR tpv_anal fR

+		tpv_scramble kreadyR, itpvdataR, kstep, kdoamp, kdofreq

+		fR tpv_resynth itpvdataR, fR

+		aR twst_tf_fresynth fR

+	endif

+	outs aL, aR

+endin

+

+instr twst_tf_tpvthreshold

+	$TWST_TRANSFORM

+	setksmps(64)

+	fL, fR, aL, aR, ileft, iright twst_getfinput

+	kthreshold = twst_param:k("threshold")

+	kdirection = twst_param:k("direction")

+

+	if (ileft == 1) then

+		kreadyL, itpvdataL tpv_anal fL

+		tpv_threshold kreadyL, itpvdataL, kthreshold, kdirection

+		fL tpv_resynth itpvdataL, fL

+		aL twst_tf_fresynth fL

+	endif

+	if (iright == 1) then

+		kreadyR, itpvdataR tpv_anal fR

+		tpv_threshold kreadyR, itpvdataR, kthreshold, kdirection

+		fR tpv_resynth itpvdataR, fR

+		aR twst_tf_fresynth fR

+	endif

+	outs aL, aR

+endin

+

+instr twst_tf_tpvfreeze

+	$TWST_TRANSFORM

+	setksmps(64)

+	fL, fR, aL, aR, ileft, iright twst_getfinput

+	kfreeze = twst_param:k("freeze")

+	kfreezeamp = twst_param:k("freezeamp")

+	kfreezefreq = twst_param:k("freezefreq")

+	kcrossfade = twst_param:k("crossfade")

+

+	if (ileft == 1) then

+		kreadyL, itpvdataL tpv_anal fL

+		tpv_freeze1 kreadyL, itpvdataL, kfreeze, kfreezeamp, kfreezefreq, kcrossfade

+		fL tpv_resynth itpvdataL, fL

+		aL twst_tf_fresynth fL

+	endif

+	if (iright == 1) then

+		kreadyR, itpvdataR tpv_anal fR

+		tpv_freeze1 kreadyR, itpvdataR, kfreeze, kfreezeamp, kfreezefreq, kcrossfade

+		fR tpv_resynth itpvdataR, fR

+		aR twst_tf_fresynth fR

+	endif

+	outs aL, aR

+endin

+

+instr twst_tf_tpvwrap

+	$TWST_TRANSFORM

+	setksmps(64)

+	fL, fR, aL, aR, ileft, iright twst_getfinput

+	kwrapampbin = twst_param:k("wrapampbin")

+	kwrapfreqbin = twst_param:k("wrapfreqbin")

+	

+	if (ileft == 1) then

+		i_, inumbins, i_, i_ pvsinfo fL

+		kreadyL, itpvdataL tpv_anal fL

+		tpv_wrap kreadyL, itpvdataL, kwrapampbin * inumbins, kwrapfreqbin * inumbins

+		fL tpv_resynth itpvdataL, fL

+		aL twst_tf_fresynth fL

+	endif

+	if (iright == 1) then

+		i_, inumbins, i_, i_ pvsinfo fR

+		kreadyR, itpvdataR tpv_anal fR

+		tpv_wrap kreadyR, itpvdataR, kwrapampbin * inumbins, kwrapfreqbin * inumbins

+		fR tpv_resynth itpvdataR, fR

+		aR twst_tf_fresynth fR

+	endif

+	outs aL, aR

+endin

+

+instr twst_tf_tpvswap

+	$TWST_TRANSFORM

+	setksmps(64)

+	fL, fR, aL, aR, ileft, iright twst_getfinput

+	kampStart = twst_param:k("ampstart")

+	kampLength = twst_param:k("amplength")

+	kampTarget = twst_param:k("amptarget")

+	kfreqStart = twst_param:k("freqstart")

+	kfreqLength = twst_param:k("freqlength")

+	kfreqTarget = twst_param:k("freqtarget")

+	kwrapmode = twst_param:k("wrapmode")

+	

+	if (ileft == 1) then

+		i_, inumbins, i_, i_ pvsinfo fL

+		kreadyL, itpvdataL tpv_anal fL

+		tpv_swap kreadyL, itpvdataL, kampStart * inumbins, kampLength * inumbins, kampTarget * inumbins, kfreqStart * inumbins, kfreqLength * inumbins, kfreqTarget * inumbins, kwrapmode

+		fL tpv_resynth itpvdataL, fL

+		aL twst_tf_fresynth fL

+	endif

+	if (iright == 1) then

+		i_, inumbins, i_, i_ pvsinfo fR

+		kreadyR, itpvdataR tpv_anal fR

+		tpv_swap kreadyR, itpvdataR, kampStart * inumbins, kampLength * inumbins, kampTarget * inumbins, kfreqStart * inumbins, kfreqLength * inumbins, kfreqTarget * inumbins, kwrapmode

+		fR tpv_resynth itpvdataR, fR

+		aR twst_tf_fresynth fR

+	endif

+	outs aL, aR

+endin

+

+instr twst_tf_tpvaverage

+	$TWST_TRANSFORM

+	setksmps(64)

+	fL, fR, aL, aR, ileft, iright twst_getfinput

+	kmax = twst_param:k("maxframes")

+	kavgamp = twst_param:k("avgamp")

+	kavgfreq = twst_param:k("avgfreq")

+	krate = twst_param:k("rate")

+

+	ktrig metro krate

+

+	if (ileft == 1) then

+		kreadyL, itpvdataL tpv_anal fL

+		tpv_average kreadyL, itpvdataL, kmax, kavgamp, kavgfreq, ktrig

+		fL tpv_resynth itpvdataL, fL

+		aL twst_tf_fresynth fL

+	endif

+	if (iright == 1) then

+		kreadyR, itpvdataR tpv_anal fR

+		tpv_average kreadyR, itpvdataR, kmax, kavgamp, kavgfreq, ktrig

+		fR tpv_resynth itpvdataR, fR

+		aR twst_tf_fresynth fR

+	endif

+	outs aL, aR

+endin

+

+

+/*

+instr twst_tf_stencil

+	$TWST_TRANSFORM

+	Spvx = strcat(host_tempdir(), "twist_stencil.pvx")

+	ifftsize = twst_parami("fftsize")

+	kran init 0

+	ktimek timeinstk

+	if (ktimek == 1) then

+		ifnL, ifnR, istart, ilen, ileft, iright twst_getcrossdata

+		ikcycles = round(ilen / kr)

+		kcount = 1

+		while (kcount < ikcycles) do

+			aLo, aRo, ileft, iright twst_getcrossinput

+			if (ileft == 1 && iright == 1) then

+				ain = (aLo + aRo) * 0.5

+			elseif (ileft == 1) then

+				ain = aLo

+			elseif (iright == 1) then

+				ain = aRo

+			endif

+			f1 pvsanal ain, ifftsize, ifftsize/4, ifftsize, 1

+			pvsfwrite f1, Spvx

+			kcount += 1

+		od

+

+	elseif (ktimek == 1) then		

+		schedulek("_twst_tf_stencilplayback", 0, p3, p4, Spvx) ; TODO : won't work offline

+	endif

+

+	aL, aR bus_read "stencilplayback"

+	kreleasing init 0

+	if (kreleasing == 0 && release:k() == 1) then

+		turnoff2 "_twst_tf_stencilplayback", 0, 1

+		kreleasing = 1

+	endif

+

+	outs aL, aR

+endin

+

+instr _twst_tf_stencilplayback

+	$TWST_TRANSFORM

+	Spvx = strget(p5)

+	fL, fR, aL, aR, ileft, iright twst_getfinput

+	ifftsize = twst_parami("fftsize")

+	kgain = twst_param:k("gain")

+	klevel = twst_param:k("level")

+

+	ifn ftgentmp 0, 0, (ifftsize * 2) + 1, 43, Spvx, 1

+

+	if (ileft == 1) then

+		fpsL pvstencil fL, kgain, klevel, ifn

+		aL twst_tf_fresynth fpsL

+	endif

+	if (iright == 1) then

+		fpsR pvstencil fR, kgain, klevel, ifn

+		aR twst_tf_fresynth fpsR

+	endif

+	bus_mix("stencilplayback", aL, aR)

+endin

+*/

+

+instr twst_tf_spectralshift

+	$TWST_TRANSFORM

+	fL, fR, aL, aR, ileft, iright twst_getfinput

+	kfreqincr = twst_param:k("freqincr")

+	kporttime = twst_param:k("porttime")

+	kfreqscale = twst_tf_pitchscale()

+	istart = twst_parami("start")

+	iend = twst_parami("end")

+	ifn = twst_tf_getwaveform()

+	

+	if (ileft == 1) then

+		aL spc_shift fL, kfreqincr, istart, iend, kfreqscale, kporttime, ifn

+	endif

+	if (iright == 1) then

+		aR spc_shift fR, kfreqincr, istart, iend, kfreqscale, kporttime, ifn

+	endif

+	outs aL, aR

+endin

+

+instr twst_tf_spectraldelay

+	$TWST_TRANSFORM

+	fL, fR, aL, aR, ileft, iright twst_getfinput

+	kdeltime = twst_param:k("time")

+	kdeladd = twst_param:k("add")

+	kporttime = twst_param:k("porttime")

+	kfreqscale = twst_tf_pitchscale()

+	istart = twst_parami("start")

+	iend = twst_parami("end")

+	ifn = twst_tf_getwaveform()

+	

+	if (ileft == 1) then

+		aL spc_delay fL, kdeltime, kdeladd, istart, iend, kfreqscale, kporttime, ifn

+	endif

+	if (iright == 1) then

+		aR spc_delay fR, kdeltime, kdeladd, istart, iend, kfreqscale, kporttime, ifn

+	endif

+	outs aL, aR

+endin

+

+instr twst_tf_spectralgate

+	$TWST_TRANSFORM

+	fL, fR, aL, aR, ileft, iright twst_getfinput

+	kthresh = twst_param:k("threshold")

+	khold = twst_param:k("hold")

+	kporttime = twst_param:k("porttime")

+	kfreqscale = twst_tf_pitchscale()

+	istart = twst_parami("start")

+	iend = twst_parami("end")

+	ifn = twst_tf_getwaveform()

+	

+	if (ileft == 1) then

+		aL spc_gate fL, kthresh, khold, istart, iend, kfreqscale, kporttime, ifn

+	endif

+	if (iright == 1) then

+		aR spc_gate fR, kthresh, khold, istart, iend, kfreqscale, kporttime, ifn

+	endif

+	outs aL, aR

+endin

+

+instr twst_tfi_spectralgrain1

+	$TWST_TRANSFORM

+	ileft, iright, istartsamp, iendsamp, idocut, ilength twst_tf_getstate

+	ifnL, ifnR twst_tfi_getfn

+	

+	ireadmode = twst_parami("readmode")

+	if (ireadmode == 0) then

+		ktime linseg 0, p3, ilength

+	elseif (ireadmode == 1) then

+		ktime = twst_param:k("readtime")

+		twst_tf_setplayposition ktime

+		ktime *= ilength

+	elseif (ireadmode == 2) then

+		itimescale = twst_parami("timescale")

+		p3 = ilength * itimescale

+		ktime linseg 0, p3, ilength

+	elseif (ireadmode == 3) then

+		ktime linseg ilength, p3, 0

+	endif

+

+	kgraindur = twst_param:k("graindur")

+	ifftsize = twst_parami("fftsize")

+	ilayers = twst_parami("layers")

+	kporttime = twst_param:k("porttime")

+	kfreqscale = twst_tf_pitchscale()

+	kfreqrand = twst_param:k("freqrand")

+	kdurrand = twst_param:k("durrand")

+	kpitchrand = twst_param:k("pitchrand")

+	istart = twst_parami("start")

+	iend = twst_parami("end")

+	ifn = twst_tf_getwaveform()

+	twst_setlatencysamples(ifftsize)

+

+	if (ileft == 1) then

+		aL spc_grain1 ifnL, ktime, kgraindur, ifftsize, ilayers, istart, iend, kfreqscale, kfreqrand, kdurrand, kpitchrand, kporttime, ifn

+	endif

+	if (iright == 1) then

+		aR spc_grain1 ifnR, ktime, kgraindur, ifftsize, ilayers, istart, iend, kfreqscale, kfreqrand, kdurrand, kpitchrand, kporttime, ifn

+	endif

+	outs aL, aR

+endin

+

+instr twst_tf_spectralread

+	$TWST_TRANSFORM

+	ileft, iright, istartsamp, iendsamp, idocut, ilength twst_tf_getstate

+	ifftsize = twst_parami("fftsize")

+	ktime = twst_param:k("readtime") * ilength

+	twst_tf_setplayposition ktime

+	twst_setlatencysamples(ifftsize)

+	

+	ktimek timeinstk

+	ilensamps = iendsamp - istartsamp

+	ikcycles = ilength * kr

+	kcount init 0

+	if (ktimek == 1) then

+		while (kcount < ikcycles) do

+			apos linseg 0, ilength, iendsamp

+			if (ileft == 1 && iright == 1) then

+				aL table3 apos, gitwst_bufferL[gitwst_instanceindex]

+				aR table3 apos, gitwst_bufferR[gitwst_instanceindex]

+				asig = (aL + aR) * 0.5

+			elseif (ileft == 1) then

+				asig table3 apos, gitwst_bufferL[gitwst_instanceindex]

+			elseif (iright == 1) then

+				asig table3 apos, gitwst_bufferR[gitwst_instanceindex]

+			endif

+			fsig pvsanal asig, ifftsize, ifftsize/4, ifftsize, 1

+			ipbuf, k_ pvsbuffer fsig, ilength

+			kcount += 1

+		od

+	else

+		if (ileft == 1) then

+			fL pvsbufread ktime, ipbuf

+			aL twst_tf_fresynth fL

+		endif

+		if (iright == 1) then

+			fR pvsbufread ktime, ipbuf

+			aR twst_tf_fresynth fR

+		endif

+	endif

+	outs aL, aR

+endin

+

+instr twst_tf_centroidoscillator

+	$TWST_TRANSFORM

+	fL, fR, aL, aR, ileft, iright twst_getfinput

+	kporttime = twst_param:k("porttime")

+	kfreqscale = twst_tf_pitchscale()

+	kfn twst_tf_getwaveformk

+

+	if (ileft == 1) then

+		kcent pvscent fL

+		kfreq portk kcent * kfreqscale, kporttime

+		aL oscilikt 1, kfreq, kfn

+	endif

+	if (iright == 1) then

+		kcent pvscent fR

+		kfreq portk kcent * kfreqscale, kporttime

+		aR oscilikt 1, kfreq, kfn

+	endif

+	outs aL, aR

+endin

+

+instr twst_tf_binoscillator

+	$TWST_TRANSFORM

+	fL, fR, aL, aR, ileft, iright twst_getfinput

+	kporttime = twst_param:k("porttime")

+	kbin = twst_param:k("bin")

+	kfreqscale = twst_tf_pitchscale()

+	kfn twst_tf_getwaveformk

+

+	if (ileft == 1) then

+		i_, inumbins, i_, i_ pvsinfo fL

+		kamp, kfreqbase pvsbin fL, round:k(kbin * inumbins)

+		kfreq portk kfreqbase * kfreqscale, kporttime

+		aL oscilikt 1, kfreq, kfn

+	endif

+	if (iright == 1) then

+		i_, inumbins, i_, i_ pvsinfo fR

+		kamp, kfreqbase pvsbin fL, round:k(kbin * inumbins)

+		kfreq portk kfreqbase * kfreqscale, kporttime

+		aR oscilikt 1, kfreq, kfn

+	endif

+	outs aL, aR

+endin

+

+opcode _twst_tf_partialreconstruction, a, aikkkikkki

+	ain, ifftsize, kthresh, kminpoints, kmaxgap, imaxtracks, kampscale, kfreqscale, kmaxtracks, ifn xin

+	ffreq, fphase pvsifd ain, ifftsize, ifftsize/4, 1

+	ftrks partials ffreq, fphase, kthresh, kminpoints, kmaxgap, imaxtracks

+	aout resyn ftrks, kampscale, kfreqscale, kmaxtracks, ifn

+	aout dcblock aout

+	xout aout

+endop

+

+instr twst_tf_partialreconstruction

+	$TWST_TRANSFORM

+	aL, aR, ileft, iright twst_getinput

+	ifftsize = twst_parami("fftsize")

+	kthresh = twst_param:k("threshold")

+	kminpoints = twst_param:k("minpoints")

+	kmaxgap = twst_param:k("maxgap")

+	imaxtracks = round(twst_parami("anlmaxtracks") * ifftsize * 0.5)

+	kampscale = twst_param:k("ampscale")

+	kfreqscale = twst_tf_pitchscale()

+	kmaxtracks = round:k(twst_param:k("resmaxtracks") * ifftsize * 0.5)

+	ifn = twst_tf_getwaveform()

+	twst_setlatencysamples(ifftsize)

+

+	if (ileft == 1) then

+		aL _twst_tf_partialreconstruction aL, ifftsize, kthresh, kminpoints, kmaxgap, imaxtracks, kampscale, kfreqscale, kmaxtracks, ifn

+	endif

+	if (iright == 1) then

+		aR _twst_tf_partialreconstruction aR, ifftsize, kthresh, kminpoints, kmaxgap, imaxtracks, kampscale, kfreqscale, kmaxtracks, ifn

+	endif

+	outs aL, aR

+endin

+

+opcode _twst_tf_residual, a, aii

+	ain, ifftsize, ihsize xin

+	ffr, fphs pvsifd ain, ifftsize, ihsize, 1

+	ftrk partials ffr, fphs, 0, 1, 3, 500

+	aout sinsyn ftrk, 2, 500, gifnSine

+	asd delayr ifftsize / sr

+	asig deltapn ifftsize - ihsize

+	delayw  ain

+	xout asig - aout

+endop

+

+instr twst_tf_residual

+	$TWST_TRANSFORM

+	aL, aR, ileft, iright twst_getinput

+	ifftsize = twst_parami("fftsize")

+	twst_setlatencysamples(ifftsize)

+	ihsize = ifftsize / 4

+	if (ileft == 1) then

+		aL _twst_tf_residual aL, ifftsize, ihsize

+	endif

+	if (iright == 1) then

+		aR _twst_tf_residual aR, ifftsize, ihsize

+	endif

+	outs aL, aR

+endin

+

+/* not in WASM

+instr twst_tf_trace

+	$TWST_TRANSFORM

+	fL, fR, aL, aR, ileft, iright twst_getfinput

+	inumbins = twst_parami("fftsize") / 2

+	kbins = twst_param("bins") * inumbins

+

+	if (ileft == 1) then

+		foutL pvstrace fL, kbins

+		aL twst_tf_fresynth foutL

+	endif

+	if (iright == 1) then

+		foutR pvstrace fR, kbins

+		aR twst_tf_fresynth foutR

+	endif

+	outs aL, aR

+endin

+*/

+

+instr twst_tf_isolator

+	$TWST_TRANSFORM

+	fL, fR, aL, aR, ileft, iright twst_getfinput

+	kbin = twst_param("bin")

+	kattenuation = twst_param("attenuation")

+	kgain = twst_param("accentuation")

+

+	if (ileft == 1) then

+		foutL pvsarp fL, kbin, kattenuation, kgain

+		aL twst_tf_fresynth foutL

+	endif

+	if (iright == 1) then

+		foutR pvsarp fR, kbin, kattenuation, kgain

+		aR twst_tf_fresynth foutR

+	endif

+	outs aL, aR

+endin

+

+instr twst_tf_blur

+	$TWST_TRANSFORM

+	fL, fR, aL, aR, ileft, iright twst_getfinput

+	ktime = twst_param:k("time")

+	if (ileft == 1) then

+		fL1 pvsblur fL, ktime, 3

+		aL twst_tf_fresynth fL1

+	endif

+	if (iright == 1) then

+		fR1 pvsblur fR, ktime, 3

+		aR twst_tf_fresynth fR1

+	endif

+	outs aL, aR

+endin

+

+instr twst_tf_spectralautoglitch

+	$TWST_TRANSFORM

+	aL, aR, ileft, iright twst_getinput

+	kchangerate = twst_param:k("changerate")

+	kchangechance = twst_param:k("changechance")

+	kporttime = twst_param:k("porttime")

+	kdo_pitchalter = twst_param:k("pitchalter")

+	ifftsize = twst_parami("fftsize")

+	

+	twst_setlatencysamples ifftsize

+

+	if (ileft == 1) then

+		aL fx_spectralautoglitch aL, kchangerate, kchangechance, kdo_pitchalter, kporttime, ifftsize

+	endif

+	if (iright == 1) then

+		aR fx_spectralautoglitch aR, kchangerate, kchangechance, kdo_pitchalter, kporttime, ifftsize

+	endif

+	outs aL, aR

+endin

+

+instr twst_tf_subtractive

+	$TWST_TRANSFORM

+	aL, aR, ileft, iright twst_getinput

+	ifreq = twst_parami("minfreq")

+	ifreqmax = twst_parami("maxfreq")

+	ifreqstepmult = twst_parami("step")

+	ifreqstepmultrand = twst_parami("steprand")

+	iamp = twst_parami("amp")

+	iampmult = twst_parami("ampmult")

+

+	if (ileft == 1) then

+		aL as_subtractive aL, ifreq, ifreqmax, ifreqstepmult, ifreqstepmultrand, iamp, iampmult

+	endif

+	if (iright == 1) then

+		aR as_subtractive aR, ifreq, ifreqmax, ifreqstepmult, ifreqstepmultrand, iamp, iampmult

+	endif

+	outs aL, aR

+endin

+

+instr twst_tf_phasemash

+	$TWST_TRANSFORM

+	aL, aR, ileft, iright twst_getinput

+	ifftsize = twst_parami("fftsize")

+	kphasemode = twst_param:k("phasereplace")

+	kphasevalue = twst_param:k("phasevalue")

+	

+	if (kphasemode == 0) then

+		kphasevalue *= 7

+	else

+		kphasevalue = ((kphasevalue * 2) - 1) * 3.141

+	endif

+

+	if (ileft == 1) then

+		aL spc_phasemash aL, kphasemode, kphasevalue, ifftsize

+	endif

+	if (iright == 1) then

+		aR spc_phasemash aR, kphasemode, kphasevalue, ifftsize

+	endif

+	outs aL, aR

+endin