XlooperSeq DESCRIPTION: Idea of XlooperSeq is to use a maximum of samples and play them in series or parallel so that it feels like one complicated cluster. Samples can be played simultaneously also, if you set the notes start at the same start time. XlooperSeq, where X stands for crossfade time of the looping and reminds of the XlooperSolo. Turns stereo and mono samples into mono output, but can individually be panned in order to create one dense sonic structure. There is a report function that can be turned on or off to find out if certain samples are loaded all right or invalid. Samples can be muted and unmuted while playing, using their Automation Lines 'mute sample X'. 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 sample length. CONTROLLERS: Sample x 8: mute - mute this sample start in sample - skip time in sample looprange begin/end - set loop points for begin and end pitch - pitch of sample report - switch to find out if certain samples are loaded all right or invalid direction - loop forward/backward/back-and-forth volume - gain for each sample dirt - subtle random gain variations pan - position this sample in stereo field Vibrato: vibrato depth - amount of gain of vibrato vibrato speed - speed of vibrato Global: ADSR: ADSR ON - switch on/off for envelope generator ADSR attack/decay/sustain/release - set a-d-s-r ADSR speed - retrigger ADSR envelope Xfade: looppoints Xfade - set fade time in order to avoid clicks in loop for all samples looppoints dirt - small variations in loop fades for all samples autopanning - distribute and move sample across stereo field pan speed - speed of moving across stereo field tuning - total tuning of XlooperSeq score format - how to read p4, p4: as real values, midi notes or autodetection L/R - output gain Left/Right channel SCORE EXAMPLE: real value: freq amp sample i1 0 2 100 1 4 midi note: note veloc sample i1 0 2 60 100 4 --- 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(<SCORE_format_Sampler>), p4, p5 ;=====================dirt section====================================== 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 ; vibrato istep = p6 ;iWindow ftgenonce 0, 0, 4096, 20, 2 ;============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 A 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) && (<solo sample 1> == 1)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 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 B 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) && (<solo sample 2> == 1) 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 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 C 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) && (<solo sample 3> == 1) 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 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 D 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) && (<solo sample 4> == 1) 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 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 E 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) && (<solo sample 5> == 1) 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 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 F 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) && (<solo sample 6> == 1) 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 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) && (<solo sample 7> == 1) 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 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 H 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) && (<solo sample 8> == 1) 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 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 ;======================step sequencer=========================================== iout1, iout2, iout3, iout4, iout5, iout6, iout7, iout8 k_CountStep int(istep) ; choose sample ;============================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*iout1, krandP1, 0 asigL2, asigR2 pan2 asig2*iout2, krandP2, 0 asigL3, asigR3 pan2 asig3*iout3, krandP3, 0 asigL4, asigR4 pan2 asig4*iout4, krandP4, 0 asigL5, asigR5 pan2 asig5*iout5, krandP5, 0 asigL6, asigR6 pan2 asig6*iout6, krandP6, 0 asigL7, asigR7 pan2 asig7*iout7, krandP7, 0 asigL8, asigR8 pan2 asig8*iout8, krandP8, 0 else asigL1, asigR1 pan2 asig1*iout1, <pan sample 1>, 0 ; pan as set asigL2, asigR2 pan2 asig2*iout2, <pan sample 2>, 0 asigL3, asigR3 pan2 asig3*iout3, <pan sample 3>, 0 asigL4, asigR4 pan2 asig4*iout4, <pan sample 4>, 0 asigL5, asigR5 pan2 asig5*iout5, <pan sample 5>, 0 asigL6, asigR6 pan2 asig6*iout6, <pan sample 6>, 0 asigL7, asigR7 pan2 asig7*iout7, <pan sample 7>, 0 asigL8, asigR8 pan2 asig8*iout8, <pan sample 8>, 0 endif ;=======================outputs====================================================== if (<ADSR ON> == 1) then if <ADSR speed> > 0 then agate = lfo(1, <ADSR speed>) 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 = (asigL1 + asigL2 + asigL3 + asigL4 + asigL5 + asigL6 + asigL7 + asigL8) * <output Left> * aenv asigR = (asigR1 + asigR2 + asigR3 + asigR4 + asigR5 + asigR6 + asigR7 + asigR8) * <output Right> * aenv 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 15 610 global 0x669966ff 0x1a1a1aff 0xffffffff true 1615 20 autopanning 835 75 true autopanning true true output Right 1160 25 true 0.0 5.0 0.01 5.0 70 true false 985 20 tuning System Regular 12.0 115 5 ADSR 0x00000033 0x000000ff 0xffffffff true 20 20 ADSR release 190 5 true 0.0 1.0 0.26 41 true false release true System Regular 12.0 ADSR attack 25 5 true 0.0 1.0 0.0 41 true false attack true System Regular 12.0 ADSR decay 80 5 true 0.0 1.0 0.0800000000000001 41 true false decay true System Regular 12.0 ADSR speed 240 25 true 0.0 40.0 0.001 12.252 125 true true 275 5 ADSR speed System Regular 12.0 ADSR sustain 135 5 true 0.0 1.0 0.42 41 true false sustain true System Regular 12.0 ADSR ON 5 5 true false true 1170 10 R System Regular 12.0 545 5 looppoints 0x00000033 0x000000ff 0xffffffff true 20 20 loop Xfade 10 25 true -0.3 0.3 0.001 0.05299999999999999 150 true true random Xfade 220 5 true 0.0 0.1 0.0 41 true false dirt true System Regular 12.0 75 5 Xfade System Regular 12.0 tuning 950 10 true 0.0 4.0 0.01 1.0 54 true true 1055 25 score format System Regular 12.0 5 5 vibrato 0x00000033 0x000000ff 0xffffffff true 20 20 vibrato_speed 60 5 true 0.0 3.0 1.1400000000000001 41 true false speed true System Regular 12.0 vibrato_depth 10 5 true 0.0 0.05 0.0 41 true false depth true System Regular 12.0 1155 10 L System Regular 12.0 pan speed 855 20 true 0.0 2.0 1.3599999999999999 35 true false pan speed true System Regular 12.0 output Left 1145 25 true 0.0 5.0 0.01 5.0 70 true false SCORE_format_Sampler 1050 45 true 1 12 true value as is cps Midi notes midi 825 160 sample 5 0x669966ff 0x1a1a1aff 0xffffffff false 20 20 solo sample 6 45 25 true solo false true 75 90 end System Regular 12.0 710 5 direction System Regular 12.0 765 110 pan System Regular 12.0 10 80 looprange System Regular 12.0 sample loop end 6 105 85 true 0.0 1.0 0.001 0.503 535 true false 70 70 begin System Regular 12.0 10 45 start in sample System Regular 12.0 70 115 pitch System Regular 12.0 file 6 105 10 /media/menno/datae/EigenWerk/verzameling_ideejen/samples/kraak.wav 500 true sample pitch 6 105 110 true 0.0 3.0 0.01 0.16 485 true true sample start 6 105 40 true 0.0 1.0 0.001 0.474 485 true true sample loop begin 6 105 65 true 0.0 1.0 0.001 0.385 535 true false 10 15 6 System Bold 20.0 mute sample 6 45 10 true mute false true loop direction sample 6 675 20 true 1 12 true forward 0 backward 1 back-and-forth 2 650 50 Group 0x00000033 0x000000ff 0xffffffff false 20 20 5 60 volume System Regular 12.0 random volume 6 50 5 true 0.0 0.2 0.0 40 true true label false System Regular 12.0 volume sample 6 5 5 true 0.0 1.0 0.63 41 true true label false System Regular 12.0 60 60 dirt System Regular 12.0 pan sample 6 755 55 true 0.0 1.0 0.79 41 true true label false System Regular 12.0 825 10 sample sample 5 0x669966ff 0x1a1a1aff 0xffffffff false 20 20 sample loop begin 5 105 65 true 0.0 1.0 0.001 0.331 530 true false 710 5 direction System Regular 12.0 file 5 105 10 /media/menno/datae/EigenWerk/verzameling_ideejen/samples/freeze4tik.wav 500 true sample start 5 105 40 true 0.0 1.0 0.001 0.398 480 true true pan sample 5 755 55 true 0.0 1.0 0.56 41 true true label false System Regular 12.0 10 45 start in sample System Regular 12.0 10 80 looprange System Regular 12.0 mute sample 5 45 10 true mute true true solo sample 5 45 25 true solo false true loop direction sample 5 675 20 true 0 12 true forward 0 backward 1 back-and-forth 2 70 70 begin System Regular 12.0 75 90 end System Regular 12.0 sample loop end 5 105 85 true 0.0 1.0 0.001 0.508 530 true false sample pitch 5 105 110 true 0.0 3.0 0.01 0.45 480 true true 70 115 pitch System Regular 12.0 10 15 5 System Bold 20.0 765 110 pan System Regular 12.0 650 50 Group 0x00000033 0x000000ff 0xffffffff false 20 20 5 60 volume 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 random volume 5 50 5 true 0.0 0.2 0.2 40 true true label false System Regular 12.0 825 460 sample 8 0x669966ff 0x1a1a1aff 0xffffffff false 20 20 sample start 8 105 40 true 0.0 1.0 0.001 0.282 485 true true 75 90 end System Regular 12.0 solo sample 8 45 25 true solo false true 10 45 start in sample System Regular 12.0 sample loop end 8 105 85 true 0.0 1.0 0.001 0.55 535 true false 650 50 Group 0x00000033 0x000000ff 0xffffffff false 20 20 volume sample 8 5 5 true 0.0 1.0 0.53 41 true true label false 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 5 60 volume System Regular 12.0 60 60 dirt System Regular 12.0 file 8 105 10 /media/menno/datae/EigenWerk/verzameling_ideejen/samples/applaus2.wav 500 true 710 5 direction System Regular 12.0 765 110 pan System Regular 12.0 70 70 begin System Regular 12.0 sample pitch 8 105 110 true 0.0 3.0 0.01 1.0 485 true true 10 15 8 System Bold 20.0 sample loop begin 8 105 65 true 0.0 1.0 0.001 0.251 535 true false mute sample 8 45 10 true mute false true pan sample 8 755 55 true 0.0 1.0 0.32999999999999996 41 true true label false System Regular 12.0 10 80 looprange System Regular 12.0 loop direction sample 8 675 20 true 0 12 true forward 0 backward 1 back-and-forth 2 70 115 pitch System Regular 12.0 15 10 sample 1 0x669966ff 0x1a1a1aff 0xffffffff false 20 20 sample loop end 1 105 85 true 0.0 1.0 0.001 0.213 535 true false 15 50 start in sample System Regular 12.0 15 80 looprange System Regular 12.0 655 50 Group 0x00000033 0x000000ff 0xffffffff false 20 20 random volume 1 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 5 60 volume System Regular 12.0 volume sample 1 5 5 true 0.0 1.0 0.39 41 true true label false System Regular 12.0 sample loop begin 1 105 65 true 0.0 1.0 0.001 0.193 535 true false solo sample 1 45 25 true solo false true 70 70 begin System Regular 12.0 sample pitch 1 105 110 true 0.0 3.0 0.01 1.5 485 true true 770 110 pan System Regular 12.0 file 1 105 10 /media/menno/datae/EigenWerk/verzameling_ideejen/samples/bastril.wav 500 true mute sample 1 45 10 true mute true true 65 115 pitch System Regular 12.0 75 90 end System Regular 12.0 loop direction sample 1 680 20 true 0 12 true forward 0 backward 1 back-and-forth 2 715 5 direction System Regular 12.0 sample start 1 105 45 true 0.0 1.0 0.001 0.196 485 true true report sample 5 125 true report false true 10 15 1 System Bold 20.0 pan sample 1 760 55 true 0.0 1.0 0.47000000000000003 41 true true label false System Regular 12.0 15 310 sample 1 0x669966ff 0x1a1a1aff 0xffffffff false 20 20 sample loop begin 3 105 65 true 0.0 1.0 0.001 0.249 535 true false 770 110 pan System Regular 12.0 file 3 105 10 /media/menno/datae/EigenWerk/verzameling_ideejen/samples/freeze4tik.wav 500 true sample pitch 3 105 110 true 0.0 3.0 0.01 1.62 490 true true sample start 3 105 40 true 0.0 1.0 0.001 0.255 485 true true 10 15 3 System Bold 20.0 70 70 begin System Regular 12.0 loop direction sample 3 680 20 true 1 12 true forward 0 backward 1 back-and-forth 2 10 45 start in sample System Regular 12.0 pan sample 3 760 55 true 0.0 1.0 0.4799999999999999 41 true true label false System Regular 12.0 solo sample 3 45 25 true solo false true 10 80 looprange System Regular 12.0 655 50 Group 0x00000033 0x000000ff 0xffffffff false 20 20 60 60 dirt System Regular 12.0 5 60 volume 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 volume sample 3 5 5 true 0.0 1.0 0.5800000000000001 41 true true label false System Regular 12.0 mute sample 3 45 10 true mute false true sample loop end 3 105 85 true 0.0 1.0 0.001 0.289 535 true false 70 115 pitch System Regular 12.0 715 5 direction System Regular 12.0 75 90 end System Regular 12.0 15 460 sample sample 4 0x669966ff 0x1a1a1aff 0xffffffff false 20 20 mute sample 4 45 10 true mute false true 770 110 pan System Regular 12.0 10 80 looprange System Regular 12.0 70 70 begin System Regular 12.0 10 45 start in sample System Regular 12.0 715 5 direction System Regular 12.0 sample pitch 4 105 110 true 0.0 3.0 0.01 0.04 485 true true 75 90 end System Regular 12.0 loop direction sample 4 680 20 true 0 12 true forward 0 backward 1 back-and-forth 2 pan sample 4 760 55 true 0.0 1.0 0.43999999999999995 41 true true label false System Regular 12.0 solo sample 4 45 25 true solo false true 10 15 4 System Bold 20.0 sample start 4 105 40 true 0.0 1.0 0.001 0.495 485 true true sample loop begin 4 105 65 true 0.0 1.0 0.001 0.33 535 true false sample loop end 4 105 85 true 0.0 1.0 0.001 0.381 535 true false 70 115 pitch System Regular 12.0 655 50 Group 0x00000033 0x000000ff 0xffffffff false 20 20 60 60 dirt 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 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 file 4 105 10 /media/menno/datae/EigenWerk/verzameling_ideejen/samples/freeze4tik.wav 500 true 15 160 sample 2 0x669966ff 0x1a1a1aff 0xffffffff false 20 20 70 115 pitch System Regular 12.0 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.2 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 file 2 105 10 /media/menno/datae/EigenWerk/verzameling_ideejen/samples/gilpiep.wav 500 true 715 5 direction System Regular 12.0 sample start 2 105 40 true 0.0 1.0 0.001 0.429 485 true true solo sample 2 45 25 true solo false true sample loop end 2 105 85 true 0.0 1.0 0.001 0.345 535 true false pan sample 2 760 55 true 0.0 1.0 1.0 41 true true label false System Regular 12.0 70 70 begin System Regular 12.0 10 15 2 System Bold 20.0 sample pitch 2 105 110 true 0.0 3.0 0.01 2.16 485 true true mute sample 2 45 10 true mute false true 10 45 start in sample System Regular 12.0 75 90 end System Regular 12.0 loop direction sample 2 680 20 true 0 12 true forward 0 backward 1 back-and-forth 2 770 110 pan System Regular 12.0 sample loop begin 2 105 65 true 0.0 1.0 0.001 0.219 535 true false 10 80 looprange System Regular 12.0 825 310 sample 7 0x669966ff 0x1a1a1aff 0xffffffff false 20 20 70 115 pitch System Regular 12.0 70 70 begin System Regular 12.0 710 5 direction System Regular 12.0 mute sample 7 45 10 true mute false true sample loop begin 7 105 65 true 0.0 1.0 0.001 0.284 535 true false 10 15 7 System Bold 20.0 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 file 7 105 10 /media/menno/datae/EigenWerk/verzameling_ideejen/samples/freeze4tik.wav 500 true 75 90 end System Regular 12.0 sample pitch 7 105 110 true 0.0 3.0 0.01 0.37 485 true true 765 110 pan System Regular 12.0 solo sample 7 45 25 true solo false true 10 80 looprange System Regular 12.0 650 50 Group 0x00000033 0x000000ff 0xffffffff false 20 20 volume sample 7 5 5 true 0.0 1.0 0.5800000000000001 41 true true label false System Regular 12.0 60 60 dirt System Regular 12.0 random volume 7 50 5 true 0.0 0.2 0.2 40 true true label false System Regular 12.0 5 60 volume System Regular 12.0 loop direction sample 7 675 20 true 2 12 true forward 0 backward 1 back-and-forth 2 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 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 == 1) then ipitch = semitone(ipitch - 60) iamp *= 0.007874016 endif xout ipitch, iamp