TimbreModule
The TimbreModule is intended to be used as an amplitude depending timbre coloring of the incoming signal.
The louder (or softer) the amplitude of the incoming, the resonance intensity increases.
Idea is to add some viability to the Instrument.
Choices are to add some Parametric EQ and/or a Treble cutoff.
---
version 1, May 2023
- initial version
;========================TimbreModule===========================================
if (<TimbreModuleON> == 1) then
; psrametric EQ
if (<paraEQON> == 1) then
asigFLpar = asigFL
asigFRpar = asigFR
asigFL1 pareq asigFLpar, <pareqfreq1>, <pareqgain1> * iamp, <pareqQ1> + iamp * 2 ; 1
asigFR1 pareq asigFRpar, <pareqfreq1>, <pareqgain1> * iamp, <pareqQ1> + iamp * 2
asigFL2 pareq asigFL1, <pareqfreq2>, <pareqgain2> * iamp, <pareqQ2> + iamp * 2 ; 2
asigFR2 pareq asigFR1, <pareqfreq2>, <pareqgain2> * iamp, <pareqQ2> + iamp * 2
asigFL3 pareq asigFL2, <pareqfreq3>, <pareqgain3> * iamp, <pareqQ3> + iamp * 2 ; 3
asigFR3 pareq asigFR2, <pareqfreq3>, <pareqgain3> * iamp, <pareqQ3> + iamp * 2
asigFL ntrpol asigFL3, asigFL, <pareqdepth>
asigFR ntrpol asigFR3, asigFR, <pareqdepth>
endif
; timbre
itimbre1 ftgen 0, 0, 16, -2, 40, 80, 160, 320, 640, 1280, 2560, 5120, 10240, 22000
itimbre2 ftgen 0, 0, 16, -2, 22000, 10240, 5120, 2560, 1280, 640, 320, 160, 80, 40
if (<timbre> == 0) then
kfcut tablei p5*10, itimbre1 ; LP filter cutoff frequency
elseif (<timbre> == 1) then
kfcut tablei p5*10, itimbre2 ; LP filter inverse cutoff frequency
else
kfcut = 22000
endif
afiltL tone asigFL, kfcut ; LP filter...
afiltR tone asigFR, kfcut
asigFL balance afiltL, asigFL ; ... to control brightness
asigFR balance afiltR, asigFR
endif
10
10
DOT
true
0
0
Group
0x00000033
0x000000ff
0xffffffff
true
20
20
Roboto
12.0
0
0
amplitude = red, filter = blue, brown = pitch
parametric&timbre
0x282828ff
0x000000ff
0xffffffff
true
165
188
Roboto
12.0
pareqfreq1
10
35
true
20.0
300.0
199.05936381408762
45
true
true
true
Roboto
12.0
10
335
timbre
0x00000033
0x000000ff
0xffffffff
true
20
20
Roboto
12.0
timbre
10
10
true
0
12
true
+ amp = + bright
0
+ amp = - bright
1
inactive
2
pareqQ2
60
120
true
0.7
5.0
2.458306923347288
45
true
true
true
Roboto
12.0
pareqQ3
60
205
true
0.7
5.0
3.0570208190267474
45
true
true
true
Roboto
12.0
TimbreModuleON
5
5
true
true
true
pareqdepth
10
295
true
0.0
1.0
0.01
0.0
150
true
false
pareqfreq3
10
205
true
1000.0
6000.0
3918.97247587894
45
true
true
true
Roboto
12.0
pareqQ1
60
35
true
0.7
5.0
4.394626580778879
45
true
true
true
Roboto
12.0
pareqgain1
110
35
true
0.0
5.0
2.860498048947449
45
true
true
true
Roboto
12.0
pareqfreq2
10
120
true
300.0
1000.0
764.7484690423591
45
true
true
true
Roboto
12.0
pareqgain3
110
205
true
0.0
5.0
1.0
45
true
true
true
Roboto
12.0
paraEQON
40
10
true
false
true
pareqgain2
110
120
true
0.0
5.0
3.565453445237132
45
true
true
true
Roboto
12.0
65
290
Roboto
12.0