Chorus v1.0 true 2 2 isin ftgentmp 0, 0, 65537, 10, 1 ilevl = .3 ; Output level ;idpth = 0.002 ; Depth in ms idpth = <depth> ; Depth in ms ;idelay = 0.01 ; Delay in ms ;idelay = <delay> ; Delay in ms ;imax = 0.25 ; Maximum LFO rate ;imin = 0.5 ; Minimum LFO rate imax = <maxLfo> ; Maximum LFO rate imin = <minLfo> ; Minimum LFO rate idelay = idpth * 2 + .1;imax;(idpth *2) + .01 iwave = isin ; LFO waveform idiff = imax-imin kwet = <wetDry> ain = ain1 + ain2 * .5 ain = ain * ilevl i01 = rnd(idiff) i02 = rnd(idiff) i03 = rnd(idiff) i04 = rnd(idiff) i05 = rnd(idiff) i06 = rnd(idiff) i07 = rnd(idiff) i08 = rnd(idiff) i09 = rnd(idiff) i10 = rnd(idiff) i11 = rnd(idiff) i12 = rnd(idiff) alfo01 oscil idpth, i01 + imin, iwave alfo02 oscil idpth, i02 + imin, iwave, .08 alfo03 oscil idpth, i03 + imin, iwave, .17 alfo04 oscil idpth, i04 + imin, iwave, .25 alfo05 oscil idpth, i05 + imin, iwave, .33 alfo06 oscil idpth, i06 + imin, iwave, .42 alfo07 oscil idpth, i07 + imin, iwave, .50 alfo08 oscil idpth, i08 + imin, iwave, .58 alfo09 oscil idpth, i09 + imin, iwave, .67 alfo10 oscil idpth, i10 + imin, iwave, .75 alfo11 oscil idpth, i11 + imin, iwave, .83 alfo12 oscil idpth, i12 + imin, iwave, .92 atemp delayr idelay * 2; + idpth +.1 ;atemp delayr idelay + idpth + .001 a01 deltapi idelay + alfo01 a02 deltapi idelay + alfo02 a03 deltapi idelay + alfo03 a04 deltapi idelay + alfo04 a05 deltapi idelay + alfo05 a06 deltapi idelay + alfo06 a07 deltapi idelay + alfo07 a08 deltapi idelay + alfo08 a09 deltapi idelay + alfo09 a10 deltapi idelay + alfo10 a11 deltapi idelay + alfo11 a12 deltapi idelay + alfo12 delayw ain achorusl sum a01, a02, a03, a04, a05, a06 achorusr sum a07, a08, a09, a10, a11, a12 aout1 = ain1 * (1-kwet) + achorusl * kwet aout2 = ain2 * (1-kwet) + achorusr * kwet Author(s): * Based on code by Perry Cook * Additional lines + stereo capability by Atte André Jensen * Originally adapted to BSB by Steve Yi from code posted by Atte Andre Jensen to the Csound Mailing List on May 1, 2006 * Depth, min/max frequency widgets added by Atte André Jensen The chorus consists of 2x6 delay lines, with random LFO frequency between min/max lfo frequency. Note: The input is mixed to a mono signal before fed into the chorus. This means that although the output is stereo, any stereo information (such as panning) in the input signal is lost in the chorused signal. 117 5 <html><font size="6"><b>Chorus</b></font></html> 131 53 Wet/Dry Mix wetDry 20 67 true 0.0 1.0 0.01 0.51 280 false 271 89 Wet 27 89 Dry depth 38 145 false 0.0 0.07 0.020699998 60 true 52 221 Depth 185 221 Min 245 221 Max minLfo 163 145 false 0.0 0.2 0.0063821496 60 true maxLfo 226 145 false 0.01 0.3 0.15674703 60 true 181 128 LFO Frequency 148 32 v 1.0