PConvXtended true 2 2 if (<PConvXtendedON> == 1) then kwet = <PConvXtended_wetDry> ;mix wet/dry kdry = 1 - kwet kwet *= <PConvXtended_volume wet> ivld filevalid "<PConvXtended_impulseResponse>" ; check if valid impilse is imported if ivld > 0 then iNrChannels filenchnls "<PConvXtended_impulseResponse>" ipartitionsize = <PConvXtended_paritionSize> ;for best performance, this parameter needs to be tweaked idel = (ksmps < ipartitionsize ? ipartitionsize + ksmps : ipartitionsize)/sr ;calculate latency of pconvolve opcode prints "Convolving with a latency of %f seconds%n", idel if (iNrChannels == 2) then awetl, awetr pconvolve kwet*((ain1+ain2)*.5), "<PConvXtended_impulseResponse>", ipartitionsize else awetl pconvolve kwet*((ain1+ain2)*.5), "<PConvXtended_impulseResponse>", ipartitionsize awetr = awetl endif if (<PConvXtended_EQ_on> == 1) then ;turn Equalizer on/off awetl eqfil awetl, 150, 80, <PConvXtended_gain bass> ;3 band eq awetr eqfil awetr, 150, 80, <PConvXtended_gain bass> awetl eqfil awetl, 1200, 500, <PConvXtended_gain mid> awetr eqfil awetr, 1200, 500, <PConvXtended_gain mid> awetl eqfil awetl, <PConvXtended_freq high>, 3000, <PConvXtended_gain high> awetr eqfil awetr, <PConvXtended_freq high>, 3000, <PConvXtended_gain high> endif awetl delay awetl, i(<PConvXtended_reflection>) ;early reflection awetr delay awetr, i(<PConvXtended_reflection>) adryl delay kdry * ain1, idel ;delay dry signal, to align it with the convoled sig adryr delay kdry * ain2, idel aout1 = (adryl*2)+(awetl*.1) aout2 = (adryr*2)+(awetr*.1) 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: Convolution Effect using pconvolve opcode by Matt Ingalls The code for this effect is based on code by Matt Ingalls found in the Csound Manual; please see the manual for more information regarding pconvolve. Supports mono or stereo Impulse Response files. CONTROLLERS: ON/OFF - bypass File Selector - import an impulse response partisionsize - the size in samples of each partition of the impulse file wet volume - gain of effect ER - Early Reflection. The effect is delayed in time Dry/Wet - mix direct signal with effect Equalizer - on/off for equalizer section 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, February 2018 - added warning when no or invalid impulse sound is used - if no or incorrect impulse, then the effect is bypassed version 1.1, September 2017 - latest GUI (Blue 2.7.0 or greater) version 1.0, februari 2017 - initial version by Menno Knevel - Mix wet/dry fader can be moved while playing - added wet volume to be set in order to prevent distortion of Impulse Response file - added 3 way equalizer to spice up the Impulse Response file - added Early Reflection 5 2 LINE true 0 0 Group 0x00000033 0x000000ff 0xffffffff true 20 20 10 10 Group 0x4d8080ff 0x000000ff 0xffffffff false 20 20 10 10 impulse 0x4d8080ff 0x000000ff 0xffffffff false 20 129 455 5 System Regular 12.0 PConvXtended_wetDry 105 85 mix direct signal with effect true 0.0 1.0 0.01 0.5 325 true false PConvXtended_impulseResponse 11 23 import an impulse response import impulse file 400 false 14 93 System Regular 12.0 PConvXtended_paritionSize 101 64 the size in samples of each partition of the impulse file false 10 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 14 67 System Regular 12.0 105 105 System Regular 12.0 PConvXtended_reflection 450 20 Early Reflection. The effect is delayed in time true 1.0E-4 0.7 0.1 1.0E-4 90 true false PConvXtended_volume wet 280 65 gain of effect true 0.0 1.0 0.1 0.5 150 true false 400 105 System Regular 12.0 200 70 System Regular 12.0 500 10 timbre 0x4d8080ff 0x000000ff 0xffffffff false 20 129 PConvXtended_EQ_on 10 10 on/off for equalizer section true false true 180 96 System Regular 12.0 PConvXtended_gain bass 10 90 gain for fixed bass frequency gain true 0.0 15.0 0.1 1.0 120 true true PConvXtended_gain mid 10 70 gain for fixed mid frequency gain true 0.0 15.0 0.1 1.0 120 true true PConvXtended_gain high 10 50 gain for highest frequencies true 0.0 15.0 0.1 1.0 120 true true PConvXtended_freq high 10 30 set high frequency true 4000.0 10000.0 0.1 4000.0 120 true true 180 45 System Regular 12.0 180 78 System Regular 12.0 PConvXtendedON 0 0 bypass true