2.0
32.0
XlooperSolo1.3
-3355648
XlooperSolo1.2
The Xlooper Solo is a sampler based upon the flooper2 opcode. Once loaded, the length of the sample is scaled over the 3 sliders, indicating the relative positions for 'start', 'begin loop' and 'end loop'.
It features a unique Envelope system for filter and amplitude.
The Xlooper Solo loads one mono or stereo sample and:
- loops it in a variaty of directions
- autopanning for mono files - noraml stereo for stereo for stereofiles
- has a Lowpass, Highpass, Bandpass and Bandreject filter. These filters can be mixed
- has a freely editable envelope for the filter
- has a freely editable envelope for the amplitude
- amplitude envelope can be scaled and repeated over sample
- p4 = frequency, p5 = amplitude, so: i1 0 2 220 .8
- vibrato with fade in over note
- Optional Pianoroll module. When ticked, corresponds to the notes " i <INSTR_ID> <START> <DUR> <FREQ> <VELOCITY> " protocol.
januari, version 1.0
Note:
It is not possible to create Bezier-like curves in the LineObject of Blue, but ticking the "treat as exponential" option switches to GEN5. The picture does NOT reflect this visually.
;=========================set envelopes=========================================
if i(<amplitude exponential switch>) == 1 then ; create amplitude envelope
kenvamp loopxseg <scale amplitude envelope>/p3, 0, 0, <envelope_amplitude envelope>, 0 ; exponential envelope
else
kenvamp loopseg <scale amplitude envelope>/p3, 0, 0, <envelope_amplitude envelope>, 0 ; or linear envelepe
endif
if i(<filter exponential switch>) == 1 then ; create filter envelope
kenvfilter loopxseg (<scale filter envelope>/p3), 0, 0, <envelope_filter envelope>, 0 ; exponential envelope
else
kenvfilter loopseg (<scale filter envelope>/p3), 0, 0, <envelope_filter envelope>, 0 ; or linear envelepe
endif
kpitchbend loopxseg (<scale pitch envelope>/p3), 0, 0, <envelope_pitch bend envelope>, 0 ; exponential envelope
;================================================================================
kenvfilter *= <filter depth> ; filter depth
afilterenv interp kenvfilter
aampenv interp kenvamp
if <filter envelope> == 0 then ; switch for filter
kfilterenv = <frequency cutoff>
afilterenv interp kfilterenv
endif
ktuning = <tuning> ; set coarse tuning
if <pitch bend envelope> == 1 then ; envelope pitchbend
ktuning = <tuning> * kpitchbend
endif
if ktuning >=1 then ; compensate for loud screaming when tuning goes up
kcomp logcurve ktuning, 1.50
else
kcomp = 1
endif
;============================check sample ======================================
ivld filevalid <file> ; check if valid filter is imported - else, bypass
ichnls filenchnls <file> ; check number of channels
if ichnls == 1 && i(<report>) == 1 then
prints "\n---XlooperSolo of SubChannel %s uses a mono sample---\n\n", "<Subchannel>"
elseif ichnls == 2 && i(<report>) == 1 then
prints "\n---XlooperSolo of SubChannel %s uses a stereo sample---\n\n", "<Subchannel>"
endif
kpitch = <sample pitch>
identify = <INSTR_ID> ; for printing the right instrument
;============================dirt for loop======================================
kfade = <Xfade>
krand = <Xrandom>
ksplineX rspline -(krand), krand, 1, 10 ; randomize the crossfade time
;===========================vibrato=============================================
if i(<VibratoON>) == 1 then
if i(<vibrato fade in>) == 1 then
kvibfade_in expseg 0.01, p3, 1 ; fade in vibrato
else
kvibfade_in = 1
endif
kchanged changed2 <vibrato LFO type> ; check if LFO type has changed
if kchanged == 1 then
reinit STARTvibrato
endif
STARTvibrato:
kvb k_Vibrato i(<VibratoON>), <vibrato depth> * kvibfade_in, <vibrato speed> ,i(<vibrato LFO type>), 0, 0
endif
;========================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 istart_sample >= i(kbegin_sample) then
istart_sample = i(kbegin_sample)
endif
if ichnls == 1 then
kchangedstartmono changed2 <sample start playback>, <loop direction> ; check if start of start file playback and loop direction has changed
if kchangedstartmono == 1 then
reinit STARTmono
endif
STARTmono:
asigFL flooper2 1, ((kpitch) + kvb) * ktuning , kbegin_sample, kend_sample, kfade + ksplineX, iSample, istart_sample, i(<loop direction>)
asigFR = asigFL
asigFL *= <gain Left> * 1/kcomp
asigFR *= <gain Right> * 1/kcomp
else
kchangedstartstereo changed2 <sample start playback>, <loop direction>; check if start of start file playback and loop direction has changed
if kchangedstartstereo == 1 then
reinit STARTstereo
endif
STARTstereo:
asigFL, asigFR flooper2 1, ((kpitch) + kvb) * ktuning , kbegin_sample, kend_sample, kfade + ksplineX, iSample, istart_sample, i(<loop direction>)
asigFL *= <gain Left> * 1/kcomp
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
kQ = <filterQ>
ahpL,alpL,abpL,abrL statevar asigFL, afilterenv, kQ, 10
ahpR,alpR,abpR,abrR statevar asigFR, afilterenv, kQ, 10
alpL *= <filter lowpass gain>
ahpL *= <filter highpass gain>
abpL *= <filter bandpass gain>
abrL *= <filter bandreject gain>
alpR *= <filter lowpass gain>
ahpR *= <filter highpass gain>
abpR *= <filter bandpass gain>
abrR *= <filter bandreject gain>
asigL = ahpL + alpL + abpL + abrL ; mix all filter outputs
asigR = ahpR + alpR + abpR + abrR
else
asigL = asigFL
asigR = asigFR
endif
;=======================outputs=================================================
if ichnls == 1 then
if (<autopanning if mono sample> == 1) then
krandP randi 1, 1, 1
krandP = (krandP +1)*.5
asigL, asigR pan2 asigL, krandP, 0
else
asigL, asigR pan2 asigL, <panning the mono sample>, 0
endif
else
asigL = asigL
asigR = asigR
endif
if (<ADSRon> == 1) then
if <envelope speed> > 0 then
agate = lfo(1, <envelope speed>)
aretrig init 1
aenv adsr140 agate, aretrig, <amp attack>, <amp decay>, <amp sustain>, <amp release> ; 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>
endif
else ; no envelope
aenv = .4
endif
if <tuning> == 0 then ; block low clicks
asigL = 0
asigR = 0
endif
blueMixerOut "<Subchannel>", asigL * aampenv * aenv, asigR * aampenv * aenv
5
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
0x999900ff
0x4d1a4dff
0xffffffff
false
20
20
5
185
amplitude and filter envelope
0x999900ff
0x1a1a1aff
0xffffffff
true
1100
269
amplitude exponential switch
10
205
true
false
true
660
195
vibrato
0x999900ff
0x000000ff
0xffffffff
false
20
85
185
10
System Regular
12.0
vibrato fade in
10
60
true
false
true
vibrato speed
130
10
true
0.0
10.0
5.2
40
true
false
true
System Regular
12.0
vibrato depth
80
10
true
0.0
0.3
0.07200000000000001
40
true
false
true
System Regular
12.0
VibratoON
10
10
true
false
true
vibrato LFO type
180
30
true
0.0
5.0
1
3.0
20
true
false
920
5
Group
0x999900ff
0x000000ff
0xffffffff
false
20
20
scale amplitude envelope
125
5
true
1.0
20.0
1.0
35
true
true
false
System Regular
12.0
80
36
System Regular
12.0
25
10
System Regular
12.0
920
135
Group
0x999900ff
0x000000ff
0xffffffff
false
20
20
80
36
System Regular
12.0
scale pitch envelope
125
5
true
1.0
10.0
2.62
35
true
true
false
System Regular
12.0
pitch bend envelope
5
5
true
false
true
autopanning if mono sample
925
210
true
false
true
920
70
Group
0x999900ff
0x000000ff
0xffffffff
false
20
20
80
36
System Regular
12.0
filter envelope
5
5
true
true
true
scale filter envelope
125
5
true
1.0
20.0
10.31
35
true
true
false
System Regular
12.0
Subchannel
925
250
SSO1
100
5
5
Group
0x999900ff
0x000000ff
0xffffffff
false
20
20
envelope
10
10
890
150
1.0
true
COMMA
false
false
filter exponential switch
10
225
true
true
true
935
235
System Regular
12.0
300
195
Group
0x999900ff
0x000000ff
0xffffffff
false
20
86
115
10
System Regular
12.0
25
40
System Regular
12.0
filter bandpass gain
150
22
true
0.0
1.0
0.1
0.0
50
true
false
80
10
System Regular
12.0
185
10
System Regular
12.0
filterQ
285
10
true
0.1
3.0
1.1159999999999999
40
true
false
true
System Regular
12.0
filter highpass gain
115
22
true
0.0
1.0
0.1
0.0
50
true
false
filterON
10
10
true
true
true
filter depth
15
44
true
0.01
1.0
0.01
1.0
55
true
false
150
10
System Regular
12.0
filter bandreject gain
185
22
true
0.0
1.0
0.1
0.0
50
true
false
frequency cutoff
230
10
true
20.0
18000.0
4275.8
40
true
true
true
System Regular
12.0
filter lowpass gain
80
22
true
0.0
1.0
0.1
1.0
50
true
false
panning the mono sample
1040
205
true
0.0
1.0
0.5
41
true
false
true
System Regular
12.0
5
5
load sample
0x999900ff
0x1a1a1aff
0xffffffff
true
1097
20
98
92
System Regular
12.0
tuning
1030
25
true
0.01
4.0
0.01
1.45
50
true
true
885
130
System Regular
12.0
84
86
System Regular
12.0
sample start playback
118
48
true
0.0
1.0
0.001
0.0
830
true
false
gain Right
995
24
true
0.0
5.0
0.1
3.6
82
true
false
sample pitch
118
120
true
0.0
5.0
0.001
1.457
650
true
true
985
12
System Regular
12.0
sample begin loop
118
72
true
0.0
1.0
0.001
0.018
830
true
false
sample end loop
118
96
true
0.0
1.0
0.001
0.038
830
true
false
36
16
System Bold
20.0
gain Left
975
24
true
0.0
5.0
0.1
5.0
82
true
false
report
655
28
true
false
true
1005
12
System Regular
12.0
1035
10
System Regular
12.0
84
126
System Regular
12.0
88
102
System Regular
12.0
file
120
15
/media/menno/datae/EigenWerk/verzameling_ideejen/samples/freeze4tik.wav
500
true
82
78
System Regular
12.0
26
54
System Regular
12.0
loop direction
969
126
true
0
12
true
forward
0
backward
1
back-and-forth
2
18
92
System Regular
12.0
1105
5
Xfader
0x999900ff
0x000000ff
0xffffffff
true
20
471
10
10
System Regular
12.0
60
200
Group
0x00000033
0x000000ff
0xffffffff
false
20
20
amp sustain
5
130
true
0.0
1.0
0.53
33
true
true
true
System Regular
12.0
amp attack
5
0
true
0.0
1.0
0.0
33
true
true
true
System Regular
12.0
amp decay
5
64
true
0.0
1.0
1.0
33
true
true
true
System Regular
12.0
amp release
5
192
true
0.0
1.0
0.2
33
true
true
true
System Regular
12.0
envelope speed
65
22
true
0.0
15.0
0.01
7.72
144
true
true
ADSRon
65
28
true
true
true
Xrandom
10
390
true
0.0
0.1
0.05
41
false
true
true
System Regular
12.0
Xfade
5
22
true
-0.3
0.3
0.001
0.0040000000000000036
333
true
true
75
10
System Regular
12.0
true
false
Sub1
false
0.050000000000000044
ver2:0
true
false
false
version=2@_@amplitude envelope:0.0:0.001:0.0:1.0:0.5700934579439252:1.0:0.6214953271028038:1.0:0.8121495327102803:1.0:0.9411214953271028:1.0:1.0:0.001:1.0:0.001@_@filter envelope:0.0:9025.0:0.0691588785046729:1127.0000000000011:0.21401869158878506:2802.333333333333:0.514018691588785:9264.333333333332:0.516822429906542:528.6666666666658:0.7897196261682243:2802.333333333333:1.0:9025.0@_@Pitch Bend envelope:0.0:1.0:1.0:0.001
/media/menno/datae/EigenWerk/eigenwerk/menno21.wav
ver2:1.0:1.0
1.0
0.0
false
0.0
1.0
false
ver2:1.434
3060.7
id:-1228772213
false
ver2:0
0.161
0.182
0.245
0.152
15.41
1.0
false
0.0
ver2:0
ver2:0
ver2:3.92
true
false
Sub1
false
0.050000000000000044
ver2:0
true
false
false
version=2@_@amplitude envelope:0.0:0.001:0.0:1.0:0.5700934579439252:1.0:0.6214953271028038:1.0:0.8121495327102803:1.0:0.9411214953271028:1.0:1.0:0.001:1.0:0.001@_@filter envelope:0.0:9025.0:0.08037383177570094:13692.0:0.21401869158878506:2802.333333333333:0.516822429906542:528.6666666666658:0.7897196261682243:2802.333333333333:1.0:9025.0@_@Pitch Bend envelope:0.0:1.0:1.0:0.001
/media/menno/datae/EigenWerk/eigenwerk/menno21.wav
ver2:1.0:1.0
1.0
0.0
false
0.0
1.0
true
ver2:1.434
3060.7
id:-1228772213
false
ver2:0
0.161
0.182
0.245
0.152
15.41
1.0
false
0.0
ver2:0
ver2:0
ver2:3.92
true
true
Sub1
false
0.050000000000000044
ver2:0.56
true
false
false
version=2@_@amplitude envelope:0.0:0.001:0.0:1.0:0.5700934579439252:1.0:0.6214953271028038:1.0:0.8121495327102803:1.0:0.9411214953271028:1.0:1.0:0.001:1.0:0.001@_@filter envelope:0.0:9025.0:0.08037383177570094:13692.0:0.21401869158878506:2802.333333333333:0.516822429906542:528.6666666666658:0.7897196261682243:2802.333333333333:1.0:9025.0@_@Pitch Bend envelope:0.0:1.0:0.7214953271028037:5.013706666666667:1.0:0.001
/media/menno/datae/EigenWerk/eigenwerk/menno21.wav
ver2:1.0:1.0
1.0
0.0
false
0.0
1.0
true
ver2:1.434
3060.7
id:-1228772215
false
ver2:0
0.161
0.189
2.679
0.166
15.41
1.0
false
0.0
ver2:0
ver2:0
ver2:3.92
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
k_Vibrato
k
KKKiKK
kOnVibrato, kdepth, kspeed, itype, kjitdepth, kjitfreq xin
if kOnVibrato == 1 then ; if switch = ON, add vibrato to sall voices
kvb lfo kdepth, kspeed, itype ; LFO 0-5
kjit randi kjitdepth, kjitfreq ; create some jitter
kvibrato = kvb + kjit ; add jitter and LFO
else
kvibrato = 0 ; if switch = OFF, there is no vibrato
endif
xout kvibrato
XlooperSolo is a sampler.
XlooperSolo accepts one sample, mono or stereo.
Start In Sample, Begin Loop and End Loop are relative to the samples length, so loading a smaller sample gives better resolution for setting a loop.
The Sound SoundObject , like all Sound SoundObjects, passes the mixer through the SubChannel. This means:
1. a name entry must be given in the box SubChannel:
2. create a subchannel
3. rename this Subchannel to name given in the box SubChannel:
4. apply effects (if needed)
version 1.3, November 2019
- added 'report mono or stereo' to check if sample is mono or stereo
- added 3 different ADSRs, but the Amplitude Envelope can be used as an ADSR as well
version 1.1, August 2019
- filter section is simpler, added filter depth