1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
#include "/twist/transform_api.udo"
instr twst_tfi_reverse
$TWST_TRANSFORM
ileft, iright, istartsamp, iendsamp, idocut, ilength twst_tf_getstate
ifnL, ifnR twst_tfi_getfn
ioffline twst_tf_isoffline
apos linseg (iendsamp - istartsamp) - 1, ilength, 0
if (ileft == 1) then
if (ioffline == 1) then
ifntempL ftgentmp 0, 0, -ftlen(ifnL), -2, 0
tableicopy ifntempL, ifnL
aL table3 apos, ifntempL
else
aL table3 apos, ifnL
endif
endif
if (iright == 1) then
if (ioffline == 1) then
ifntempR ftgentmp 0, 0, -ftlen(ifnR), -2, 0
tableicopy ifntempR, ifnR
aR table3 apos, ifntempR
else
aR table3 apos, ifnR
endif
endif
outs aL, aR
endin
|