Solina
true
2
2
if (<SolinaON> == 1) then
aout1 solina_chorus ain1, <Solina_freq1>, <Solina_amp1>, <Solina_freq2>, <Solina_amp2>
aout2 solina_chorus ain2, <Solina_freq1>, <Solina_amp1>, <Solina_freq2>, <Solina_amp2>
aout1 ntrpol ain1, aout1*1.2, <Solina_mix> ; create a dry/wet mix
aout2 ntrpol ain2, aout2*1.2, <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
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)
sol_lfo_3
aaa
kk
kfreq, kamp xin
isolina_parabola ftgen 0, 0, 65537, 19, 0.5, 1, 180, 1
aphs phasor kfreq
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
a
akkkk
aLeft, klfo_freq1, klfo_amp1, klfo_freq2, klfo_amp2 xin
imax = 100
;; slow lfo
as1, as2, as3 sol_lfo_3 klfo_freq1, klfo_amp1
;; fast lfo
af1, af2, af3 sol_lfo_3 klfo_freq2, klfo_amp2
at1 = limit(as1 + af1 + 5, 0.0, imax)
at2 = limit(as2 + af2 + 5, 0.0, imax)
at3 = limit(as3 + af3 + 5, 0.0, imax)
a1 vdelay3 aLeft, at1, imax
a2 vdelay3 aLeft, at2, imax
a3 vdelay3 aLeft, at3, imax
xout (a1 + a2 + a3) / 3
10
2
DOT
true
0
0
Group
0x00000033
0x000000ff
0xffffffff
true
20
20
SolinaON
0
0
bypass
true
true
true
10
10
ReverbSC
0x4d8080ff
0x000000ff
0xffffffff
false
170
20
Solina_amp2
160
20
amount of gain of the LFO 2
true
0.0
1.0
0.01
0.6
60
true
false
160
10
System Regular
12.0
Solina_amp1
60
20
amount of gain of the LFO 1
true
0.0
1.0
0.01
0.5
60
true
false
Solina_freq2
110
10
frequency 2 of LFOs
true
0.0
10.0
1.7000000000000002
40
true
true
true
System Regular
12.0
Solina_freq1
10
10
frequency 1 of LFOs
true
0.0
10.0
0.18
40
true
true
true
System Regular
12.0
Solina_mix
10
84
mix direct signal with effect
true
0.0
1.0
0.1
1.0
190
true
false
90
80
System Regular
12.0
60
10
System Regular
12.0