RingXtended
true
2
2
if (<RingXtendedON> == 1) then
isine ftgentmp 0, 0, 16384, 10, 1 ; presets
isaw ftgentmp 0, 0, 16384, 10, 1, 0.5, 0.3, 0.25, 0.2, 0.167, 0.14, 0.125, .111
isquare ftgentmp 0, 0, 16384, 10, 1, 0, 0.3, 0, 0.2, 0, 0.14, 0, .111
ipulse ftgentmp 0, 0, 16384, 10, 1, 1, 1, 1, 0.7, 0.5, 0.3, 0.1
kcarcoarse = <RingXtended_frequency carrier coarsetuning> * 1000 ;coarse tuning of freq
kcarrier = <RingXtended_frequency carrier finetuning> + kcarcoarse ;add coarse and fine tuning together
if (<RingXtended_waveform> == 0) then ;provide sinoid for modulation
acarrierL poscil .5, kcarrier, isine, 0
acarrierR poscil .5, kcarrier, isine, i(<RingXtended_waveform phase>)
elseif (<RingXtended_waveform> == 1) then
acarrierL poscil .5, kcarrier, isaw, 0
acarrierR poscil .5, kcarrier, isaw, i(<RingXtended_waveform phase>)
elseif (<RingXtended_waveform> == 2) then
acarrierL poscil .5, kcarrier, isquare, 0
acarrierR poscil .5, kcarrier, isquare, i(<RingXtended_waveform phase>)
elseif (<RingXtended_waveform> == 3) then
acarrierL poscil .5, kcarrier, ipulse, 0
acarrierR poscil .5, kcarrier, ipulse, i(<RingXtended_waveform phase>)
elseif (<RingXtended_waveform> == 4) then
ivld filevalid "<RingXtended_sample>" ; check if valid sample is imported - else, bypass
if ivld > 0 then
isamp ftgentmp 0, 0, 0, 1, "<RingXtended_sample>", 0, 0, 0
ichn filenchnls "<RingXtended_sample>"
ilen filelen "<RingXtended_sample>"
kbegin = <RingXtended_sample begin loop> * ilen + 0.05
kend = <RingXtended_sample end loop> * ilen
if (ichn == 1) then
if (kbegin < kend) then
acarrierL flooper2 .8, <RingXtended_sample pitch>, kbegin, kend, .1, isamp, i(<RingXtended_sample start>) * ilen
acarrierR = acarrierL
else
acarrierL = 0
acarrierR = 0
endif
else
if (kbegin < kend) then
acarrierL, acarrierR flooper2 .8, <RingXtended_sample pitch>, kbegin, kend, .1, isamp, i(<RingXtended_sample start>) * ilen
; acarrierL = (ar1 + ar2) * .6
; acarrierR = acarrierL
else
acarrierL = 0
acarrierR = 0
endif
endif
else
prints "\n\n\nNO OR INVALID SAMPLE in RingXtended effect. Note:it is not needed for the rest of the effect to work.\n\n\n"
aout1 = ain1
aout2 = ain2
endif
else
acarrierL = 0
acarrierR = 0
endif
acarrierL butlp acarrierL, <RingXtended_lowpass filter>
acarrierR butlp acarrierR, <RingXtended_lowpass filter>
if (<RingXtended_AM method> == 0) then ;choose one of the 2 methods
awetL ringmod ain1, (acarrierL + <RingXtended_DC offset>) ;Julian Parker ringmod (using UDO from Steven Yi)
awetR ringmod ain2, (acarrierR + <RingXtended_DC offset>)
else ;with extra offset option
awetL = (acarrierL + <RingXtended_DC offset>) * ain1 ;pure multiplication method
awetR = (acarrierR + <RingXtended_DC offset>) * ain2
endif ;with extra offset option
awetL dcblock2 awetL
awetR dcblock2 awetR
awetL *= <RingXtended_wet signal>
awetR *= <RingXtended_wet signal> ;wet signal
ain1 *= <RingXtended_dry signal> *2 ;dry signal
ain2 *= <RingXtended_dry signal> * 2
aout1 = ain1 + awetL ;add dry and wet
aout2 = ain2 + awetR
else
aout1 = ain1
aout2 = ain2
endif
DESCRIPTION:
RingXtended is an effect that uses 2 methods for "carrying" the incoming signal (modulator): the Julian Parker ringmodulation (implementation in a UDO by Steven Yi) and the "usual" multiplication with a wave.
I call it Xtended because i wanted several ways to ringmodulate and "mangle" the incoming signal.
CONTROLLERS:
ON/OFF - bypass
ringmethod - Dropdown List to choose Julian Parker (more distortion) or Simple Multiplication method
waveform - sine, saw, square, pulse wave or soundfile wave
DC offset - can give extar effect sometime by moving the offset of the signal
filter - simple lowpass filter
phase - gives mono signals some stereo depth
wet/dry - gain of effect/direct signal
fine/coarse frequency - set fine/coarse frequency of carrier wave
Soundfile pitch - set pitch of soundfile
Soundfile start sample - start position in soundfile
Soundfile loop start - just that
Soundfile loop end - just that
---
version 1.42, july 2020
- added BSB information comments
version 1.41, May 2020
- added comments on controllers
version 1.4 beta, April 2019
- spatialize not to 1 but .95 (because 0 = 1)
- stereo when stereo soundfile is added
version 1.3, February 2019
- added on/off button
version 1.2, February 2019
- stereo version
- added phaseknob for right channel to spatialize a mono sound
version 1.1, February 2018
- added warning when no or invalid impulse sound is used
- if no or incorrect impulse, then the effect is bypassed
version 1, november 2017
- initial version by Menno Knevel
- uses 4 waveforms to carry the incoming signal: sine, saw, square, pulse and soundfile
- the soundfile modulation option is done by a looping soundfile with pitch control
- a lowpass filter for the carrier signal to filter out some of the harmonics
- option to mix dry/wet signal
- 2 faders for optimizing the frequency of sine, saw, square or pulse wave
- offset option to adjust the amount of sidebands
ringmod
a
aa
ain, acarrier xin
itab chnget "ringmod.table"
; TABLE INIT
if(itab == 0) then
; generate table according to formula 2 in document
itablen = 2^16
itab ftgen 0, 0, itablen, -2, 0
i_vb = 0.2
i_vl = 0.4
i_h = .1
i_vl_vb_denom = ((2 * i_vl) - (2 * i_vb))
i_vl_add = i_h * ( ((i_vl - i_vb)^2) / i_vl_vb_denom)
i_h_vl = i_h * i_vl
indx = 0
chnset itab, "ringmod.table"
ihalf = itablen / 2
until (indx >= itablen) do
iv = (indx - ihalf) / ihalf
iv = abs(iv)
if(iv <= i_vb) then
tableiw 0, indx, itab, 0, 0, 2
elseif(iv <= i_vl) then
ival = i_h * ( ((iv - i_vb)^2) / i_vl_vb_denom)
tableiw ival, indx, itab, 0, 0, 2
else
ival = (i_h * iv) - i_h_vl + i_vl_add
tableiw ival, indx, itab, 0, 0, 2
endif
indx += 1
od
endif
; END TABLE INIT
ain1 = (ain * .5)
acar2 = acarrier + ain1
ain2 = acarrier - ain1
asig1 table3 acar2, itab, 1, 0.5
asig2 table3 -acar2, itab, 1, 0.5
asig3 table3 ain2, itab, 1, 0.5
asig4 table3 -ain2, itab, 1, 0.5
asiginv = -(asig3 + asig4)
aout sum asig1, asig2, asiginv
xout aout
5
5
DOT
true
0
0
Group
0x00000033
0x000000ff
0xffffffff
true
20
20
RingXtendedON
0
0
bypass
true
true
true
10
10
Group
0x4d8080ff
0x000000ff
0xffffffff
false
20
20
RingXtended_waveform
90
45
sine, saw, square, pulse wave or soundfile wave
true
0
12
true
sine
0
saw
1
square
2
pulse
3
soundfile
4
15
20
System Regular
12.0
275
30
System Regular
12.0
15
110
System Regular
12.0
RingXtended_frequency carrier coarsetuning
10
95
set coarse frequency of carrier wave
true
0.0
10.0
1
0.0
543
true
true
15
90
System Regular
12.0
RingXtended_frequency carrier finetuning
10
75
set fine frequency of carrier wave
true
1.0
1000.0
1
320.0
600
true
true
RingXtended_dry signal
580
15
gain of direct signal
true
0.0
0.5
0.001
0.0
50
true
false
560
60
System Regular
12.0
585
60
System Regular
12.0
RingXtended_waveform phase
495
5
gives mono signals some stereo depth
true
0.0
0.95
0.0
40
true
true
true
System Regular
12.0
RingXtended_wet signal
555
15
gain of effect
true
0.0
10.0
0.001
10.0
50
true
false
610
110
System Bold
12.0
10
130
soundfile parameters
0x00000033
0x000000ff
0xffffffff
true
20
20
RingXtended_sample
10
10
import sample
400
false
450
25
System Regular
12.0
RingXtended_sample pitch
440
10
set pitch of soundfile
true
0.0
4.0
0.01
1.0
150
true
true
15
95
System Regular
12.0
RingXtended_sample begin loop
10
60
loop point begin
true
0.0
1.0
0.001
0.0
630
true
false
15
55
System Regular
12.0
RingXtended_sample end loop
10
80
loop point end
true
0.0
1.0
0.001
1.0
630
true
false
15
75
System Regular
12.0
RingXtended_sample start
10
40
start position in soundfile
true
0.0
1.0
0.001
0.0
630
true
false
RingXtended_lowpass filter
270
40
simple lowpass filter
true
100.0
8000.0
1
2015.0
150
true
true
15
45
System Regular
12.0
275
60
System Regular
12.0
RingXtended_DC offset
270
10
can give extar effect sometime by moving the offset of the signal
true
0.0
1.0
0.001
0.0
150
true
true
610
35
System Regular
12.0
RingXtended_AM method
90
15
choose Julian Parker (more distortion) or Simple Multiplication method
true
0
12
true
Julian Parker
1
simple multiplication
2