ShimmerReverb true 2 2 if (<ShimmerON> == 1) then ainl = ain1 ainr = ain2 ain1 = vdelay3(ain1, <Shimmer_delay time>, 100) ; pre-delay ain2 = vdelay3(ain2, <Shimmer_delay time>, 100) aout1 init 0 aout2 init 0 kfblvl = <Shimmer_feedback> ; +- 0.45 ain1 = ain1 + (aout1 * kfblvl) ain2 = ain2 + (aout2 * kfblvl) ain1 = dcblock2(ain1) ; important, or signal bias grows rapidly ain2 = dcblock2(ain2) ain1 = tanh(ain1) ; to help ensure it doesn't blow up ain2 = tanh(ain2) kdepth expcurve <Shimmer_depth>, .5 ain1, ain2 reverbsc ain1, ain2, kdepth, <Shimmer_colour> kratio = <Shimmer_ratio> ifftsize = 2048 ioverlap = ifftsize / 4 iwinsize = ifftsize iwinshape = 1 ; von-Hann window fftin pvsanal ain1, ifftsize, ioverlap, iwinsize, iwinshape fftscale pvscale fftin, kratio, 0, 1 atransL pvsynth fftscale fftin2 pvsanal ain2, ifftsize, ioverlap, iwinsize, iwinshape fftscale2 pvscale fftin2, kratio, 0, 1 atransR pvsynth fftscale2 aout1 = vdelay3(atransL, <Shimmer_feedback delay>, 200) ;; delay the feedback to let it build up over time aout2 = vdelay3(atransR, <Shimmer_feedback delay>, 200) aout1 = (ainl * <Shimmer_wetdry>) + ((aout1 * .7) * (1 - <Shimmer_wetdry>)) ; mix aout2 = (ainr * <Shimmer_wetdry>) + ((aout2 * .7) * (1 - <Shimmer_wetdry>)) else aout1 = ain1 aout2 = ain2 endif DESCRIPTION: Code from Steven Yi, adapted (and some values extended) as a Blue effect by Menno Knevel Reference: https://kunstmusik.com/2018/08/21/shimmer-reverb/ CONTROLLERS: ON/OFF - bypass ratio - scaling ratio delay time - delay time in ms delay feedback - delay feedback level reverb feedback - reverb feedback level reverb depth - amount of reverb reverb colour - cutoff frequency of simple first order lowpass filters Mix - mix direct signal with effect --- version 1.02, July 2020 - added BSB information comments version 1.01, May 2020 - added comments on controllers version 1.0, 2016 - initial version, using code by Steven Yi, now a blue effect by Menno Knevel 5 5 DOT true 0 0 Group 0x00000033 0x000000ff 0xffffffff true 20 20 10 10 Group 0x4d8080ff 0x000000ff 0xffffffff false 20 20 60 5 delay 0x00000033 0x1a4d4dff 0xffffffff true 20 20 Shimmer_delay time 10 10 delay time in ms true 10.0 200.0 200.0 40 true true time true System Regular 12.0 Shimmer_feedback delay 60 10 delay feedback level true 10.0 200.0 200.0 40 true true feedback true System Regular 12.0 185 5 reverb 0x00000033 0x1a4d4dff 0xffffffff true 20 20 Shimmer_feedback 10 10 reverb feedback level true 0.0 1.0 0.8899999999999999 40 true true feedback true System Regular 12.0 Shimmer_depth 75 10 amount of reverb true 0.0 1.0 0.95 40 true true depth true System Regular 12.0 Shimmer_colour 130 10 cutoff frequency of simple first order lowpass filters true 200.0 20000.0 20000.0 40 true true colour true System Regular 12.0 370 35 mix System Regular 12.0 Shimmer_wetdry 365 45 mix direct signal with effect true 0.0 1.0 0.1 0.6 60 true false Shimmer_ratio 10 35 scaling ratio true 0.0 3.0 1.92 40 true true ratio true System Regular 12.0 ShimmerON 0 0 bypass true true true