AdFM - Heterodyning true 2 2 itab chnget "AdFM.sine_table" if (itab == 0) then itab ftgen 0, 0, 65537, 10, 1 ; sine wave chnset itab, "AdFM.sine_table" endif aout1 HFM ain1, <fc_fm_ratio>, <index>, itab aout2 HFM ain2, <fc_fm_ratio>, <index>, itab blue port of the heterodyning version of Victor Lazzarini's Adaptive FM Synthesis(AdFM) 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 */ asig HFM ain,krat,kndx,ifn ain ? input signal krat ? fc:fm ratio kndx ? index of modulation ifn ? mod signal function table fc_fm_ratio 5 68 true 1.0 8.0 2.0 60 true 22 48 fc:fm index 69 68 true 0.0 12.0 1.0 60 true 84 48 index 42 3 <html><font size="+1">AdFM</font></html> 30 27 Heterodyning