Xlooper8 DESCRIPTION: Idea of Xlooper8 is to use up to 8 samples and play them in together so that it feels like one big, complicated cluster. It is a way to get colors in the clusters by combining more than just 1 sample. Samples can be muted and unmuted while playing, for example by setting their respective Automation Lines 'mute sample X'. Xlooper8, where X stands for crossfade time of the looping. Turns stereo and mono samples into mono output, but can individually be panned in order to create one dense sonic structure. Or you can choose the autopanning. There is a report function to find out if certain samples are not loaded or invalid. Sometimes a sample module stays silent; it has to do when loop direction is set to 'forward and backwards', due to the in and out fade time the loop gets out of the available sample length. 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, P6 = sample i2 0 0.2 261.625565 1.0 ; P4 = frequency, P5 = amplitude, P6 = sample 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.3, November 2020 - added filter - added envelopes version 1.2, October 2020 - added BSB information comments - changed P4, P5 UDO version 1.1, June 2020 - added comments on controllers and description - renamed ALs - revamped sample choice system - added Comments version1, November 2019 - 2 types of ADSR ipitch, iamp k_SCORE_format_Sampler i(<scoreP4>), p4, p5 kenvamp loopxseg 1, 0, 0, <envelope_amplitude envelope>, 0 ; exponential envelope ;=====================dirt section============================================== rndseed .1 kfade = <loop Xfade> krand = <random Xfade> ksplineX rspline -(krand), krand, 0, 10 ; randomize the crossfade time kranda = <random volume 1> ; randomize the amplitude ksplineA1 rspline -(kranda), kranda, 0, 10 krandb = <random volume 2> ksplineA2 rspline -(krandb), krandb, 0, 10 krandc = <random volume 3> ksplineA3 rspline -(krandc), krandc, 0, 10 krandd = <random volume 4> ksplineA4 rspline -(krandd), krandd, 0, 10 krande = <random volume 5> ; randomize the amplitude ksplineA5 rspline -(krande), krande, 0, 10 krandf = <random volume 6> ksplineA6 rspline -(krandf), krandf, 0, 10 krandg = <random volume 7> ksplineA7 rspline -(krandg), krandg, 0, 10 krandh = <random volume 8> ksplineA8 rspline -(krandh), krandh, 0, 10 kvb lfo <vibrato_depth>, <vibrato_speed>, 0 ; simple vibrato ;============load samples======================================================= ;Sample 1 ivld1 filevalid <file 1> ; check if valid sample is imported - else, bypass if ivld1 > 0 then iSample1 sampleONCE <file 1> ilen1 filelen <file 1> ; calculate length of soundfile and use it for range of looping kbegin_sample1 = <sample loop begin 1> * ilen1 + kfade ; let begin time not be greater then end time kend_sample1 = <sample loop end 1> * ilen1 ; Sample 1 kchanged1 changed2 <sample start 1>, <loop direction sample 1> ; check if start of start file playback has changed if kchanged1 == 1 then reinit START1 endif START1: if (kbegin_sample1 < kend_sample1) && (<mute sample 1> == 0) then asig1 flooper2 <volume sample 1> * iamp + ksplineA1, ((<sample pitch 1> + kvb) * ipitch)*<tuning>, <sample loop begin 1> * ilen1, <sample loop end 1> * ilen1, kfade + ksplineX , iSample1, i(<sample start 1>) * ilen1, i(<loop direction sample 1>) rireturn else asig1 = 0 endif else if i(<report no sample>) == 1 then prints "\n\n\nSAMPLE 1 OF Xlooper8serial INSTRUMENT %d IS NOT LOADED OR INVALID.\n\n\n", <INSTR_ID> endif asig1 = 0 endif ;Sample 2 ivld2 filevalid <file 2> ; check if valid sample is imported - else, bypass if ivld2 > 0 then iSample2 sampleONCE <file 2> ilen2 filelen <file 2> kbegin_sample2 = <sample loop begin 2> * ilen2 + kfade ; Sample 2 kend_sample2 = <sample loop end 2> * ilen2 kchanged2 changed2 <sample start 2>, <loop direction sample 2> ; check if start of start file playback has changed if kchanged2 == 1 then reinit START2 endif START2: if (kbegin_sample2 < kend_sample2) && (<mute sample 2> == 0) then asig2 flooper2 <volume sample 2> * iamp + ksplineA2, ((<sample pitch 2> + kvb) * ipitch)*<tuning>, <sample loop begin 2> * ilen2, <sample loop end 2> * ilen2, kfade + ksplineX , iSample2, i(<sample start 2>) * ilen2, i(<loop direction sample 2>) rireturn else asig2 = 0 endif else if i(<report no sample>) == 1 then prints "\n\n\nSAMPLE 2 OF Xlooper8serial INSTRUMENT %d IS NOT LOADED OR INVALID.\n\n\n", <INSTR_ID> endif asig2 = 0 endif ;Sample 3 ivld3 filevalid <file 3> ; check if valid sample is imported - else, bypass if ivld3 > 0 then iSample3 sampleONCE <file 3> ilen3 filelen <file 3> kbegin_sample3 = <sample loop begin 3> * ilen3 + kfade ; Sample 3 kend_sample3 = <sample loop end 3> * ilen3 kchanged3 changed2 <sample start 3>, <loop direction sample 3> ; check if start of start file playback has changed if kchanged3 == 1 then; reinit START3 endif START3: if (kbegin_sample3 < kend_sample3) && (<mute sample 3> == 0) then asig3 flooper2 <volume sample 3> * iamp + ksplineA3, ((<sample pitch 3> + kvb) * ipitch)*<tuning>, <sample loop begin 3> * ilen3, <sample loop end 3> * ilen3, kfade + ksplineX , iSample3, i(<sample start 3>) * ilen3, i(<loop direction sample 3>) rireturn else asig3 = 0 endif else if i(<report no sample>) == 1 then prints "\n\n\nSAMPLE 3 OF Xlooper8serial INSTRUMENT %d IS NOT LOADED OR INVALID.\n\n\n", <INSTR_ID> endif asig3 = 0 endif ;Sample 4 ivld4 filevalid <file 4> ; check if valid sample is imported - else, bypass if ivld4 > 0 then iSample4 sampleONCE <file 4> ilen4 filelen <file 4> kbegin_sample4 = <sample loop begin 4> * ilen4 + kfade ; Sample 4 kend_sample4 = <sample loop end 4> * ilen4 kchanged4 changed2 <sample start 4>, <loop direction sample 4> ; check if start of start file playback has changed if kchanged4 == 1 then; reinit START4 endif START4: if (kbegin_sample4 < kend_sample4) && (<mute sample 4> == 0) then asig4 flooper2 <volume sample 4> * iamp + ksplineA4, ((<sample pitch 4> + kvb) * ipitch)*<tuning>, <sample loop begin 4> * ilen4, <sample loop end 4> * ilen4, kfade + ksplineX , iSample4, i(<sample start 4>) * ilen4, i(<loop direction sample 4>) rireturn else asig4 = 0 endif else if i(<report no sample>) == 1 then prints "\n\n\nSAMPLE 4 OF Xlooper8serial INSTRUMENT %d IS NOT LOADED OR INVALID.\n\n\n", <INSTR_ID> endif asig4 = 0 endif ;Sample 5 ivld5 filevalid <file 5> ; check if valid sample is imported - else, bypass if ivld5 > 0 then iSample5 sampleONCE <file 5> ilen5 filelen <file 5> kbegin_sample5 = <sample loop begin 5> * ilen5 + kfade ; Sample 5 kend_sample5 = <sample loop end 5> * ilen5 kchanged5 changed2 <sample start 5>, <loop direction sample 5> ; check if start of start file playback has changed if kchanged5 == 1 then; reinit START5 endif START5: if (kbegin_sample5 < kend_sample5) && (<mute sample 5> == 0) then asig5 flooper2 <volume sample 5> * iamp + ksplineA5, ((<sample pitch 5> + kvb) * ipitch)*<tuning>, <sample loop begin 5> * ilen5, <sample loop end 5> * ilen5, kfade + ksplineX , iSample5, i(<sample start 5>) * ilen5, i(<loop direction sample 5>) rireturn else asig5 = 0 endif else if i(<report no sample>) == 1 then prints "\n\n\nSAMPLE 5 OF Xlooper8serial INSTRUMENT %d IS NOT LOADED OR INVALID.\n\n\n", <INSTR_ID> endif asig5 = 0 endif ;Sample 6 ivld6 filevalid <file 6> ; check if valid sample is imported - else, bypass if ivld6 > 0 then iSample6 sampleONCE <file 6> ilen6 filelen <file 6> kbegin_sample6 = <sample loop begin 6> * ilen6 + kfade ; Sample 6 kend_sample6 = <sample loop end 6> * ilen6 kchanged6 changed2 <sample start 6>, <loop direction sample 6> ; check if start of start file playback has changed if kchanged6 == 1 then; reinit START6 endif START6: if (kbegin_sample6 < kend_sample6) && (<mute sample 6> == 0) then asig6 flooper2 <volume sample 6> * iamp + ksplineA6, ((<sample pitch 6> + kvb) * ipitch)*<tuning>, <sample loop begin 6> * ilen6, <sample loop end 6> * ilen6, kfade + ksplineX , iSample6, i(<sample start 6>) * ilen6, i(<loop direction sample 6>) rireturn else asig6 = 0 endif else if i(<report no sample>) == 1 then prints "\n\n\nSAMPLE 6 OF Xlooper8serial INSTRUMENT %d IS NOT LOADED OR INVALID.\n\n\n", <INSTR_ID> endif asig6 = 0 endif ;Sample 7 ivld7 filevalid <file 7> ; check if valid sample is imported - else, bypass if ivld7 > 0 then iSample7 sampleONCE <file 7> ilen7 filelen <file 7> kbegin_sample7 = <sample loop begin 7> * ilen7 + kfade ; Sample G kend_sample7 = <sample loop end 7> * ilen7 kchanged7 changed2 <sample start 7>, <loop direction sample 7> ; check if start of start file playback has changed if kchanged7 == 1 then; reinit START7 endif START7: if (kbegin_sample7 < kend_sample7) && (<mute sample 7> == 0) then asig7 flooper2 <volume sample 7> * iamp + ksplineA7, ((<sample pitch 7> + kvb) * ipitch)*<tuning>, <sample loop begin 7> * ilen7, <sample loop end 7> * ilen7, kfade + ksplineX , iSample7, i(<sample start 7>) * ilen7, i(<loop direction sample 7>) rireturn else asig7 = 0 endif else if i(<report no sample>) == 1 then prints "\n\n\nSAMPLE 7 OF Xlooper8serial INSTRUMENT %d IS NOT LOADED OR INVALID.\n\n\n", <INSTR_ID> endif asig7 = 0 endif ;Sample 8 ivld8 filevalid <file 8> ; check if valid sample is imported - else, bypass if ivld8 > 0 then iSample8 sampleONCE <file 8> ilen8 filelen <file 8> kbegin_sample8 = <sample loop begin 8> * ilen8 + kfade ; Sample 8 kend_sample8 = <sample loop end 8> * ilen8 kchanged8 changed2 <sample start 8>, <loop direction sample 8> ; check if start of start file playback has changed if kchanged8 == 1 then; reinit START8 endif START8: if (kbegin_sample8 < kend_sample8) && (<mute sample 8> == 0) then asig8 flooper2 <volume sample 8> * iamp + ksplineA8, ((<sample pitch 8> + kvb) * ipitch)*<tuning>, <sample loop begin 8> * ilen8, <sample loop end 8> * ilen8, kfade + ksplineX , iSample8, i(<sample start 8>) * ilen8, i(<loop direction sample 8>) rireturn else asig8 = 0 endif else if i(<report no sample>) == 1 then prints "\n\n\nSAMPLE 8 OF Xlooper8serial INSTRUMENT %d IS NOT LOADED OR INVALID.\n\n\n", <INSTR_ID> endif asig8 = 0 endif ;============================panning============================================ if (<autopanning> == 1) then krandP1 randi 1, <pan speed>, 1 ; every panning its own seed krandP2 randi 1, <pan speed>, 2 krandP3 randi 1, <pan speed>, 3 krandP4 randi 1, <pan speed>, 4 krandP5 randi 1, <pan speed>, 5 krandP6 randi 1, <pan speed>, 6 krandP7 randi 1, <pan speed>, 7 krandP8 randi 1, <pan speed>, 8 asigL1, asigR1 pan2 asig1, krandP1, 0 asigL2, asigR2 pan2 asig2, krandP2, 0 asigL3, asigR3 pan2 asig3, krandP3, 0 asigL4, asigR4 pan2 asig4, krandP4, 0 asigL5, asigR5 pan2 asig5, krandP5, 0 asigL6, asigR6 pan2 asig6, krandP6, 0 asigL7, asigR7 pan2 asig7, krandP7, 0 asigL8, asigR8 pan2 asig8, krandP8, 0 else asigL1, asigR1 pan2 asig1, <pan sample 1>, 0 ; pan as set by knob asigL2, asigR2 pan2 asig2, <pan sample 2>, 0 asigL3, asigR3 pan2 asig3, <pan sample 3>, 0 asigL4, asigR4 pan2 asig4, <pan sample 4>, 0 asigL5, asigR5 pan2 asig5, <pan sample 5>, 0 asigL6, asigR6 pan2 asig6, <pan sample 6>, 0 asigL7, asigR7 pan2 asig7, <pan sample 7>, 0 asigL8, asigR8 pan2 asig8, <pan sample 8>, 0 endif ;================================filter========================================= asigFL = (asigL1 + asigL2 + asigL3 + asigL4 + asigL5 + asigL6 + asigL7 + asigL8)*.2 asigFR = (asigR1 + asigR2 + asigR3 + asigR4 + asigR5 + asigR6 + asigR7 + asigR8)*.2 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 elseif <filter follower> == 4 then ; -(key) --> filter acutoff = kcutoff * 1/ipitch 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) aoutL ntrpol asigFL, -aoutL, <mix filter> ; phase out the middle, due to - aoutR ntrpol asigFR, -aoutR, <mix filter> else aoutL = asigFL aoutR = asigFR endif ;=============================================================================== if (<ADSR ON> == 1) then if <ADSR speed> > 0 then agate = lfo(1, <ADSR speed>,0) aretrig init 10 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 aenv = .4 endif asigL = aoutL * <output Left> * aenv * kenvamp asigR = aoutR * <output Right> * aenv * kenvamp if <tuning> == 0 then ; block low clicks asigL = 0 asigR = 0 endif blueMixerOut asigL, asigR 5 5 DOT true 0 0 Group 0x00000033 0x000000ff 0xffffffff true 20 20 0 0 l---------------------------- X L o o p e r S e q---------------------------l 0x4d4d4dff 0x4d1a4dff 0xffffffff true 20 20 870 735 amplitude = red, filter = blue, brown = pitch Group 0x669966ff 0x000000ff 0xffffffff false 20 20 envelope 10 10 amplitude = red, filter = blue, brown = pitch 735 61 1.0 true COMMA false false 825 310 sample 7 0x669966ff 0x1a1a1aff 0xffffffff false 20 20 loop direction sample 7 675 20 true 2 12 true forward 0 backward 1 back-and-forth 2 70 115 pitch System Regular 12.0 mute sample 7 45 20 true mute false true 75 90 end System Regular 12.0 70 70 begin System Regular 12.0 sample start 7 105 40 true 0.0 1.0 0.001 0.312 485 true true pan sample 7 755 55 true 0.0 1.0 0.5 41 true true label false System Regular 12.0 10 80 looprange System Regular 12.0 10 15 7 System Bold 20.0 765 110 pan System Regular 12.0 650 50 Group 0x00000033 0x000000ff 0xffffffff false 20 20 60 60 dirt System Regular 12.0 random volume 7 50 5 true 0.0 0.2 0.0 40 true true label false System Regular 12.0 volume sample 7 5 5 true 0.0 1.0 0.0 41 true true label false System Regular 12.0 5 60 volume System Regular 12.0 file 7 105 10 /media/menno/datae/EigenWerk/verzameling_ideejen/samples/freeze4tik.wav 500 true sample pitch 7 105 110 true 0.0 3.0 0.01 0.74 485 true true 690 5 loop direction System Regular 12.0 sample loop begin 7 105 65 true 0.0 1.0 0.001 0.284 535 true false 10 45 start in sample System Regular 12.0 sample loop end 7 105 85 true 0.0 1.0 0.001 0.563 535 true false 15 10 sample 1 0x669966ff 0x1a1a1aff 0xffffffff false 20 20 10 15 1 System Bold 20.0 pan sample 1 760 55 position this sample in stereo field true 0.0 1.0 0.47000000000000003 41 true true label false System Regular 12.0 sample loop begin 1 105 65 set loop points for begin true 0.0 1.0 0.001 0.241 535 true false 75 90 end System Regular 12.0 sample loop end 1 105 85 set loop points for end true 0.0 1.0 0.001 0.674 535 true false loop direction sample 1 680 20 loop forward/backward/back-and-forth true 0 12 true forward 0 backward 1 back-and-forth 2 770 110 pan System Regular 12.0 sample start 1 105 45 skip time in sample true 0.0 1.0 0.001 0.196 485 true true sample pitch 1 105 110 multiply pitch of sample true 0.0 3.0 0.01 0.08 485 true true 15 50 start in sample System Regular 12.0 mute sample 1 45 20 mute this sample true mute false true 655 50 Group 0x00000033 0x000000ff 0xffffffff false 20 20 volume sample 1 5 5 gain of this sample true 0.0 1.0 0.37999999999999995 41 true true label false System Regular 12.0 60 60 dirt System Regular 12.0 5 60 volume System Regular 12.0 random volume 1 50 5 subtle random gain variations true 0.0 0.2 0.2 40 true true label false System Regular 12.0 15 80 looprange System Regular 12.0 65 115 pitch System Regular 12.0 695 5 loop direction System Regular 12.0 file 1 105 10 load sample /media/menno/datae/EigenWerk/verzameling_ideejen/samples/bastril.wav 500 true 70 70 begin System Regular 12.0 825 160 sample 5 0x669966ff 0x1a1a1aff 0xffffffff false 20 20 70 115 pitch System Regular 12.0 sample loop begin 6 105 65 true 0.0 1.0 0.001 0.385 535 true false 10 80 looprange System Regular 12.0 10 45 start in sample System Regular 12.0 650 50 Group 0x00000033 0x000000ff 0xffffffff false 20 20 60 60 dirt System Regular 12.0 5 60 volume System Regular 12.0 random volume 6 50 5 true 0.0 0.2 0.2 40 true true label false System Regular 12.0 volume sample 6 5 5 true 0.0 1.0 1.0 41 true true label false System Regular 12.0 loop direction sample 6 675 20 true 1 12 true forward 0 backward 1 back-and-forth 2 sample pitch 6 105 110 true 0.0 3.0 0.01 0.9 485 true true pan sample 6 755 55 true 0.0 1.0 0.79 41 true true label false System Regular 12.0 75 90 end System Regular 12.0 690 5 loop direction System Regular 12.0 10 15 6 System Bold 20.0 mute sample 6 45 20 true mute false true 70 70 begin System Regular 12.0 file 6 105 10 /media/menno/datae/EigenWerk/verzameling_ideejen/samples/kraak.wav 500 true sample start 6 105 40 true 0.0 1.0 0.001 0.474 485 true true sample loop end 6 105 85 true 0.0 1.0 0.001 0.503 535 true false 765 110 pan System Regular 12.0 825 460 sample 8 0x669966ff 0x1a1a1aff 0xffffffff false 20 20 650 50 Group 0x00000033 0x000000ff 0xffffffff false 20 20 5 60 volume System Regular 12.0 random volume 8 50 5 true 0.0 0.2 0.0 40 true true label false System Regular 12.0 60 60 dirt System Regular 12.0 volume sample 8 5 5 true 0.0 1.0 0.0 41 true true label false System Regular 12.0 10 80 looprange System Regular 12.0 pan sample 8 755 55 true 0.0 1.0 0.32999999999999996 41 true true label false System Regular 12.0 690 5 loop direction System Regular 12.0 10 15 8 System Bold 20.0 sample pitch 8 105 110 true 0.0 3.0 0.01 0.15 485 true true file 8 105 10 /media/menno/datae/EigenWerk/verzameling_ideejen/samples/applaus2.wav 500 true 70 115 pitch System Regular 12.0 10 45 start in sample System Regular 12.0 sample loop begin 8 105 65 true 0.0 1.0 0.001 0.251 535 true false 75 90 end System Regular 12.0 sample loop end 8 105 85 true 0.0 1.0 0.001 0.55 535 true false loop direction sample 8 675 20 true 0 12 true forward 0 backward 1 back-and-forth 2 mute sample 8 45 20 true mute false true 70 70 begin System Regular 12.0 765 110 pan System Regular 12.0 sample start 8 105 40 true 0.0 1.0 0.001 0.282 485 true true 15 460 sample sample 4 0x669966ff 0x1a1a1aff 0xffffffff false 20 20 sample start 4 105 40 true 0.0 1.0 0.001 0.397 485 true true 655 50 Group 0x00000033 0x000000ff 0xffffffff false 20 20 60 60 dirt System Regular 12.0 5 60 volume System Regular 12.0 volume sample 4 5 5 true 0.0 1.0 1.0 41 true true label false System Regular 12.0 random volume 4 50 5 true 0.0 0.2 0.0 40 true true label false System Regular 12.0 pan sample 4 760 55 true 0.0 1.0 0.43999999999999995 41 true true label false System Regular 12.0 sample loop end 4 105 85 true 0.0 1.0 0.001 0.393 535 true false file 4 105 10 /media/menno/datae/EigenWerk/verzameling_ideejen/samples/vuurwerkR05.wav 500 true 10 80 looprange System Regular 12.0 695 5 loop direction System Regular 12.0 70 115 pitch System Regular 12.0 770 110 pan System Regular 12.0 loop direction sample 4 680 20 true 0 12 true forward 0 backward 1 back-and-forth 2 sample pitch 4 105 110 true 0.0 3.0 0.01 2.19 485 true true 10 45 start in sample System Regular 12.0 mute sample 4 45 20 true mute false true 70 70 begin System Regular 12.0 sample loop begin 4 105 65 true 0.0 1.0 0.001 0.321 535 true false 10 15 4 System Bold 20.0 75 90 end System Regular 12.0 825 10 sample sample 5 0x669966ff 0x1a1a1aff 0xffffffff false 20 20 10 45 start in sample System Regular 12.0 650 50 Group 0x00000033 0x000000ff 0xffffffff false 20 20 random volume 5 50 5 true 0.0 0.2 0.2 40 true true label false System Regular 12.0 60 60 dirt System Regular 12.0 volume sample 5 5 5 true 0.0 1.0 1.0 41 true true label false System Regular 12.0 5 60 volume System Regular 12.0 sample pitch 5 105 110 true 0.0 3.0 0.01 2.17 480 true true 765 110 pan System Regular 12.0 mute sample 5 45 20 true mute false true sample loop end 5 105 85 true 0.0 1.0 0.001 0.442 530 true false 75 90 end System Regular 12.0 70 70 begin System Regular 12.0 pan sample 5 755 55 true 0.0 1.0 0.56 41 true true label false System Regular 12.0 70 115 pitch System Regular 12.0 file 5 105 10 /media/menno/datae/EigenWerk/verzameling_ideejen/samples/freeze4tik.wav 500 true sample loop begin 5 105 65 true 0.0 1.0 0.001 0.331 530 true false loop direction sample 5 675 20 true 0 12 true forward 0 backward 1 back-and-forth 2 10 80 looprange System Regular 12.0 10 15 5 System Bold 20.0 690 5 loop direction System Regular 12.0 sample start 5 105 40 true 0.0 1.0 0.001 0.398 480 true true 15 160 sample 2 0x669966ff 0x1a1a1aff 0xffffffff false 20 20 10 45 start in sample System Regular 12.0 70 115 pitch System Regular 12.0 sample start 2 105 40 true 0.0 1.0 0.001 0.4 485 true true 10 15 2 System Bold 20.0 70 70 begin System Regular 12.0 10 80 looprange System Regular 12.0 sample loop begin 2 105 65 true 0.0 1.0 0.001 0.323 535 true false 770 110 pan System Regular 12.0 loop direction sample 2 680 20 true 1 12 true forward 0 backward 1 back-and-forth 2 pan sample 2 760 55 true 0.0 1.0 1.0 41 true true label false System Regular 12.0 sample loop end 2 105 85 true 0.0 1.0 0.001 0.433 535 true false mute sample 2 45 20 true mute false true 75 90 end System Regular 12.0 sample pitch 2 105 110 true 0.0 3.0 0.01 0.85 485 true true 655 50 Group 0x00000033 0x000000ff 0xffffffff false 20 20 5 60 volume System Regular 12.0 random volume 2 50 5 true 0.0 0.2 0.0 40 true true label false System Regular 12.0 60 60 dirt System Regular 12.0 volume sample 2 5 5 true 0.0 1.0 1.0 41 true true label false System Regular 12.0 695 5 loop direction System Regular 12.0 file 2 105 10 /media/menno/datae/EigenWerk/verzameling_ideejen/samples/b64_01.wav 500 true 15 735 filters 0x669966ff 0x000000ff 0xffffffff false 824 20 415 4 envelopes 0x669966ff 0x000000ff 0xffffffff false 20 20 356 10 depth System Regular 12.0 filter envelope depth 359 24 gain of filter envelope true 0.0 1.0 0.05 0.25 57 true false filter ads decay 49 36 decay portion of envelope true 0.0 1.0 0.9600000000000001 31 true false decay true System Regular 12.0 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 rate filter envelope 300 36 frequency rate of filter envelope true 1.0 30.0 30.0 31 true false rate true System Regular 12.0 7 8 A-D-S System Bold 18.0 340 54 exp System Regular 12.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 280 10 GRAPH System Bold 18.0 132 8 depth 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 filter ads depth 137 22 gain of ADS envelope true 0.0 1.0 0.01 1.0 57 true false filter exponential switch 344 38 treat anvelope ar exponential true true true 153 8 low System Regular 12.0 filter follower 11 52 open and close filter depending on amplitude or frequency true 0 12 true --- 0 amp follow 1 amp follow invert 2 key follow 3 key follow invert 4 filter highpass gain 180 20 gain of highpass filter true 0.0 0.5 0.1 0.5 56 true false filter total depth 363 8 gain of filters true 0.0 1.0 0.7 40 true true depth true System Regular 12.0 filter resonance 298 8 gain of feedback of filters true 0.5 25.0 10.055000000000005 40 true true resonance true System Regular 12.0 210 8 bndP System Regular 12.0 mix filter 815 20 mix filter with negative direct signal; this allows for some interesting timbre colors true 0.0 1.0 0.01 1.0 70 true false filter bandpass gain 212 20 gain of bandpass filter true 0.0 0.5 0.1 0.0 56 true false filter frequency cutoff 254 8 cutoff frequency of filters true 4.35 14.3 9.0265 40 true true cutoff true System Regular 12.0 filter lowpass gain 148 20 gain of lowpass filter true 0.0 2.5 0.1 2.5 56 true false 180 8 high System Regular 12.0 filterON 11 8 filters ON or OFF true filters true true 815 10 color System Regular 12.0 15 310 sample 1 0x669966ff 0x1a1a1aff 0xffffffff false 20 20 770 110 pan System Regular 12.0 70 70 begin System Regular 12.0 sample loop end 3 105 85 true 0.0 1.0 0.001 0.441 535 true false 10 15 3 System Bold 20.0 695 5 loop direction System Regular 12.0 sample loop begin 3 105 65 true 0.0 1.0 0.001 0.293 535 true false 75 90 end System Regular 12.0 655 50 Group 0x00000033 0x000000ff 0xffffffff false 20 20 volume sample 3 5 5 true 0.0 1.0 1.0 41 true true label false System Regular 12.0 5 60 volume System Regular 12.0 60 60 dirt System Regular 12.0 random volume 3 50 5 true 0.0 0.2 0.0 40 true true label false System Regular 12.0 loop direction sample 3 680 20 true 0 12 true forward 0 backward 1 back-and-forth 2 pan sample 3 760 55 true 0.0 1.0 0.4799999999999999 41 true true label false System Regular 12.0 10 45 start in sample System Regular 12.0 mute sample 3 45 20 true mute false true 70 115 pitch System Regular 12.0 sample start 3 105 40 true 0.0 1.0 0.001 0.3 485 true true file 3 105 10 /media/menno/datae/EigenWerk/verzameling_ideejen/samples/kraak.wav 500 true sample pitch 3 105 110 true 0.0 3.0 0.01 0.7 490 true true 10 80 looprange System Regular 12.0 15 610 global 0x669966ff 0x1a1a1aff 0xffffffff true 1615 20 5 5 vibrato 0x00000033 0x000000ff 0xffffffff true 20 20 vibrato_speed 60 5 speed of vibrato for all samples true 0.0 3.0 1.59 41 true false speed true System Regular 12.0 vibrato_depth 10 5 amount of gain of vibrato for all samples true 0.0 0.05 0.0175 41 true false depth true System Regular 12.0 1280 10 R System Regular 12.0 report no sample 1325 75 report in Output if sample exists for this particular sample section true report presence of sample true true 120 5 amplitude ADSR 0x00000033 0x000000ff 0xffffffff true 20 20 ADSR decay 80 5 decay portion of envelope true 0.0 1.0 0.30000000000000004 41 true false decay true System Regular 12.0 ADSR attack 25 5 attack portion of envelope true 0.0 1.0 0.030000000000000006 41 true false attack true System Regular 12.0 ADSR release 190 5 release portion of envelope true 0.0 1.0 0.24 41 true false release true System Regular 12.0 275 5 ADSR speed System Regular 12.0 ADSR ON 5 5 switch on/off for envelope generator true false true ADSR sustain 135 5 sustain portion of envelope true 0.0 1.0 0.54 41 true false sustain true System Regular 12.0 ADSR speed 240 25 retrigger ADSR envelope, where 0 = 1 x envelope for total note true 0.0 40.0 0.001 0.0 125 true true output Right 1270 25 output gain Right channel true 0.0 8.0 0.01 8.0 70 true false tuning 1160 10 total tuning of XlooperSeq true 0.0 4.0 0.01 1.0 54 true true 825 5 0x00000033 0x000000ff 0xffffffff true 20 20 pan speed 25 10 speed of moving across stereo field true 0.0 10.0 7.8 35 true false pan speed true System Regular 12.0 scoreP4 185 35 how to read p4, p4: as real values, midi pitch true 0 12 true P4 = frequency 0 P$ = MIDI pitch 1 205 15 score format System Regular 12.0 autopanning 95 10 distribute and move sample across stereo field true autopanning true true 550 5 looppoints 0x00000033 0x000000ff 0xffffffff true 20 20 75 5 Xfade System Regular 12.0 random Xfade 220 5 small variations in loop fade time for all samples true 0.0 0.1 0.053000000000000005 41 true false dirt true System Regular 12.0 loop Xfade 10 25 set fade time in order to avoid clicks in loop for all samples true -0.3 0.3 0.001 -0.141 150 true true 1265 10 L System Regular 12.0 output Left 1255 25 output gain Right channel true 0.0 8.0 0.01 8.0 70 true false 1195 20 tuning System Regular 12.0 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_CountStep iiiiiiii i ipfieldvalue xin iout[] init 8 iCnt = 0 while iCnt < 8 do iout[iCnt] = (ipfieldvalue == iCnt+1 ? 1 : 0) iCnt += 1 od iout1, iout2, iout3, iout4, iout5, iout6, iout7, iout8 = iout[0], iout[1], iout[2], iout[3], iout[4], iout[5], iout[6], iout[7] xout iout1, iout2, iout3, iout4, iout5, iout6, iout7, iout8 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