AdFM - Heterodyning
true
2
2
if (<AdFMheteroON> == 1) then
itab chnget "AdFM.sine_table"
if (itab == 0) then
itab ftgen 0, 0, 65537, 10, 1 ; sine wave
chnset itab, "AdFM.sine_table"
endif
aoutl1 HFM ain1, <AdFMhetero_fc_fm ratio>, <AdFMhetero_index>, itab
aoutr2 HFM ain2, <AdFMhetero_fc_fm ratio>, <AdFMhetero_index>, itab
aout1 ntrpol aoutl1, ain1, <AdFMhetero_mix>
aout2 ntrpol aoutr2, ain2, <AdFMhetero_mix>
else
aout1 = ain1
aout2 = ain2
endif
DESCRIPTION:
blue port of the heterodyning FM version of Victor Lazzarini's Adaptive FM Synthesis (AdFM)
CONTROLLERS:
ON/OFF - bypass
fc:fm - ratio frequency carrier frequency modulator
index - # of extra (dis)harmonic frequencies
mix - mix direct signal with effect
---
version 1.01, May 2020
- added comments on controllers
version 1.0, 2018
- initial version by Menno Knevel, using code from Victor Lazzarini
HFM
a
akki
setksmps 1
i2pi = 2*$M_PI /* two-pi constant */
asig,kratio,kndx,ifn xin /* input parameters */
kcps,kamp ptrack asig, 512 /* pitch tracking */
kfm = kcps/kratio /* fm frequency */
adt oscili kndx/i2pi, kfm, ifn /* modulator */
acs tablei adt, ifn, 1, 0.25, 1 /* phase modulation */
xout asig*acs /* heterodyning */
5
5
LINE
true
0
0
Group
0x00000033
0x000000ff
0xffffffff
true
20
20
AdFMheteroON
0
0
true
true
true
10
10
Group
0x4d8080ff
0x000000ff
0xffffffff
false
20
20
AdFMhetero_mix
110
20
true
0.0
1.0
0.01
0.0
50
true
false
AdFMhetero_index
65
10
true
0.0
12.0
6.4
40
true
true
true
System Regular
12.0
115
10
System Regular
12.0
AdFMhetero_fc_fm ratio
15
10
true
1.0
8.0
2.0
40
true
true
true
System Regular
12.0