5.0
29.0
Cycloop
-12566464
untitled
iHanning ftgenonce 0, 0, 8192, 20, 2, 1 ; grain window
;===============================================================================
if i(<amplitude exponential switch>) == 1 then ; create amplitude envelope
kenvamp loopxseg <envelope amplitude scale>/p3, 0, 0, <envelope_amplitude envelope>, 0 ; exponential envelope
else
kenvamp loopseg <envelope amplitude scale>/p3, 0, 0, <envelope_amplitude envelope>, 0 ; or linear envelepe
endif
kjitamp jitter <envelope amplitude jitter depth>, <envelope amplitude jitter min>, <envelope amplitude jitter max> ; create some amplitude jitter
kenvamp += kjitamp
;=========================filter================================================
if i(<filter exponential switch>) == 1 then ; create filter envelope
kenvfilter loopxseg (<envelope filter scale>/p3), 0, 0, <envelope_filter envelope>, 0 ; exponential envelope
else
kenvfilter loopseg (<envelope filter scale>/p3), 0, 0, <envelope_filter envelope>, 0 ; or linear envelepe
endif
if <filter envelope ON> == 0 then ; switch for filter
kfilterenv = <filter frequency cutoff>
afilterenv interp kfilterenv
endif
kjitfilt jitter <envelope filter jitter depth>, <envelope filter jitter min>, <envelope filter jitter max> ; create some filter jitter
kenvfilter += abs(kjitfilt)
afilterenv interp kenvfilter
;==============================pitch bend=======================================
if <envelope pitch bend ON> == 1 then ; envelope pitchbend
kpitchbend loopxseg <envelope pitch scale>/p3, 0, 0, <envelope_pitch bend envelope>, 0 ; exponential envelope
kjitpitch jitter <envelope pitch jitter depth>, <envelope pitch jitter min>, <envelope pitch jitter max> ; create some pitch jitter
kpitchbend += kjitpitch
else
kpitchbend = 1
endif
;========================samples================================================
ilength, iSampleLEFT, iSampleRIGHT sampleONCE_stereo <file>
kbegin_loop = <sample loop begin> * ilength ; convert length of sample to range 0-1
kend_loop = <sample loop end> * ilength
istart_sample = i(<sample start playback>) * ilength
kSwitch changed2 <overlaps>, <sample start playback> ; re-init grain overlaps CAN CAUSE CRASHES!!!!!!
if kSwitch=1 then
reinit STARTSYNC
endif
STARTSYNC: ; produce synchronous grains
iolaps = i(<overlaps>)
kout logcurve (<overlaps>*.01), 20 ; attempt to minimize amp explosions when overlaps changes
kfrequency = iolaps/<grain size>
asigFL syncloop <amplitude scaling> * kenvamp, kfrequency, <sample pitch> * kpitchbend, <grain size>, <grain rate>, kbegin_loop, kend_loop, iSampleLEFT, iHanning, iolaps, istart_sample
asigFR syncloop <amplitude scaling> * kenvamp, kfrequency, <sample pitch> * kpitchbend, <grain size>, <grain rate>, kbegin_loop, kend_loop, iSampleRIGHT, iHanning, iolaps, istart_sample
rireturn
kvoloverlap = (1/kout)
;===============================================================================
if <filterON> == 1 then
kQ = <filter Q>
ahpL,alpL,abpL2,abrL statevar asigFL, afilterenv, kQ, 10
ahpR,alpR,abpR,abrR statevar asigFR, afilterenv, kQ, 10
abpL dcblock abpL2
klpgain = <filter lowpass gain>
khpgain = 1-<filter highpass gain>
kbpgain = <filter bandpass gain>
kbrgain = 1-<filter bandreject gain>
kfilterX = <filterX> ; for use with XY controller
kfilterY = <filterY> ; set amplitude for the 4 filters
klp limit sqrt((1-kfilterX)*kfilterY), 0, 1
khp limit sqrt(kfilterX*kfilterY), 0, 1
kbp limit sqrt((1-kfilterY)*(1-kfilterX)), 0, 1
kbr limit sqrt((1-kfilterY)*kfilterX), 0, 1
alpL *= klp * klpgain
ahpL *= khp * khpgain
abpL *= kbp * kbpgain
abrL *= kbr * kbrgain
alpR *= klp * klpgain
ahpR *= khp * khpgain
abpR *= kbp * kbpgain
abrR *= kbr * kbrgain
asigL = ahpL + alpL + abpL + abrL ; mix all filter outputs
asigR = ahpR + alpR + abpR + abrR
else
asigL = asigFL
asigR = asigFR
endif
;==============================================
if (<ADSRon> == 1) then
if <ADSR speed> > 0 then
agate = lfo(1, <ADSR speed>)
aretrig init 1
aenv adsr140 agate, aretrig, <ADSR attack>, <ADSR decay>, <ADSR sustain>, <ADSR release> ; envelope 1 or
else
aretrig init 1
agate = linseg:a(1, p3 - i(<ADSR release>), 1, .001, 0, i(<ADSR release>), 0)
aenv adsr140 agate, aretrig, <ADSR attack>, <ADSR decay>, <ADSR sustain>, <ADSR release> ; envelope 2
endif
else ; no envelope
aenv = .8
endif
blueMixerOut "<Subchannel>", asigL * aenv * <output Left> * kvoloverlap, asigR * aenv * <output Right> * kvoloverlap
5
2
DOT
true
0
0
Group
0x00000033
0x000000ff
0xffffffff
true
20
20
0
475
expon
0x666600ff
0x000000ff
0xffffffff
false
105
95
filter exponential switch
10
30
true
true
true
amplitude exponential switch
10
10
true
true
true
102
476
Group
0x666600ff
0x000000ff
0xffffffff
false
20
95
124
61
System Regular
12.0
filterON
5
10
true
true
true
239
24
System Regular
12.0
239
61
System Regular
12.0
filter
190
19
true
40
40
0.0
1.0
0.0
1.0
0.0
1.0
true
false
filter lowpass gain
139
6
true
0.0
1.0
0.1
1.0
50
true
false
filter frequency cutoff
4
46
true
20.0
18000.0
0.1
2490.0
60
true
true
filter highpass gain
229
6
true
0.0
1.0
0.1
0.0
50
true
false
134
26
System Regular
12.0
filter bandpass gain
140
45
true
0.0
1.0
0.1
1.0
50
true
false
filter Q
310
12
true
0.1
3.0
2.1299999999999994
40
true
false
true
System Regular
12.0
filter bandreject gain
229
46
true
0.0
1.0
0.1
0.0
50
true
false
2
285
envelopes per note
0x666600ff
0x000000ff
0xffffffff
false
20
190
envelope
10
10
440
150
1.0
true
COMMA
false
false
0
0
sample properties
0x666600ff
0x1a1a1aff
0xffffffff
true
614
20
50
82
System Regular
12.0
44
88
System Regular
12.0
sample loop begin
70
62
true
0.0
1.0
0.001
0.0
570
true
false
file
72
12
beats.wav
563
true
36
76
System Regular
12.0
12
49
System Regular
12.0
8
82
System Regular
12.0
sample loop end
70
79
true
0.0
1.0
0.001
0.2
570
true
false
38
109
System Regular
12.0
sample pitch
70
103
true
-2.0
2.0
0.001
1.0
545
true
true
sample start playback
70
45
true
0.0
1.0
0.001
0.0
570
true
false
34
68
System Regular
12.0
465
380
filter
0x666600ff
0x000000ff
0xffffffff
false
20
20
envelope filter jitter max
165
5
true
0.0
100.0
67.0
35
true
true
true
System Regular
12.0
envelope filter jitter min
125
5
true
0.0
100.0
28.000000000000014
35
true
true
true
System Regular
12.0
filter envelope ON
10
10
true
false
true
envelope filter jitter depth
85
5
true
0.0
10000.0
0.0
35
true
true
true
System Regular
12.0
envelope filter scale
35
5
true
1.0
20.0
1.0
35
true
true
true
System Regular
12.0
10
70
System Regular
12.0
0
162
grain properties
0x666600ff
0x000000ff
0xffffffff
true
20
20
grain size
72
9
true
0.001
1.0
0.001
0.338
543
true
true
352
71
System Regular
12.0
48
15
System Regular
12.0
grain rate
72
33
true
-5.0
5.0
0.001
-3.269
543
true
true
48
39
System Regular
12.0
overlaps
70
65
true
1.0
100.0
1
22.0
208
true
true
20
71
System Regular
12.0
amplitude scaling
380
65
true
0.0
0.5
0.01
0.11
235
true
true
675
0
Global
0x666600ff
0x000000ff
0xffffffff
true
20
473
20
180
ADSR
0x00000033
0x000000ff
0xffffffff
false
20
20
ADSR sustain
10
130
true
0.0
1.0
0.66
33
true
true
true
System Regular
12.0
ADSR attack
10
0
true
0.0
1.0
0.0
33
true
true
true
System Regular
12.0
ADSR release
10
192
true
0.0
1.0
0.2
33
true
true
true
System Regular
12.0
ADSR decay
10
64
true
0.0
1.0
0.84
33
true
true
true
System Regular
12.0
15
500
System Bold
12.0
ADSR speed
25
40
true
0.0
15.0
0.01
0.0
105
true
true
18
30
System Regular
12.0
15
515
System Bold
12.0
10
452
System Regular
12.0
ADSRon
20
10
true
false
true
Subchannel
15
466
SSO1
70
output Right
25
510
true
0.0
3.0
0.01
1.95
60
true
false
output Left
25
495
true
0.0
3.0
0.01
1.88
60
true
false
465
285
amplitude
0x666600ff
0x000000ff
0xffffffff
false
209
20
10
70
System Regular
12.0
envelope amplitude jitter max
165
5
true
0.0
20.0
14.8
35
true
true
true
System Regular
12.0
envelope amplitude scale
35
5
true
1.0
20.0
1.0
35
true
true
true
System Regular
12.0
envelope amplitude jitter min
125
5
true
0.0
20.0
8.0
35
true
true
true
System Regular
12.0
envelope amplitude jitter depth
85
5
true
0.0
1.0
1.0
35
true
true
true
System Regular
12.0
465
475
pitch
0x666600ff
0x000000ff
0xffffffff
false
20
20
envelope pitch jitter depth
85
5
true
0.0
1.0
0.45
35
true
true
true
System Regular
12.0
envelope pitch scale
35
5
true
1.0
20.0
1.0
35
true
true
true
System Regular
12.0
envelope pitch bend ON
10
10
true
false
true
envelope pitch jitter max
165
5
true
0.0
100.0
80.0
35
true
true
true
System Regular
12.0
envelope pitch jitter min
125
5
true
0.0
100.0
44.0
35
true
true
true
System Regular
12.0
10
70
System Regular
12.0
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
sampleONCE_stereo
iii
S
Sfile xin
itable chnget Sfile
ichn filenchnls Sfile
if (itable == 0) then
if (ichn == 2) then
; file skip format channel
itable1 ftgen 0, 0, 0, 1, Sfile, 0, 0, 1
itable2 ftgen 0, 0, 0, 1, Sfile, 0, 0, 2
else
itable1 ftgen 0, 0, 0, 1, Sfile, 0, 0, 0
itable2 = itable1
endif
endif
chnset itable, Sfile
xout ichn, itable1, itable2
k_SCORE_format_Sampler
ii
iii
iscore, ipitch, iamp xin
if (iscore == 1) then
ipitch = semitone(ipitch - 60)
iamp *= 0.007874016
endif
xout ipitch, iamp
ATTENTION: SSO gives its output over a SubChannel in the Mixer. Create a SubChannel first, name it and gave that name in Cycloop SubChannel box.
Otherwise, no sound will be heard.
DESCRIPTION:
Cycloop can be positioned in between the sampler and the granulator, as it has some aspects of both of them. The instrument takes in the sample and loops it.
By retriggering the overlaps and other features like pitch and reading forward/backwards, interesting and evolving textures can be created.
The number of overlaps gives the sound an echoic quality that reminds of the granulators.
Attention: by activating the filter, also the filter envelope drawings become available.
CONTROLLERS:
Sample properties:
File Selector - select the sample to use
start pos. - skip in sample
loop begin/end - set looppoints begin and end
pitch - pitch if sample
Grain properties:
size - grain size in seconds
rate - readout pointer rate, in grains. The value of 1 will advance the reading pointer 1 grain ahead in the source table. Larger values will time-compress and smaller values will time-expand the source signal. Negative values will cause the pointer to run backwards and zero will freeze it.
overlap - maximum number of overlaps
amp - amount of amplitude scaling
Envelopes:
amplitude/filter/pitch envelopes - for each, it changes values over the note event
amplitude/filter exponential - convert envelope to exponential scale
scale - scale the number of envelopes over the note event
jitter - amount of jitter
min/max - limits minimum and maximum frequencies for jitter-
Filters:
On/Off - use filters or not, also activate if you want to use the filter envelope. In that case, frequency cutoff will be overriden bu envelope
frequency - frequency cutoff of filter
XY controller - move between the 4 filter types
lowpass/highpass/bandpass/bandreject - 4 filter types
Quality - amount of filter feedback
Global:
Trigger On/Off - set ADSR trigger to on or off
ADSR speed - frequency of retriggering of ADSR
Attack/Decay/Sustain/Release - ADSR settings
SubChannel - name of SubChannel to use
L/R - output gain of SSO
---
version 2.0, June 2020
- SSO of Cycloop updated to instr version
version 1.1, Octobre 2019
- added amp. envelope and pitch envelope
- added 3 ADSRs
version 1.0, Octobre 2019
- takes in mono or stereo samples
- accepts refresh of overlaps while playing