XlooperSolo
DESCRIPTION:
XlooperSolo is a sampler for mono and stereo samples.
It can loop at any arbirary points, the loop points can be changed while playing. A fade time should is a guarantee (most of the times) for clickless loops.
Attention: by activating the filter, also the filter envelope drawings become available.
In Midi Pitch mode, Midi C4 = normal pitch of sample
In Frequency mode, frequency note 8.00 = normal pitch of sample
note example:
i2 0 0.8 60 1.0 ; P4 = midi value, P5 = amplitude
i2 0 0.2 261.625565 1.0 ; P4 = frequency, P5 = amplitude
CONTROLLERS:
see the help balloon when hovering over the controllers in the instrument. Help can be turned off by pressing the 'I' button next to the play bar.
---
version 1.2, July 2020
- changed filters section
- filter now has Key Follow and Amp Follow option
version 1.1, June 2020
- new Vibrato UDO
- score format real/midi switch. In midi, accepts 'in-between' note values
- better names for ALs
- added jitter for amplitude, filter and pitch
version 1.0, November 2019
- variable amplitude can create some tremolo effects
- ADSR with variable speed
- on/off for ADSR
;==================P4 and P5====================================================
ipitch, iamp k_SCORE_format_Sampler i(<SCORE_format_Sampler>), p4, p5
;=========================amplitude=============================================
if i(<amplitude exponential switch>) == 1 then ; create amplitude envelope
kenvamp loopxseg <envelope amplitude rate>/p3, 0, 0, <envelope_amplitude envelope>, 0 ; exponential envelope
else
kenvamp loopseg <envelope amplitude rate>/p3, 0, 0, <envelope_amplitude envelope>, 0 ; or linear envelepe
endif
kjitamp jitter <amplitude jitter depth>, <amplitude jitter min>, <amplitude jitter max> ; create some amplitude jitter
aampenv = (kenvamp + kjitamp) * <amplitude pregain> ; pregain for loaded sample + jitter ;
;================================pitch==========================================
ktuning = <tuning> ; set coarse tuning
if (<envelope pitch bend ON>) == 1 then ; envelope pitchbend
kenvpitchbend loopxseg <envelope pitch rate>/p3, 0, 0, <envelope_pitch bend envelope>, 0 ; exponential envelope
kjitpitch jitter <pitch jitter depth>, <pitch jitter min>, <pitch jitter max> ; create some pitch jitter
ktuning = (ktuning + kjitpitch) * kenvpitchbend
else
kenvpitchbend = 1
endif
if (<pitch slider> == 1) then ; set pitch slider
kpitch = <sample pitch>
else
kpitch = 1
endif
if (ktuning >=1) then ; compensate for loud screaming when tuning goes up
kcomp logcurve ktuning, 1.50
else
kcomp = 1
endif
if (<VibratoON> == 1) then ; vibrato
if i(<vibrato fade in>) == 1 then
kvibfade_in expseg 0.01, p3, 1 ; fade in the vibrato
else
kvibfade_in = 1 ; vibrato starts right away
endif
kvib = lfo3(<vibrato speed>, <vibrato wave>)
kvib *= <vibrato depth> * kvibfade_in
endif
;============================check sample ======================================
identify = <INSTR_ID> ; for printing the right instrument
ivld filevalid <file> ; check if valid filter is imported - else, bypass
ichnls filenchnls <file> ; check number of channels
ilen filelen <file> ; calculate length of soundfile
if (i(<show sample length>) == 1) then
prints "\n---sample lentgh = %f seconds---\n\n", ilen
endif
;============================dirt for loop======================================
kfade = <Xfade>
krand = <Xrandom>
ksplineX rspline -(krand), krand, 1, 10 ; randomize the crossfade time
;========================Sample ====================
if ivld > 0 then
iSample sampleONCE <file>
ilen filelen <file>
kbegin_sample = <sample begin loop> * ilen + kfade
kend_sample = <sample end loop> * ilen
istart_sample = i(<sample start playback>) * ilen
if ichnls == 1 then ; if mono sample
if (<check mono/stereo> == 1) then
prints "\n---XlooperSolo on channel %d uses a mono sample---\n\n", <INSTR_ID>
endif
kchangedstartmono changed2 <sample start playback>, <loop direction> ; check if start of start file playback has changed
if kchangedstartmono == 1 then
reinit STARTmono
endif
STARTmono:
asigFL flooper2 iamp, (ipitch * kpitch + kvib) * ktuning , kbegin_sample, kend_sample, kfade + ksplineX, iSample, istart_sample, i(<loop direction>)
rireturn
asigFR = asigFL
asigFL *= <gain Left> * 1/kcomp ; compensate volume jumps
asigFR *= <gain Right> * 1/kcomp
else ; if not mono sample
if (<check mono/stereo> == 1) then
prints "\n---XlooperSolo on channel %d uses a stereo sample---\n\n", <INSTR_ID>
endif
kchangedstartstereo changed2 <sample start playback>, <loop direction> ; check if start of start file playback has changed
if kchangedstartstereo == 1 then
reinit STARTstereo
endif
STARTstereo:
asigFL, asigFR flooper2 iamp, (ipitch * kpitch + kvib) * ktuning , kbegin_sample, kend_sample, kfade + ksplineX, iSample, istart_sample, i(<loop direction>)
rireturn
asigFL *= <gain Left> * 1/kcomp ; compensate volume jumps
asigFR *= <gain Right> * 1/kcomp
endif
if kbegin_sample >= kend_sample then ; protection 1
asigFL = 0
asigFR = 0
endif
if kend_sample <= kbegin_sample then ; protection 2
asigFL = 0
asigFR = 0
endif
else
asigFL = 0
asigFR = 0
endif
;================================filter=========================================
if <filterON> == 1 then
if i(<filter exponential switch>) == 1 then ; graphic filter envelope
kenvfilter loopxseg (<rate filter envelope>/p3), 0, 0, <envelope_filter envelope>, 0 ; exponential envelope
else
kenvfilter loopseg (<rate filter envelope>/p3), 0, 0, <envelope_filter envelope>, 0 ; or linear envelepe
endif
kcutoff expcurve <filter frequency cutoff>, 2 ; turn linear into exponential
if <filter follower> == 0 then ; disable follower
acutoff = kcutoff
elseif <filter follower> == 1 then ; amp --> filter
acutoff = iamp * kcutoff;
elseif <filter follower> == 2 then ; -(amp) --> filter
acutoff = kcutoff - (iamp * kcutoff)
elseif <filter follower> == 3 then ; key --> filter
acutoff = kcutoff * ipitch * kenvpitchbend
elseif <filter follower> == 4 then ; -(key) --> filter
acutoff = kcutoff * 1/ipitch * kenvpitchbend
endif
if (<filter envelopes> == 0) then ; envelopes disabled
; do nothing, just pass through
elseif (<filter envelopes> == 1) then ; filter ADS envelope
aretrig init 1
agate = 1
acutenv adsr140 agate, aretrig, <filter ads attack>, <filter ads decay>, <filter ads sustain>, 0
acutoff *= acutenv * <filter ads depth>
elseif (<filter envelopes> == 2) then ; filter graphical envelope
acutoff *= (kenvfilter * <filter envelope depth>)
elseif (<filter envelopes> == 3) then ; filter ADS envelope and graphical combined
acuto = (kenvfilter * <filter envelope depth> * 10000)
aretrig init 1
agate = 1
afilterads adsr140 agate, aretrig, <filter ads attack>, <filter ads decay>, <filter ads sustain>, 0
acutoff = acuto + (afilterads * <filter ads depth> * 10000)
endif
acutoff *= <filter total depth> ; total depth of filter
acutoff limit acutoff, 20, 21000 ; limit frequency band of filter
; the filters
kQ = <filter resonance>
al, abpL, ahpL zdf_2pole_mode asigFL, acutoff, kQ ; don't use lowpass filter here
ar, abpR, ahpR zdf_2pole_mode asigFR, acutoff, kQ ; use only for bandpass and highpass (12 dB)
alpL zdf_ladder asigFL, acutoff, kQ ; but use this lowpass (24 dB)
alpR zdf_ladder asigFR, acutoff, kQ
alpL *= <filter lowpass gain> ; filters gain Left
ahpL *= <filter highpass gain>
abpL *= <filter bandpass gain>
alpR *= <filter lowpass gain> ; filters gain Right
ahpR *= <filter highpass gain>
abpR *= <filter bandpass gain>
aoutL = (ahpL + alpL + abpL) ; mix all filter gains
aoutR = (ahpR + alpR + abpR)
else
aoutL = asigFL
aoutR = asigFR
endif
;=======================outputs=================================================
if ichnls == 1 && (<autopanning if mono> == 1) then ; autopan mono sample
krandP randi 1, 1, 1
krandP = (krandP +1)*.5
asigL, asigR pan2 aoutL, krandP, 0
else
asigL = aoutL
asigR = aoutR
endif
if (<ADSR trigger> == 1) then
if <ADSR envelope speed> > 0 then
agate = lfo(1, <ADSR envelope speed>)
aretrig init 1
aenv adsr140 agate, aretrig, <amp attack>, <amp decay>, <amp sustain>, <amp release> ; retriggering envelope 1 or
else
aretrig init 1
agate = linseg:a(1, p3 - i(<amp release>), 1, .001, 0, i(<amp release>), 0)
aenv adsr140 agate, aretrig, <amp attack>, <amp decay>, <amp sustain>, <amp release> ; envelope 2
endif
else ; no envelope at all
aenv = .4
endif
if <tuning> == 0 then ; block low clicks, protection 3
asigL = 0
asigR = 0
endif
blueMixerOut asigL * aampenv * aenv, asigR * aampenv * aenv
2
2
DOT
true
0
0
Group
0x00000033
0x000000ff
0xffffffff
true
20
20
0
0
l---------------------------- X L o o p e r S o l o ----------------------------l
0x4d4d4dff
0x4d1a4dff
0xffffffff
true
20
20
825
190
amplitude envelope
0x669966ff
0x000000ff
0xffffffff
true
215
93
amplitude jitter min
125
10
minimum value for randomness
true
0.0
38.0
20.14
35
false
true
true
System Regular
12.0
envelope amplitude rate
35
10
repeat amplitude envelope as set in window
true
1.0
20.0
1.0
35
false
true
true
System Regular
12.0
6
26
System Regular
12.0
amplitude jitter max
165
10
maximum value for randomness
true
0.0
40.0
40.0
35
false
true
true
System Regular
12.0
amplitude exponential switch
10
12
true
true
true
amplitude jitter depth
85
10
adds randomness to amplitude
true
0.0
3.0
0.06000000000000005
35
true
false
true
System Regular
12.0
824
302
pitch envelope
0x669966ff
0x000000ff
0xffffffff
true
215
85
pitch jitter min
125
10
minimum value for randomness
true
0.0
100.0
23.0
35
true
false
true
System Regular
12.0
envelope pitch bend ON
10
10
on/off
true
false
true
envelope pitch rate
35
10
repeat pitch envelope
true
1.0
20.0
1.0
35
true
false
true
System Regular
12.0
pitch jitter depth
85
10
adds randomness to pitch envelope
true
0.0
1.0
0.0
35
true
false
true
System Regular
12.0
pitch jitter max
165
10
maximum value for randomness
true
0.0
100.0
58.0
35
true
false
true
System Regular
12.0
12
406
filters
0x669966ff
0x000000ff
0xffffffff
false
824
20
filter resonance
298
8
gain of feedback of filters
true
0.5
25.0
25.0
40
true
true
true
System Regular
12.0
filter frequency cutoff
254
8
cutoff frequency of filters
true
4.35
14.3
10.519
40
true
true
true
System Regular
12.0
filter follower
11
52
open and close filter depending on amplitude or frequency
true
3
12
true
---
0
amp follow
1
amp follow invert
2
key follow
3
key follow invert
4
filter total depth
363
8
gain of filters
true
0.0
1.0
1.0
40
true
true
true
System Regular
12.0
210
8
System Regular
12.0
filter highpass gain
180
20
gain of highpass filter
true
0.0
0.5
0.1
0.5
56
true
false
filter lowpass gain
148
20
gain of lowpass filter
true
0.0
2.5
0.1
0.0
56
true
false
415
4
envelopes
0x669966ff
0x000000ff
0xffffffff
false
20
20
filter exponential switch
344
38
treat anvelope ar exponential
true
true
true
filter ads decay
49
36
decay portion of envelope
true
0.0
1.0
0.15000000000000002
31
true
false
true
System Regular
12.0
filter envelope depth
359
24
gain of filter envelope
true
0.0
1.0
0.05
0.0
57
true
false
filter ads attack
7
36
attack portion of envelope
true
0.0
1.0
1.0
31
true
false
true
System Regular
12.0
filter envelopes
171
50
bypass envelopes, or choose one of them or both of them
true
0
12
true
disabled
0
AttDecSus
1
Graphic
2
ADS+Graphic
3
rate filter envelope
300
36
frequency rate of filter envelope
true
1.0
30.0
18.98
31
true
false
true
System Regular
12.0
340
54
System Regular
12.0
356
10
System Regular
12.0
filter ads sustain
87
36
sustain portion of envelope
true
0.0
1.0
0.5700000000000001
31
true
false
true
System Regular
12.0
280
10
System Bold
18.0
132
8
System Regular
12.0
filter ads depth
137
22
gain of ADS envelope
true
0.0
1.0
0.01
1.0
57
true
false
7
8
System Bold
18.0
180
8
System Regular
12.0
filterON
11
8
filters ON or OFF
true
true
true
153
8
System Regular
12.0
filter bandpass gain
212
20
gain of bandpass filter
true
0.0
0.5
0.1
0.0
56
true
false
10
190
amplitude = red, filter = blue, brown = pitch
envelopes
0x669966ff
0x1a1a1aff
0xffffffff
true
815
199
0
0
amplitude = red, filter = blue, brown = pitch
Group
0x669966ff
0x000000ff
0xffffffff
false
20
20
envelope
10
10
amplitude = red, filter = blue, brown = pitch
785
150
1.0
true
COMMA
false
false
10
10
load sample
0x669966ff
0x1a1a1aff
0xffffffff
true
1030
20
tuning
955
25
global tuning for all voices
true
1.0E-5
4.0
0.01
1.00001
50
true
true
sample start playback
118
48
length of this slider represents the total of the sample
true
0.0
1.0
0.001
0.293
750
true
false
show sample length
668
10
true
false
true
amplitude pregain
895
25
pre amplify the sample (in case if sample has too soft ot too loud amplitude)
true
0.0
5.0
0.01
2.63
81
true
false
36
16
System Bold
20.0
loop direction
890
125
forward/backward/back-and-forth looping
true
2
12
true
forward
0
backward
1
back-and-forth
2
84
86
System Regular
12.0
88
102
System Regular
12.0
18
92
System Regular
12.0
98
92
System Regular
12.0
pitch slider
820
125
if checked, pitch slider value is imposed
true
true
true
sample end loop
118
96
set end loop point
true
0.0
1.0
0.001
0.327
750
true
false
860
130
System Regular
12.0
85
80
System Regular
12.0
84
126
System Regular
12.0
sample pitch
118
120
set sample to pitch, pitch off = pitch 1
true
0.0
3.0
0.001
0.187
650
true
true
sample begin loop
118
72
set start loop point in sample
true
0.0
1.0
0.001
0.314
750
true
false
check mono/stereo
668
29
false
false
true
file
120
15
import sample to use
/media/menno/datae/EigenWerk/verzameling_ideejen/samples/robot.wav
500
true
900
10
System Regular
12.0
960
10
System Regular
12.0
26
54
System Regular
12.0
836
406
vibrato
0x669966ff
0x000000ff
0xffffffff
false
204
104
VibratoON
12
8
switch for Vibrato ON or OFF
true
false
true
12
56
System Regular
12.0
vibrato wave
44
50
sine, triangle, square x 2, saw up, saw down
true
1.0
5.0
1
3.0
52
true
false
vibrato fade in
12
30
vibrato sets in slowly and is at full at the end of the note event
true
false
true
vibrato speed
152
8
frequency rate of vibrato
true
0.0
10.0
4.699999999999999
40
true
true
true
System Regular
12.0
vibrato depth
102
8
depth of the vibrato
true
0.0
0.15
0.15
40
true
true
true
System Regular
12.0
1040
10
global
0x669966ff
0x1a1a1aff
0xffffffff
true
20
481
140
321
System Regular
12.0
100
15
Group
0x669966ff
0x000000ff
0xffffffff
false
20
20
15
10
System Regular
12.0
Xfade
10
30
crossfade looper time in seconds, usually 0.5
true
-0.5
0.5
0.001
-0.16099999999999998
180
true
true
Xrandom
20
250
adds randomness to crossfade looper point
true
0.0
0.1
0.08200000000000002
31
false
false
true
System Regular
12.0
gain Right
130
331
gain of Right channel
true
0.0
5.0
0.01
2.04
85
true
false
ADSR trigger
20
10
active retriggering of ADSR
true
false
true
ADSR envelope speed
25
50
speed of retriggering
true
0.0
15.0
0.01
10.88
145
true
true
25
230
4 envelopes for amplitude
Group
0x00000033
0x000000ff
0xffffffff
false
20
20
amp release
0
135
true
0.0
1.0
0.3500000000000001
31
true
false
true
System Regular
12.0
amp sustain
0
90
true
0.0
1.0
0.19999999999999996
31
true
false
true
System Regular
12.0
amp attack
5
0
true
0.0
1.0
0.0
31
true
false
true
System Regular
12.0
amp decay
5
45
true
0.0
1.0
0.2899999999999999
31
true
false
true
System Regular
12.0
120
321
System Regular
12.0
SCORE_format_Sampler
28
444
choose for pitch between midi notes/real values
true
0
12
true
P4 = frequency
0
P4 = MIDI pitch
1
15
35
System Regular
12.0
gain Left
109
330
gain Left channel
true
0.0
5.0
0.01
2.0
86
true
false
autopanning if mono
34
422
if SF is mono, proovides some stereo panning
true
true
true
4
5
true
0.04800000000000004
ver2:0.31
true
false
261.625565
false
version=2@_@amplitude envelope:0.0:0.0:0.19550561797752808:1.0:0.5700934579439252:1.0:0.6214953271028038:1.0:0.8121495327102803:1.0:1.0:0.0:1.0:0.0@_@filter envelope:0.0:9025.0:0.0691588785046729:1127.0000000000011:0.21460674157303372:648.3333333333331:0.516822429906542:528.6666666666658:0.798876404494382:7828.333333333334:1.0:289.3333333333329@_@pitch bend envelope:0.0:2.3466666666666667:0.525233644859813:2.293333333333333:0.5831460674157304:1.12:0.7168539325842697:1.7599999999999998:0.8299065420560747:0.0:1.0:2.24
/media/menno/datae/EigenWerk/eigenwerk/samples/gilpiep.wav
ver2:1.0:1.0
1.0
0.0
true
false
0.0
1.0
true
ver2:1.666
2517.2
id:-717362694
ver2:0.54
false
true
false
0.299
0.321
1.0
0.237
ver2:1
ver2:1
ver2:1
1.0
2.0
ver2:0.102
false
ver2:10
ver2:1.76
4
5
false
0.04800000000000004
ver2:0.31
true
false
261.625565
false
version=2@_@amplitude envelope:0.0:0.0:0.19550561797752808:1.0:0.5700934579439252:1.0:0.6214953271028038:1.0:0.8121495327102803:1.0:1.0:0.0:1.0:0.0@_@filter envelope:0.0:9025.0:0.0691588785046729:1127.0000000000011:0.21460674157303372:648.3333333333331:0.516822429906542:528.6666666666658:0.798876404494382:7828.333333333334:1.0:289.3333333333329@_@pitch bend envelope:0.0:2.3466666666666667:0.525233644859813:2.293333333333333:0.5831460674157304:1.12:0.7168539325842697:1.7599999999999998:0.8299065420560747:0.0:1.0:2.24
/media/menno/datae/EigenWerk/eigenwerk/samples/gilpiep.wav
ver2:1.0:0.0
1.0
0.0
true
false
0.0
1.0
true
ver2:1.666
2517.2
id:-717362696
ver2:0.54
false
false
false
0.572
0.61
1.0
0.528
ver2:1
ver2:1
ver2:1
1.0
5.0
ver2:0.045
false
ver2:10
ver2:1.76
false
0.04800000000000004
ver2:0.26
true
false
false
version=2@_@amplitude envelope:0.0:0.0:0.19550561797752808:1.0:0.5700934579439252:1.0:0.6214953271028038:1.0:0.8121495327102803:1.0:1.0:0.0:1.0:0.0@_@filter envelope:0.0:9025.0:0.0691588785046729:1127.0000000000011:0.21460674157303372:648.3333333333331:0.516822429906542:528.6666666666658:0.798876404494382:7828.333333333334:1.0:289.3333333333329@_@pitch bend envelope:0.0:2.3466666666666667:0.525233644859813:2.293333333333333:0.5831460674157304:1.12:0.7168539325842697:1.7599999999999998:0.8299065420560747:0.0:1.0:2.24
/media/menno/datae/EigenWerk/verzameling_ideejen/samples/tiedtest.wav
ver2:1.0:1.0
1.0
0.0
true
true
0.0
1.0
true
ver2:0.651
2517.2
id:1680432903
ver2:0.54
false
false
0.45
0.503
2.504
0.346
ver2:1
ver2:7.46
ver2:1
1.0
5.0
ver2:0.045
false
ver2:10
ver2:0.48
sampleONCE
i
S
Sfile xin
itable chnget Sfile
if (itable == 0) then
itable ftgen 0, 0, 0, 1, Sfile, 0, 0, 0
chnset itable, Sfile
endif
xout itable
adsr140_calc_coef
k
kk
knum_samps, kratio xin
xout exp( -log((1.0 + kratio) / kratio) / knum_samps)
adsr140
a
aakkkk
agate, aretrig, kattack, kdecay, ksustain, krelease xin
kstate init 0 ; 0 = attack, 1 = decay, 2 = sustain
klasttrig init -1
kval init 0.0
asig init 0
kindx = 0
kattack_base init 0
kdecay_base init 0
krelease_base init 0
kattack_samps init 0
kdecay_samps init 0
krelease_samps init 0
kattack_coef init 0
kdecay_coef init 0
ksustain_coef init 0
klast_attack init -1
klast_decay init -1
klast_release init -1
if (klast_attack != kattack) then
klast_attack = kattack
if(kattack > 0) then
kattack_samps = kattack * sr
kattack_coef = adsr140_calc_coef(kattack_samps, 0.3)
kattack_base = (1.0 + 0.3) * (1 - kattack_coef)
else
kattack_samps = 0
kattack_coef = 0
kattack_base = 0
endif
endif
if (klast_decay != kdecay) then
klast_decay = kdecay
kdecay_samps = kdecay * sr
kdecay_coef = adsr140_calc_coef(kdecay_samps, 0.0001)
kdecay_base = (ksustain - 0.0001) * (1.0 - kdecay_coef)
endif
if (klast_release != krelease) then
klast_release = krelease
krelease_samps = krelease * sr
krelease_coef = adsr140_calc_coef(krelease_samps, 0.0001)
krelease_base = -0.0001 * (1.0 - krelease_coef)
endif
while (kindx < ksmps) do
if (agate[kindx] > 0) then
kretrig = aretrig[kindx]
if (kretrig > 0 && klasttrig <= 0) then
kstate = 0
endif
klasttrig = kretrig
if (kstate == 0) then
if(kattack <= 0) then
kval = 1.0
kstate = 1
else
kval = kattack_base + (kval * kattack_coef)
if(kval >= 1.0) then
kval = 1.0
kstate = 1
endif
asig[kindx] = kval
endif
elseif (kstate == 1) then
kval = kdecay_base + (kval * kdecay_coef)
if(kval <= ksustain) then
kval = ksustain
kstate = 2
endif
asig[kindx] = kval
else
asig[kindx] = ksustain
endif
else ; in a release state
kstate = 0
if (kval == 0.0) then
asig[kindx] = 0
else
; releasing
kval = krelease_base + (kval * krelease_coef)
if(kval <= 0.0) then
kval = 0.0
endif
asig[kindx] = kval
endif
endif
kindx += 1
od
xout asig
k_SCORE_format_Sampler
ii
iii
iscore, ipitch, iamp xin
if (iscore == 0) then ; frequency mode
ipitch *= .0038222
else
ipitch = semitone(ipitch - 48)
endif
xout ipitch, iamp
k_Vibrato_noJitter
k
kkkk
kOnVibrato, kdepth, kspeed, kwave xin
if kOnVibrato == 1 then ; if switch = ON, add vibrato to sall voices
if(changed2(kwave)==1) then ; check if LFO type has changed
reinit VIBRATOreinit
endif
VIBRATOreinit:
itype = i(kwave)
kvibrato lfo kdepth, kspeed, itype ; LFO 0-5
rireturn
else
kvibrato = 0 ; if switch = OFF, there is no vibrato
endif
xout kvibrato
lfo3
k
kk
kcps, ktype xin
iSineTable chnget "lfo2_sine"
if (iSineTable == 0) then
iSineTable ftgen 0, 0, 65536, 10, 1 ; sine wave
chnset iSineTable, "lfo2_sine"
endif
kout init 0
if (ktype == 0) then ;SINE
kout oscil3 1, kcps, iSineTable
elseif (ktype == 1) then ;TRIANGLE
aout vco2 1, kcps, 12
kout downsamp aout
elseif (ktype == 2) then ;SQUARE (BI-POLAR)
aout vco2 1, kcps, 10
kout downsamp aout
elseif (ktype == 3) then ;SQUARE (UNI-POLAR)
aout vco2 1, kcps, 10
kout downsamp aout
kout = (kout + 1) / 2
elseif (ktype == 4) then ;SAW TOOTH (UP)
aout vco2 1, kcps, 0
kout downsamp aout
elseif (ktype == 5) then ;SAW TOOTH (DOWN)
aout vco2 1, kcps, 0
kout downsamp aout
kout = kout * -1
endif
xout kout