Cycloop DESCRIPTION: Cycloop can be positioned in between the sampler and the granulator, as it has some aspects of both of them. Cycloop can be seen as an effect, as transformation is done on the signal. On the other hand, the direct signal can be mixed in and together they can sound as one instrument. 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: 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. SCORE EXAMPLE: option 1, real values: frequency amplitude i1 0 2 261.625565 1.0 option 2, Midi pitch: pitch amplitude i1 0 3 60 1.0 --- version 1.2, October 2020 - big filter changes - added BSB information comments - changed P4 freq/midi pitch version 1.1, September 2020 - changes: filter - added mix direct/instr version 1.0, June 2020 - initial version iHanning ftgenonce 0, 0, 8192, 20, 2, 1 ; grain window ipitch, iamp k_SCORE_format_Sampler i(<SCORE_format_Sampler>), p4, p5 ;=============================================================================== 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 kenvamp += kjitamp ; jitter ;===========================pitch=============================================== if (<pitchON> == 0) then <sample pitch> = 1 endif 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 <envelope pitch jitter depth>, <envelope pitch jitter min>, <envelope pitch jitter max> ; create some pitch jitter kenvpitchbend += kjitpitch else kenvpitchbend = 1 endif ;========================samples================================================ ichn, iSampleLEFT, iSampleRIGHT sampleONCE_stereo <file> kbegin_loop = <sample loop begin> * ichn ; convert length of sample to range 0-1 kend_loop = <sample loop end> * ichn istart_sample = i(<sample start playback>) * ichn if changed2(<overlaps>, <sample start playback>) == 1 then ; re-init grain overlaps CAN CAUSE CRASHES!!!!!! reinit STARTSYNCLOOP endif STARTSYNCLOOP: ; 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 * iamp, kfrequency, ipitch * <sample pitch> * kenvpitchbend, <grain size>, <grain rate>, kbegin_loop, kend_loop, iSampleLEFT, iHanning, iolaps, istart_sample asigFR syncloop <amplitude scaling> * kenvamp * iamp, kfrequency, ipitch * <sample pitch> * kenvpitchbend, <grain size>, <grain rate>, kbegin_loop, kend_loop, iSampleRIGHT, iHanning, iolaps, istart_sample if ichn == 1 then ; direct signal asigLd diskin2 <file>, abs(ipitch * <sample pitch> * kenvpitchbend), istart_sample, 1 asigRd = asigLd else asigLd, asigRd diskin2 <file>, abs(ipitch * <sample pitch> * kenvpitchbend), istart_sample, 1 endif rireturn kvoloverlap = (1/kout) asigFL ntrpol asigFL*5, asigLd * iamp * 7 * kenvamp, <mix> ; mix direct and effected signal asigFR ntrpol asigFR*5, asigRd * iamp * 7 * kenvamp, <mix> ;=========================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> asigL = (ahpL + alpL + abpL) ; mix all filter gains asigR = (ahpR + alpR + abpR) 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 asigL * aenv * <output Left> * kvoloverlap, asigR * aenv * <output Right> * kvoloverlap 2 5 DOT true 0 0 Group 0x00000033 0x000000ff 0xffffffff true 20 20 0 0 l---------------------------- C y c l o o p ----------------------------l 0x4d4d4dff 0x4d1a4dff 0xffffffff true 20 20 12 295 envelopes per note 0x669966ff 0x000000ff 0xffffffff false 20 190 envelope 10 10 for each, it changes values over the note event 440 150 1.0 true COMMA false false 475 390 pitch 0x669966ff 0x000000ff 0xffffffff false 20 20 10 70 pitch envelope System Regular 12.0 envelope pitch rate 35 5 true 1.0 20.0 1.0 35 true true rate true System Regular 12.0 envelope pitch jitter depth 85 5 true 0.0 0.3 0.0 35 true true jitter true System Regular 12.0 envelope pitch jitter min 125 5 true 0.0 100.0 69.0 35 true true min true System Regular 12.0 envelope pitch jitter max 165 5 true 0.0 100.0 100.0 35 true true max true System Regular 12.0 envelope pitch bend ON 10 10 true true true 10 172 grain properties 0x669966ff 0x000000ff 0xffffffff true 20 20 48 39 rate System Regular 12.0 overlaps 70 65 maximum number of overlaps true 1.0 100.0 1 74.0 208 true true amplitude scaling 380 65 amount of amplitude scaling true 0.0 1.0 0.01 0.84 235 true true 20 71 overlaps System Regular 12.0 352 71 amp System Regular 12.0 grain rate 72 33 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. true -5.0 5.0 0.001 -1.73 543 true true grain size 72 9 grain size in seconds true 0.001 3.0 0.001 0.09 543 true true 48 15 size System Regular 12.0 10 485 filters 0x669966ff 0x000000ff 0xffffffff false 832 20 filter bandpass gain 212 20 gain of bandpass filter true 0.0 0.5 0.1 0.0 56 true false filterON 11 8 filters ON or OFF true filters true true filter frequency cutoff 254 8 cutoff frequency of filters true 4.35 14.3 10.718000000000004 40 true true cutoff true System Regular 12.0 filter resonance 298 8 gain of feedback of filters true 0.5 25.0 10.055000000000003 40 true true resonance true System Regular 12.0 415 4 envelopes 0x669966ff 0x000000ff 0xffffffff false 20 20 filter ads attack 7 36 attack portion of envelope true 0.0 1.0 1.0 31 true false attack true System Regular 12.0 filter ads decay 49 36 decay portion of envelope true 0.0 1.0 0.15000000000000002 31 true false decay true System Regular 12.0 132 8 depth System Regular 12.0 filter envelope depth 359 24 gain of filter envelope true 0.0 1.5 0.05 1.5 57 true false 356 10 depth System Regular 12.0 280 10 GRAPH System Bold 18.0 340 54 exp System Regular 12.0 rate filter envelope 300 36 frequency rate of filter envelope true 1.0 30.0 1.0 31 true false rate true System Regular 12.0 7 8 A-D-S System Bold 18.0 filter ads sustain 87 36 sustain portion of envelope true 0.0 1.0 0.5700000000000001 31 true false sustain true System Regular 12.0 filter envelopes 171 50 bypass envelopes, or choose one of them or both of them true 2 12 true disabled 0 AttDecSus 1 Graphic 2 ADS+Graphic 3 filter exponential switch 344 38 treat anvelope ar exponential true true true filter ads depth 137 22 gain of ADS envelope true 0.0 1.5 0.01 1.5 57 true false filter lowpass gain 148 20 gain of lowpass filter true 0.0 2.5 0.1 2.5 56 true false filter follower 11 52 open and close filter depending on amplitude or frequency true 1 12 true --- 0 amp follow 1 amp follow invert 2 key follow 3 key follow invert 4 180 8 high System Regular 12.0 filter highpass gain 180 20 gain of highpass filter true 0.0 0.5 0.1 0.0 56 true false 210 8 bndP System Regular 12.0 153 8 low System Regular 12.0 filter total depth 363 8 gain of filters true 0.0 1.0 0.33999999999999997 40 true true depth true System Regular 12.0 475 295 amplitude 0x669966ff 0x000000ff 0xffffffff false 209 20 envelope amplitude rate 35 5 frequency rate of the number of envelopes over the note event true 1.0 20.0 1.0 35 true true rate true System Regular 12.0 amplitude exponential switch 10 10 convert envelope to exponential scale true false true amplitude jitter min 125 5 limits minimumfrequencies for jitter- true 0.0 38.0 27.739999999999995 35 true true min true System Regular 12.0 amplitude jitter max 165 5 limits maximum frequencies for jitter- true 0.0 40.0 40.0 35 true true max true System Regular 12.0 5 25 exp System Regular 12.0 amplitude jitter depth 85 5 amount of jitter true 0.0 1.0 0.6200000000000001 35 true true jitter true System Regular 12.0 10 70 amplitude envelope System Regular 12.0 685 10 Global 0x669966ff 0x000000ff 0xffffffff true 20 456 ADSRon 10 10 set ADSR trigger to on or off true trigger false true SCORE_format_Sampler 18 325 choose for pitch between midi pitch/real values true 0 12 true P4 = frequency 0 P4 = MIDI pitch 1 8 35 ADSR speed System Regular 12.0 65 355 mix System Regular 12.0 84 5 ADSR settings ADSR 0x00000033 0x000000ff 0xffffffff false 20 20 ADSR decay 10 64 true 0.0 1.0 0.84 33 true true decay true System Regular 12.0 ADSR sustain 10 130 true 0.0 1.0 0.26 33 true true sustain true System Regular 12.0 ADSR attack 10 0 true 0.0 1.0 0.32 33 true true attack true System Regular 12.0 ADSR release 10 192 true 0.0 1.0 0.74 33 true true release true System Regular 12.0 output Left 35 395 gain of Left channel true 0.0 0.5 0.01 0.37 84 true false 25 400 L System Bold 12.0 mix 35 360 mix direct and effected signal true 0.0 1.0 0.001 0.357 84 true false 38 310 score format System Regular 12.0 ADSR speed 15 45 frequency of retriggering of ADSR true 0.0 15.0 0.01 0.0 195 true true 25 415 R System Bold 12.0 output Right 35 410 gain of Right channel true 0.0 0.5 0.01 0.38 84 true false 10 10 sample properties 0x669966ff 0x1a1a1aff 0xffffffff true 614 20 12 49 start pos. System Regular 12.0 file 72 12 select the sample to use /media/menno/datae/EigenWerk/verzameling_ideejen/samples/zaagtand.wav 563 true pitchON 15 110 pitch ON or OFF, when OFF pitch is pitch of sample true true true 38 109 pitch System Regular 12.0 8 82 loop System Regular 12.0 44 88 end System Regular 12.0 sample pitch 70 103 change pitch of sample true -2.0 2.0 0.001 1.6760000000000002 545 true true sample loop end 70 79 set looppoints bend point true 0.0 1.0 0.001 0.338 570 true false sample start playback 70 45 skip in sample true 0.0 1.0 0.001 0.065 570 true false 34 68 begin System Regular 12.0 36 76 __ System Regular 12.0 sample loop begin 70 62 set looppoints begin point true 0.0 1.0 0.001 0.162 570 true false 50 82 l 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 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 keeps the same samples from loading and reloading, but re-uses the same samples k_SCORE_format_Sampler ii iii iscore, ipitch, iamp xin if (iscore == 0) then ; frequency mode ipitch *= .0038222 else ; MIDI pitch mode ipitch = semitone(ipitch - 48) endif xout ipitch, iamp