SolinaStereo true 2 2 if (<SolinaON> == 1) then aout1, aout2 solina_chorus_stereo ain1, ain2, <Solina_freq1>, <Solina_amp1>, <Solina_freq2>, <Solina_amp2>, <Solina_stereo> aout1 ntrpol ain1, aout1*1.4, <Solina_mix> ; create a dry/wet mix aout2 ntrpol ain2, aout2*1.4, <Solina_mix> else aout1 = ain1 aout2 = ain2 endif DESCRIPTION: Solina Chorus, based on Solina String Ensemble Chorus Module based on: J. Haible: Triple Chorus http://jhaible.com/legacy/triple_chorus/triple_chorus.html Hugo Portillo: Solina-V String Ensemble http://www.native-instruments.com/en/reaktor-community/reaktor-user-library/entry/show/4525/ Parabola tabled shape borrowed from Iain McCurdy delayStereoChorus.csd: http://iainmccurdy.org/CsoundRealtimeExamples/Delays/delayStereoChorus.csd Author: Steven Yi Date: 2016.05.22 CONTROLLERS: ON/OFF - bypass freq1/2 - frequency 1 and 2 of LFOs amp1/2 - amount of gain of the LFOs stereo - switch to mono or stereo 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 from UDOs by Steven Yi (2016) and tgrey (2016). tgrey added a stereo option. sol_lfo_3 aaa kkk kfreq, kamp, ksplit xin isolina_parabola ftgen 0, 0, 65537, 19, 0.5, 1, 180, 1 aphs1 phasor kfreq aphs2 phasor kfreq, .5 ksplit port ksplit, .0825 ; smooth switch of ksplit to avoid clicks asplit interp ksplit aphs = (aphs2 * asplit)+(aphs1 * (1 - asplit)) a0 tablei aphs, isolina_parabola, 1, 0, 1 a120 tablei aphs, isolina_parabola, 1, 0.333, 1 a240 tablei aphs, isolina_parabola, 1, -0.333, 1 xout (a0 * kamp), (a120 * kamp), (a240 * kamp) solina_chorus_stereo aa aakkkkk aLeft, aRight, klfo_freq1, klfo_amp1, klfo_freq2, klfo_amp2, ksplit xin imax = 100 ;; slow lfo as1, as2, as3 sol_lfo_3 klfo_freq1, klfo_amp1, 0 ;; fast lfo af1, af2, af3 sol_lfo_3 klfo_freq2, klfo_amp2, 0 ;;; slow lfo asr1, asr2, asr3 sol_lfo_3 klfo_freq1, klfo_amp1, ksplit ; ;; fast lfo afr1, afr2, afr3 sol_lfo_3 klfo_freq2, klfo_amp2, ksplit at1 = limit(as1 + af1 + 5, 0.0, imax) at2 = limit(as2 + af2 + 5, 0.0, imax) at3 = limit(as3 + af3 + 5, 0.0, imax) atr1 = limit(asr1 + afr1 + 5, 0.0, imax) atr2 = limit(asr2 + afr2 + 5, 0.0, imax) atr3 = limit(asr3 + afr3 + 5, 0.0, imax) aL1 vdelay3 aLeft, at1, imax aL2 vdelay3 aLeft, at2, imax aL3 vdelay3 aLeft, at3, imax aR1 vdelay3 aRight, atr1, imax aR2 vdelay3 aRight, atr2, imax aR3 vdelay3 aRight, atr3, imax xout (aL1 + aL2 + aL3) * .3, (aR1 + aR2 + aR3) * .3 5 5 DOT true 0 0 Group 0x00000033 0x000000ff 0xffffffff true 20 20 10 10 SolinaStereo 0x4d8080ff 0x000000ff 0xffffffff false 251 119 Solina_mix 10 95 mix direct signal with effect true 0.0 1.0 0.1 0.9 240 true false 215 15 System Regular 12.0 Solina_stereo 225 35 switch to mono or stereo true 10 10 Group 0x00000033 0x000000ff 0xffffffff false 20 20 Solina_freq1 5 5 frequency 1 of LFOs true 0.0 10.0 0.18 40 true true true System Regular 12.0 Solina_amp1 55 15 amount of gain of the LFO 1 true 0.0 1.0 0.01 0.72 60 true false 155 5 System Regular 12.0 Solina_amp2 155 15 amount of gain of the LFO 2 true 0.0 1.0 0.01 0.6 60 true false Solina_freq2 105 5 frequency 2 of LFOs true 0.0 10.0 1.7000000000000002 40 true true true System Regular 12.0 55 5 System Regular 12.0 220 90 System Regular 12.0 SolinaON 0 0 bypass true