StChorus true 2 2 if (<StChorusON> == 1) then krate = <StChorus_rate> krate expcurve krate,20 ;CREATE AN EXPONENTIAL REMAPPING OF krate krate scale krate,7,0.001 ;RESCALE VALUE ilfoshape ftgentmp 0, 0, 131072, 19, 1, 0.5, 0, 0.5 ;POSITIVE DOMAIN ONLY SINE WAVE kporttime linseg 0,0.001,0.02 ;RAMPING UP PORTAMENTO VARIABLE kChoDepth portk <StChorus_depth>*0.01, kporttime ;SMOOTH VARIABLE CHANGES WITH PORTK aChoDepth interp kChoDepth ;INTERPOLATE TO CREATE A-RATE VERSION OF K-RATE VARIABLE amodL osciliktp krate, ilfoshape, 0 ;LEFT CHANNEL LFO amodR osciliktp krate, ilfoshape, <StChorus_width>*0.5 ;THE PHASE OF THE RIGHT CHANNEL LFO IS ADJUSTABLE amodL = (amodL*aChoDepth)+.01 ;RESCALE AND OFFSET LFO (LEFT CHANNEL) amodR = (amodR*aChoDepth)+.01 ;RESCALE AND OFFSET LFO (RIGHT CHANNEL) aChoL vdelay ain1, amodL*1000, 1.2*1000 ;CREATE VARYING DELAYED / CHORUSED SIGNAL (LEFT CHANNEL) aChoR vdelay ain2, amodR*1000, 1.2*1000 ;CREATE VARYING DELAYED / CHORUSED SIGNAL (RIGHT CHANNEL) aout1 ntrpol ain1, aChoL, <StChorus_mix> ; create a dry/wet mix aout2 ntrpol ain2, aChoR, <StChorus_mix> else aout1 = ain1 aout2 = ain2 endif DESCRIPTION: A stereo chorus effect CONTROLLERS: ON/OFF - bypass rate - rate control of the lfo of the effect *NOT IN HERTZ* (range 0 to 1) depth - depth of the lfo of the effect (range 0 to 1) width - width of stereo widening (range 0 to 1) mix - mix direct signal with effect --- version 1.01, July 2020 - added BSB information comments version 1.0, Juin 2020 - initial version by Menno Knevel - slightly adapted code using a UDO by Iain McCurdy (2012, http://iainmccurdy.org/csound.html) 5 5 DOT true 0 0 Group 0x00000033 0x000000ff 0xffffffff true 20 20 StChorusON 0 0 bypass true 10 10 StChorus 0x4d8080ff 0x000000ff 0xffffffff false 149 20 StChorus_rate 10 10 rate control of the lfo of the effect *NOT IN HERTZ* true 0.0 1.0 0.19 40 true false true System Regular 12.0 StChorus_width 10 65 width of stereo widening true 0.0 1.0 0.001 0.558 100 true false 45 60 System Regular 12.0 StChorus_depth 60 10 depth of the lfo of the effect true 0.0 1.0 0.51 40 true false true System Regular 12.0 StChorus_mix 110 20 mix direct signal with effect true 0.0 1.0 0.001 0.518 65 true false 115 10 System Regular 12.0