VoxXtended true 2 2 if (<VoxXtendedON> == 1) then isine ftgentmp 0, 0, 16384, 10, 1 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 = <VoxXtended_carrier_coarse> * 1000 ;coarse tuning of freq kcarrier = <VoxXtended_carrier_fine> + kcarcoarse ;add coarse and fine tuning if (<VoxXtended_wave> == 0) then ;provide sinoid for modulation avocL poscil .5, kcarrier, isine, 0 avocR poscil .5, kcarrier, isine, .5 elseif (<VoxXtended_wave> == 1) then avocL poscil .5, kcarrier, isaw, 0 avocR poscil .5, kcarrier, isaw, .5 elseif (<VoxXtended_wave> == 2) then avocL poscil .5, kcarrier, isquare, 0 avocR poscil .5, kcarrier, isquare, .5 elseif (<VoxXtended_wave> == 3) then avocL poscil .5, kcarrier, ipulse, 0 avocR poscil .5, kcarrier, ipulse, .5 elseif (<VoxXtended_wave> == 4) then ivld filevalid "<VoxXtended_sample>" ; check if valid sample is imported - else, bypass if ivld > 0 then isamp ftgentmp 0, 0, 0, 1, "<VoxXtended_sample>", 0, 0, 0 ichn filenchnls "<VoxXtended_sample>" ilen filelen "<VoxXtended_sample>" kbegin = <VoxXtended_loopstart_sample> * ilen + 0.05 kend = <VoxXtended_loopend_sample> * ilen print ichn if (ichn == 1) then if (kbegin < kend) then avocL flooper2 .8, <VoxXtended_pitch>, kbegin, kend, .1, isamp, i(<VoxXtended_start_sample>) * ilen avocR = avocL else avocL = 0 avocR = 0 endif elseif (ichn == 2) then if (kbegin < kend) then avocL, avocR flooper2 1.5, <VoxXtended_pitch>, kbegin, kend, .1, isamp, i(<VoxXtended_start_sample>) * ilen avocL = tanh(avocL) ; to help ensure it doesn't blow up avocR = tanh(avocR) else avocL = 0 avocR = 0 endif endif else prints "\n\n\nNO OR INVALID SAMPLE. Note:it is not needed for the rest of the effect to work.\n\n\n" aout1 = ain1 aout2 = ain2 endif endif if (<VoxXtended_method> == 2) then ; Q method if (<VoxXtended_Qsource> == 0) then aout1 Vocoder avocL, ain1, <VoxXtended_Qmin>, <VoxXtended_Qmax>, <VoxXtended_Q>, i(<VoxXtended_Qbands>) aout2 Vocoder avocR, ain2, <VoxXtended_Qmin>, <VoxXtended_Qmax>, <VoxXtended_Q>, i(<VoxXtended_Qbands>) else aout1 Vocoder ain1, avocL , <VoxXtended_Qmin>, <VoxXtended_Qmax>, <VoxXtended_Q>, i(<VoxXtended_Qbands>) aout2 Vocoder ain2, avocR , <VoxXtended_Qmin>, <VoxXtended_Qmax>, <VoxXtended_Q>, i(<VoxXtended_Qbands>) endif kout logcurve <VoxXtended_Q>, 2 aout1 *= kout * <VoxXtended_Qvolume> aout2 *= kout * <VoxXtended_Qvolume> else ; PVS method if (<VoxXtended_PVSsource> == 0) then famp1 pvsanal ain1, <VoxXtended_size>, <VoxXtended_overlap>, <VoxXtended_size>, 1 ;analyse in signal famp2 pvsanal ain2, <VoxXtended_size>, <VoxXtended_overlap>, <VoxXtended_size>, 1 ;analyse in signal fexc1 pvsanal avocL, <VoxXtended_size>, <VoxXtended_overlap>, <VoxXtended_size>, 1 ;analyse excitation signal fexc2 pvsanal avocR, <VoxXtended_size>, <VoxXtended_overlap>, <VoxXtended_size>, 1 ;analyse excitation signal else fexc1 pvsanal ain1, <VoxXtended_size>, <VoxXtended_overlap>, <VoxXtended_size>, 1 ;analyse in signal fexc2 pvsanal ain2, <VoxXtended_size>, <VoxXtended_overlap>, <VoxXtended_size>, 1 ;analyse in signal famp1 pvsanal avocL,<VoxXtended_size>, <VoxXtended_overlap>, <VoxXtended_size>, 1 ;analyse excitation signal famp2 pvsanal avocR,<VoxXtended_size>, <VoxXtended_overlap>, <VoxXtended_size>, 1 ;analyse excitation signal endif ftps1 pvsvoc famp1, fexc1, <VoxXtended_PVSdepth>, <VoxXtended_PVSgain> , <VoxXtended_PVScoefs> ;cross it ftps2 pvsvoc famp2, fexc2, <VoxXtended_PVSdepth>, <VoxXtended_PVSgain> , <VoxXtended_PVScoefs> ;cross it aout1 pvsynth ftps1 aout2 pvsynth ftps2 endif else aout1 = ain1 aout2 = ain2 endif DESCRIPTION: The VoxXtended has 2 methods to vocode the incoming sound. 'method Q' uses 4th order butteworth filters and 'method pvs' uses the pvsvoc opcode, both with a distintive sound. CONTROLLERS: ON/OFF - bypass Dropdown List - switch between Method 1:Q or Method 2:pvs. 2 totally different approaches to vocoding the incoming signal METHOD 1:Q (traditional vocoding) freq limits - sets boundaries to frequencies of the filters Q - Quality of filters bands - # of bands volume - gain of effect swap source - switch between IR or incoming signal METHOD 2:pvs depth - depth of effect, affecting how much of the frequencies will be taken from the second signal gain - gain boost/attenuation applied to the output coefs - number of cepstrum coefs used in spectral envelope estimation overlap - The distance in samples (?hop size?) between overlapping analysis frames size - The FFT size in samples swap source - switch between IR or incoming signal EXCITER or modulator SIGNAL fine/coarse frequency - fine and coarse tuning of modulator frequency Dropdown List - 5 different waveforms for modulator, where the 5th is the Sample File Selector - choose Sample to modulate/excite incoming signal start sample - skip in Sample loop start/end - set start and end loop points pitch - set pitch of Sample --- version 1.12, July 2020 - added BSB information comments version 1.11, May 2020 - added comments on controllers version 1.1, february 2019 - now works without a soundfile - some GUI clearing up - all stereo now version 1.0, january 2018 - initial version by Menno Knevel - uses same exciter signal block for the 2 methods - a soundfile must be loaded - method Q uses UDO from Victor Lazzarini - when using a soundfile as exciter, option to change loop start and end while playing Vocoder a aakkkpp as1,as2,kmin,kmax,kq,ibnd,icnt xin if kmax < kmin then ktmp = kmin kmin = kmax kmax = ktmp endif if kmin == 0 then kmin = 1 endif if (icnt >= ibnd) goto bank abnd Vocoder as1,as2,kmin,kmax,kq,ibnd,icnt+1 bank: kfreq = kmin*(kmax/kmin)^((icnt-1)/(ibnd-1)) kbw = kfreq/kq an butterbp as2, kfreq, kbw an butterbp an, kfreq, kbw as butterbp as1, kfreq, kbw as butterbp as, kfreq, kbw ao balance as, an amix = ao + abnd xout amix channel vocoder with user-specified number of bands Vocoder is a channel vocoder using 4th order butteworth filters. It takes an input signal and analyses it with a user-specified number of log-spaced (constant-Q) filter bands (between a min and max) and frequency) and then applies the analysed spectral envelope to an excitation signal. Syntax asig Vocoder aexc, ain, kminf, kmaxf, kq, ibands Initialization ibands - number of filter bands between kminf and kmaxf Performance asig - output aexc - excitation signal, generally a broadband source (ie. lots of spectral components) ain - input signal, generally a signal with a strong spectral envelope or contour, formants, etc. (such as vocal sound) kminf - lowest analysis frequency kmaxf - highest analysis frequency kq - filter Q 5 5 DOT true 0 0 Group 0x00000033 0x000000ff 0xffffffff true 20 20 10 10 Group 0x4d8080ff 0x000000ff 0xffffffff false 20 20 400 10 System Bold 18.0 VoxXtended_method 290 0 switch between Method 1:Q or Method 2:pvs. 2 totally different approaches to vocoding the incoming signal false 0 12 true method 1:Q 2 method 2: pvs 1 345 30 method 2: pvs 0x4d8080ff 0x336666ff 0xffffffff true 325 20 VoxXtended_PVSgain 65 0 gain boost/attenuation applied to the output true 0.0 5.0 1.05 41 true true true System Regular 12.0 VoxXtended_overlap 195 1 The distance in samples (?hop size?) between overlapping analysis frames false 1 12 true 256 256 512 512 1024 1024 2048 2048 VoxXtended_PVScoefs 115 0 number of cepstrum coefs used in spectral envelope estimation true 1.0 200.0 110.45 41 true true true System Regular 12.0 VoxXtended_size 195 21 The FFT size in samples false 3 12 true 256 256 512 512 1024 1024 2048 2048 4096 4096 VoxXtended_PVSdepth 15 0 depth of effect, affecting how much of the frequencies will be taken from the second signal true 0.0 1.0 1.0 41 true true true System Regular 12.0 VoxXtended_PVSsource 195 52 switch between IR or incoming signal true false true 255 28 System Regular 12.0 255 5 System Regular 12.0 285 10 System Bold 16.0 5 30 method 1: Q 0x4d8080ff 0x336666ff 0xffffffff true 340 20 VoxXtended_Qbands 163 1 # of bands true 5.0 50.0 28.85 41 true true true System Regular 12.0 28 1 System Regular 12.0 283 36 System Regular 12.0 VoxXtended_Qvolume 210 0 gain of effect true 0.0 1.0 0.44 41 true true true System Regular 12.0 VoxXtended_Q 113 1 Quality of filters true 1.0 150.0 75.5 41 true true true System Regular 12.0 VoxXtended_Qsource 263 51 switch between IR or incoming signal true false true VoxXtended_Qmin 13 16 sets boundaries to frequencies of the filtersets boundaries to frequencies of the filters true 20.0 10000.0 20.0 41 true true false System Regular 12.0 VoxXtended_Qmax 63 16 sets boundaries to frequencies of the filters true 100.0 20000.0 11642.0 41 true true false System Regular 12.0 5 130 exciter signal for method 1 & 2 0x4d8080ff 0x336666ff 0xffffffff true 20 20 VoxXtended_carrier_coarse 10 30 coarse tuning of modulator frequency true 0.0 10.0 1 5.0 400 true true 20 45 System Regular 12.0 VoxXtended_wave 520 35 5 different waveforms for modulator, where the 5th is the Sample true 0 12 true sine 0 saw 1 square 2 pulse 3 soundfile 4 20 25 System Regular 12.0 10 65 soundfile parameters 0x4d8080ff 0x000000ff 0xffffffff false 20 20 VoxXtended_start_sample 10 40 skip in Sample true 0.0 1.0 0.001 0.0 630 true false VoxXtended_loopend_sample 10 80 set end loop point true 0.0 1.0 0.001 0.232 630 true false VoxXtended_loopstart_sample 10 60 set start loop point true 0.0 1.0 0.001 0.0 630 true false 15 55 System Regular 12.0 15 95 System Regular 12.0 VoxXtended_sample 10 10 choose Sample to modulate/excite incoming signal 400 false 450 25 System Regular 12.0 VoxXtended_pitch 440 10 set pitch of Sample true 0.0 4.0 0.01 1.0 150 true true 15 75 System Regular 12.0 460 40 System Bold 12.0 VoxXtended_carrier_fine 15 10 fine tuning of modulator frequency true 1.0 1000.0 1 349.0 590 true true VoxXtendedON 0 0 bypass true