ftConvXtended true 2 2 if (<ftConvXtendedON> == 1) then ivld filevalid "<ftConvXtended_impulse>" ; check if valid impilse is imported if ivld > 0 then impulse ftgenonce 0,0,0,1,"<ftConvXtended_impulse>",0,0,0 ; impulse responses stored as stereo GEN01 function tables (deferred!!) iplen = <ftConvXtended_paritionSize> ; buffer length iirlen = nsamp(impulse) ; derive the length of the impulse response if (<ftConvXtended_reverse> == 1) then tab_reverse impulse endif if (<ftConvXtended_shuffle> == 1) then tab_shuffle impulse endif if (<ftConvXtended_random> == 1) then tab_random impulse endif awetl,awetr ftconv (ain1+ain2)*.5, impulse, iplen, iirlen*i(<ftConvXtended_skip>), iirlen/i(<ftConvXtended_length>) ;aout1 = awetl ;aout2 = awetr if (<ftConvXtended_highboost> == 1) then awetl diff awetl awetr diff awetr awetl *= 8 awetr *= 8 endif if (<ftConvXtendedEQ_on> == 1) then ;turn Equalizer on/off awetl eqfil awetl, 150, 80, <ftConvXtended_gain bass> ;3 band eq awetr eqfil awetr, 150, 80, <ftConvXtended_gain bass> awetl eqfil awetl, 1200, 500, <ftConvXtended_gain mid> awetr eqfil awetr, 1200, 500, <ftConvXtended_gain mid> awetl eqfil awetl, <ftConvXtended_freq high>, 3000, <ftConvXtended_gain high> awetr eqfil awetr, <ftConvXtended_freq high>, 3000, <ftConvXtended_gain high> endif awetl delay awetl, i(<ftConvXtended_reflection>) ;early reflection awetr delay awetr, i(<ftConvXtended_reflection>) adel delay ain1+ain2,(iplen/sr) + (iirlen/sr) * i(<ftConvXtended_move>) ; delay compensation. Add extra delay if reverse reverb is used. aout1 ntrpol adel,awetl * <ftConvXtended_volume impulse>, <ftConvXtended_mix> ; create a dry/wet mix aout2 ntrpol adel,awetr * <ftConvXtended_volume impulse>, <ftConvXtended_mix> else prints "\n\n\nNO OR INVALID IMPULSE. PLEASE ENTER ONE!!\nEFFECT IS NOT WORKING, YOU HEAR THE DIRECT SIGNAL ONLY.\n\n\n" aout1 = ain1 aout2 = ain2 endif else aout1 = ain1 aout2 = ain2 endif DESCRIPTION: This effect is based on the ftconv opcode example from the FLOSS manual. It gives you full control over the Impulse Response (IR). I call this ftConvXtended because some extra effects are added to, well, the effect. Note that using a big sample as an impulse will be heavy on CPU. CONTROLLERS: ON/OFF - bypass File Selector - import an impulse response length/skip/volume - controls the length of the IR, skips into the IR and gain of IR reverse - reverses the IR blur/blur2 - 2 methods of randomizing the IR values a bit partisionsize - the size in samples of each partition of the impulse file delay direct signal - direct signal is delayed in time Early Reflection - The effect is delayed in time mix direct/effect - mix direct signal with effect Equalizer - on/off for equalizer section Boost high - switch to boost treble and reduce bass high - set frequency and gain for highest frequencies mid/bass - gain for fixed mid and bass frequency gain --- version 1.22, July 2020 - added BSB information comments version 1.21, May 2020 - added comments on controllers version 1.2, April 2019 - corrected error in Reverse, Blur and Blur2 - removed partitionsize (leftover from PConvXtended) 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.0, September 2017 - initial version by Menno Knevel - latest GUI (Blue 2.7.0 or greater) - equalizer with on/off switch - high boost filter to compensate treble loss when convolving - Early Reflection (ER), as well as the dry signal can be moved in time - reverse option for the Impulse - blur and blur2 option - option to change the length of the Impulse - option to skip some beginning of the Impulse tab_reverse 0 i ifn xin iTabLen = ftlen(ifn) iTableBuffer ftgentmp 0,0,-iTabLen,-2, 0 icount = 0 loop: ival tab_i iTabLen-icount-1, ifn tabw_i ival,icount,iTableBuffer loop_lt icount,1,iTabLen,loop icount = 0 loop2: ival tab_i icount,iTableBuffer tabw_i ival,icount,ifn loop_lt icount,1,iTabLen,loop2 tab_shuffle 0 i ifn xin iNumItems = ftlen(ifn) icount = 0 loop: ival1 tab_i icount, ifn irndndx random 0,iNumItems-0.001 ival2 tab_i irndndx, ifn tabw_i ival2, icount, ifn tabw_i ival1, irndndx, ifn loop_lt icount,1,iNumItems,loop tab_random 0 i ifn xin iNumItems = ftlen(ifn) indx = 0 loop: irand rnd31 1, 0, 0 ;random factor for deviations ival tab_i indx, ifn ;read old value inewval = ival * irand ;calculate new value inewval *= 3 tabw_i inewval, indx, ifn ;write new value loop_lt indx, 1, iNumItems, loop ;loop construction 5 1 DOT true 0 0 Group 0x00000033 0x000000ff 0xffffffff true 20 20 ftConvXtendedON 0 0 bypass true 10 10 Group 0x4d8080ff 0x000000ff 0xffffffff false 20 20 10 132 Group 0x4d808000 0x000000ff 0xffffffff false 560 20 310 48 System Regular 12.0 310 8 System Regular 12.0 ftConvXtended_mix 10 0 mix direct signal with effect true 0.0 1.0 0.1 0.5 300 true false 445 41 System Regular 12.0 310 28 System Regular 12.0 ftConvXtended_reflection 10 40 The effect is delayed in time true 1.0E-4 0.7 0.001 1.0E-4 300 true false ftConvXtended_move 10 20 direct signal is delayed in time true 0.0 1.0 0.01 0.0 300 true false ftConvXtended_paritionSize 455 13 the size in samples of each partition of the impulse file false 11 12 true 1 1 2 2 4 4 8 8 16 16 32 32 64 64 128 128 256 256 512 512 1024 1024 2048 2048 4096 4096 8192 8192 16384 16384 32768 32768 65536 65536 570 10 timbre 0x4d808000 0x1a1a1aff 0xffffffff false 20 201 ftConvXtended_freq high 10 50 set frequency for highest frequencies true 4000.0 10000.0 0.1 4000.0 120 true true ftConvXtended_highboost 125 12 switch to boost treble and reduce bass false false true 180 132 System Regular 12.0 ftConvXtended_gain bass 10 125 gain for fixed bass frequency gain true 0.0 12.0 0.1 1.0 120 true true 180 70 System Regular 12.0 180 108 System Regular 12.0 ftConvXtendedEQ_on 10 12 on/off for equalizer section false false true ftConvXtended_gain high 10 75 gain for highest frequencies true 0.0 12.0 0.1 1.0 120 true true ftConvXtended_gain mid 10 100 gain for fixed mid frequency gain true 0.0 12.0 0.1 1.0 120 true true 10 10 impulse 0x4d8080ff 0x1a1a1aff 0xffffffff false 20 20 310 50 System Regular 12.0 ftConvXtended_volume impulse 10 80 gain of IR true 0.0 0.3 0.005 0.025 300 true false 310 90 System Regular 12.0 ftConvXtended_skip 10 60 skips into the IR true 1.0E-4 0.9 0.01 1.0E-4 300 true false ftConvXtended_random 420 90 randomizing the IR values a lot false false true ftConvXtended_shuffle 420 70 randomizing the IR values a bit false false true ftConvXtended_length 10 40 controls the length of the IR true 1.0 32.0 0.1 1.8 300 true false ftConvXtended_impulse 10 10 import an impulse response 510 false 310 70 System Regular 12.0 ftConvXtended_reverse 420 50 reverses the IR false false true