Tempo-Sync Stereo Delay
2
2
ibpm = <bpm>
inl = <notelength>
ifb = <feedback>
idel = ( 1/(ibpm/60) * inl )
aleft delayr idel
aright delayr idel
if ( <pingpong> == 0 ) then
ado1 = aleft + ain1
ado2 = aright + ain2
else
ado1 = aright + ( .5 * (ain1 + ain2) )
ado2 = aleft
endif
delayw ado1 * ifb
delayw ado2 * ifb
if ( <swap> == 1 ) then
aout1 = aright
aout2 = aleft
else
aout1 = aleft
aout2 = aright
endif
aout1 = ( aout1 * ( 1 - <bal> ) ) * 2
aout2 = ( aout2 * <bal> ) * 2
aout1 = (ain1 * <wetdry>) + (aout1 * (1 - <wetdry>))
aout2 = (ain2 * <wetdry>) + (aout2 * (1 - <wetdry>))
bpm
9
24
1.0
1000.0
0.12912913
60
28
6
notelength
77
24
0.0
4.0
0.1875
60
wetdry
275
24
0.0
1.0
0.5
60
278
5
72
5
feedback
144
24
0.0
1.0
0.5
60
148
5
pingpong
121
100
false
swap
121
122
false
bal
210
24
0.0
1.0
0.5
60
216
5