Partikkulary DESCRIPTION: Partikkulary is a wrapper for the partikkel opcode, and more.... The opcode is designed to stretch granualtion methods to the limit. - there are 4 samples as input to granulate. - these 4 samples can be mixed - the endresult has an amplitude envelope and ADSR note examples: i2 0 0.8 60 1.0 ; P4 = midi value, P5 = amplitude i2 0 0.2 261.625565 1.0 ; P4 = frequency, P5 = amplitude 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.1, October 2020 - added filter, that allows key follow and amp follow - allows switching between Midi pitch/frequency mode giCosine ftgen 0, 0, 8193, 9, 1, 1, 90 ; cosine wave for trainlets giDisttab ftgen 0, 0, 32, 7, 0, 32, 1 ; for kdistribution giProbDist ftgen 0, 0, 512, 21, 4, 1 ; probability distribution for random grain masking ipitch, iamp k_SCORE_format_Sampler i(<scoreP4>), p4, p5 iamplitude = p5 ktuning = <tuning> ;==================================================== if i(<grain envelope window>) == 0 then ; 3 grain envelope windows iWindow ftgenonce 0, 0, 4096, 20, 2 elseif i(<grain envelope window>) == 1 then iWindow ftgenonce 0, 0, 4096, 20, 9, 1 else iWindow ftgenonce 0, 0, 4096, 20, 6, 1 endif ;========================envelopes============================================== if i(<amplitude 1 exponential>) == 1 then kampenv loopxseg <amplitude envelope rate>/p3, 0, 0, <envelope_amplitude envelope>, 0 else kampenv loopseg <amplitude envelope rate>/p3, 0, 0, <envelope_amplitude envelope>, 0 endif aampenv interp kampenv ; upsample amp values ;====================loading of samples========================================= ;Sample 1 ivld1 filevalid <file1> if ivld1 > 0 then ; check if valid sample is imported - else, bypass iFile1 sampleONCE <file1> ; soundfile 1 else if <sample status> == 1 then prints "\n\n\nSAMPLE 1 OF Partikkulary INSTRUMENT %d IS NOT LOADED OR INVALID.\n\n\n", <INSTR_ID> endif iFile1 ftgen 0, 0, 2^17, 10, 0 ; dummy table with no amplitude endif ;Sample 2 ivld2 filevalid <file2> if ivld2 > 0 then ; check if valid sample is imported - else, bypass iFile2 sampleONCE <file2> ; soundfile 2 else if <sample status> == 1 then prints "\n\n\nSAMPLE 2 OF Partikkulary INSTRUMENT %d IS NOT LOADED OR INVALID.\n\n\n", <INSTR_ID> endif iFile2 ftgen 0, 0, 2^17, 10, 0 endif ;Sample 3 ivld3 filevalid <file3> if ivld3 > 0 then ; check if valid sample is imported - else, bypass iFile3 sampleONCE <file3> ; soundfile 3 else if <sample status> == 1 then prints "\n\n\nSAMPLE 3 OF Partikkulary INSTRUMENT %d IS NOT LOADED OR INVALID.\n\n\n", <INSTR_ID> endif iFile3 ftgen 0, 0, 2^17, 10, 0 endif ;Sample 4 ivld4 filevalid <file4> if ivld4 > 0 then ; check if valid sample is imported - else, bypass iFile4 sampleONCE <file4> ; soundfile 4 else if <sample status> == 1 then prints "\n\n\nSAMPLE 4 OF Partikkulary INSTRUMENT %d IS NOT LOADED OR INVALID.\n\n\n", <INSTR_ID> endif iFile4 ftgen 0, 0, 2^17, 10, 0 endif ;Sample 5 FM inputtotal ivld5 filevalid <file5> if ivld5 > 0 then ; check if valid sample is imported - else, bypass iFile5 sampleONCE <file5> ; soundfile 5 else if <sample status> == 1 then prints "\n\n\nFM SAMPLE OF Partikkulary INSTRUMENT %d IS NOT LOADED OR INVALID.\n\n\n", <INSTR_ID> endif ; iFile5<INSTR_ID> ftgenonce 0, 0, 2^17, 10, 0 endif ;==========================parameters=========================================== kspeed = <grain speed> ; 1 = original speed kgrainrate = <grain rate> ; grain frequency rate ;agrainrate interp kgrainrate kgrainsize = <grain size> ; grain size in ms kcent = <grain cent> ; transposition in cent kposrand = <grain random position> ; time position randomness (offset) of the pointer in ms kcentrand = <grain cent random> ; transposition randomness in cents ;ipan = <pan> ; panning narrow (0) to wide (1) kdist = <grain distribution> ; grain distribution (0=periodic, 1=scattered) klograte = log(<grain rate>) ; compensate for big volume changes klogsize = log(<grain size>) ; compensate for big volume changes klogsize *= .5 ; & adjust pre-volume ;==================query soundfiles============================================= ifilen1 tableng iFile1 ; calculate length of soundfile and use it for range of looping ifilen2 tableng iFile2 ifilen3 tableng iFile3 ifilen4 tableng iFile4 ifildur1 = ifilen1 / sr ifildur2 = ifilen2 / sr ifildur3 = ifilen3 / sr ifildur4 = ifilen4 / sr ;=============================================================================== async = 0 /*sync input (disabled)*/ /*grain envelope*/ kenv2amt = <grain envelope> ; use only secondary envelope ienv2tab = iWindow ; grain (secondary) envelope ienv_attack = -1 ; default attack envelope (flat) ienv_decay = -1 ; default decay envelope (flat) ksustain_amount = 0.5 ; no meaning in this case (use only secondary envelope, ienv2tab) ka_d_ratio = 0.5 ; no meaning in this case (use only secondary envelope, ienv2tab) /*amplitude*/ kamp = 1 ; grain amplitude igainmasks = -1 ; (default) no gain masking /*transposition*/ kcentrand rand kcentrand ; random transposition iorig1 = 1 / ifildur1 ; original sample pitch iorig2 = 1 / ifildur2 iorig3 = 1 / ifildur3 iorig4 = 1 / ifildur4 kwavfreq = iorig1 * cent(kcent + kcentrand) imax_grains = <grains maximum> ;maximum number of grains per k-period ;==================other sample pitch related================================== if i(<sweepON>) == 1 then ksweepshape = <sweep shape> ; grain wave sample pitch sweep shape (sweep speed), 0.5 is linear sweep iwavfreqstarttab ftgenonce 0, 0, 16, -2, 0, 0, 1 ; start freq scalers, per grain iwavfreqendtab ftgenonce 0, 0, 16, -2, 0, 0, 0 ; end freq scalers, per grain if i(<sweep sound>) == 1 then ; 2 sample pitch options kStartFreq oscil <sweep depth>, kgrainrate else kStartFreq randh <sweep depth>, kgrainrate endif kStartFreq = 1 + kStartFreq ; offset, center multiplier at 1 tablew kStartFreq, 2, iwavfreqstarttab ; write start freq multiplier to table else ksweepshape = 0 ; 0=no sweep iwavfreqstarttab = -1 ; default frequency sweep start (value in table = 1, which give no frequency modification) iwavfreqendtab = -1 ; default frequency sweep end (value in table = 1, which give no frequency modification) endif ;=====================FM input================================================== if i(<FM input>) == 0 then ;3 FM input options awavfm = 0 ; disabled elseif i(<FM input>) == 1 then awavfm oscil <FM intensity>, <FM frequency> ; sine elseif i(<FM input>) == 2 then awavfm dust <FM intensity>, <FM frequency> ; noise elseif i(<FM input>) == 3 && (ivld5 > 0)then ilen filelen <file5> ; sample prints "\nFM SAMPLE USED!!!\n\n" ichn filenchnls <file5> ; check number of channels if (ichn == 1) then ; mono signal awavfm loscil <FM intensity>, <FM frequency>, iFile5, 1, 1 ; audio input for frequency modulation inside grain else ; stereo signal awavfm, awavfmR loscil <FM intensity>, <FM frequency>, iFile5, 1, 1 endif endif ifmamptab = -1 ; default FM scaling (=1) kfmenv = -1 ; default FM envelope (flat) ;====================trainlets================================================== if (i(<trainletsON>) == 1) then icosine = giCosine ; cosine ftable kTrainCps = kgrainrate ; set trainlet cps equal to grain rate for single-cycle trainlet in each grain knumpartials = <trainlets quantity> ; number of partials in trainlet kchroma = <trainlets chroma> ; color balance of partials in trainlet else icosine = giCosine ; quiet settings kTrainCps = 1 knumpartials = 1 kchroma = 1 endif ;=========================panning=============================================== ichannelmasks ftgenonce 0, 0, 32, -2, 0, 0, 0 kchn phasor <panning spread speed> ; continuously write to masking table, krnd = rnd(<panning random spread>) ; scatter the sound kchn *= krnd kchn = kchn * nchnls ; look at number of channels tablew kchn, 2, ichannelmasks ;====================random gain masking======================================== if i(<grain amlitude tableON>) == 1 then krandommask loopseg 1/p3, 0, 0, <envelope_amplitude of grains over note>, 0 ; read envelope else krandommask = 0 ; full gain for all grains endif ;================waveforms parameters=========================================== kwaveform1 = iFile1 ; source waveform kwaveform2 = iFile2 kwaveform3 = iFile3 kwaveform4 = iFile4 iwaveamptab ftgenonce 0, 0, 8, -2, 0, 0, 1,0,0,0,0 ; wave mix masking in groups of 5 amp values, reflecting source1, source2, source3, source4, and the 5th slot is for trainlet amplitude. kwgain5 = <trainlets amplitude> ; trainlet gain tablew <gain1>, 2, iwaveamptab ; write waveforms amps to wave mix mask table tablew <gain2>, 3, iwaveamptab tablew <gain3>, 4, iwaveamptab tablew <gain4>, 5, iwaveamptab tablew kwgain5, 6, iwaveamptab ; write trainlet amp to mix mask table ;===================time pointer================================================ afilposphas1 phasor kspeed / ifildur1 afilposphas2 phasor kspeed / ifildur2 afilposphas3 phasor kspeed / ifildur3 afilposphas4 phasor kspeed / ifildur4 /*generate random deviation of the time pointer*/ kposrandsec = kposrand / 100 ; ms -> sec kposrand = kposrandsec / ifildur1 ; phase values (0-1) krndpos linrand kposrand ; random offset in phase values /*add random deviation to the time pointer*/ asamplepos1 = afilposphas1 + krndpos + <sample start 1> ; resulting phase values (0-1) asamplepos2 = afilposphas2 + krndpos + <sample start 2> asamplepos3 = afilposphas3 + krndpos + <sample start 3> asamplepos4 = afilposphas4 + krndpos + <sample start 4> ;==========================pitch waveform========================================= kwavekey1 = <sample pitch 1> ;original pitch for each source waveform kwavekey2 = <sample pitch 2> kwavekey3 = <sample pitch 3> kwavekey4 = <sample pitch 4> ;===========================output============================================== klogratecomp logcurve klograte, 3 klogratecomp *= .5 aLL, aRR partikkel kgrainrate, \ ; number of grains per second kdist, giDisttab, \ ; periodic or stochastic distribution of grains, 0 = periodic. async, \ ; sync input - not used here kenv2amt, ienv2tab, \ ; amount of enveloping for the secondary envelope for each grain. Range 0 to 1. function table number, additional envelope applied to grain, done after attack and decay envelopes. ienv_attack, ienv_decay, ksustain_amount, ka_d_ratio, \ ; function table numbers, attack/decay shape of grain, proportional attack/sustain/decay kgrainsize, kamp, igainmasks, \ ; Multiplied by per grain amplitude read from igainmasks kwavfreq, ksweepshape, iwavfreqstarttab, iwavfreqendtab, \ ; transposition scaling. Multiplied with start and end transposition values read from iwavfreqstarttab and iwavfreqendtab. awavfm, ifmamptab, kfmenv, \ ; FM icosine, kTrainCps, knumpartials, kchroma, \ ; trainlets ichannelmasks, \ ; function table number. Range is 0 to N, where N is the number of output channels. krandommask, \ ; random masking (muting) of individual grains. Range 0 to 1 kwaveform1, kwaveform2, kwaveform3, kwaveform4, \ ; samples iwaveamptab, \ ; gain value for each of the 4 source waveforms, and the 5th value represent trainlet amplitude. asamplepos1, asamplepos2, asamplepos3, asamplepos4, \ ; start position for reading source waveforms kwavekey1*ipitch*ktuning, kwavekey2*ipitch*ktuning, kwavekey3*ipitch*ktuning, kwavekey4*ipitch*ktuning, \ ; original key of source waveforms and tunings imax_grains ; maximum number of grains per k-period. aL dcblock aLL aR dcblock aRR 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> ; retriggering envelope 1 or else aenv madsr i(<amp attack>) + 0.0001, i(<amp decay>), i(<amp sustain>), i(<amp release>) ; static envelope 2 endif else ; no envelope at all aenv = .4 endif ;================================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 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 aLL, acutoff, kQ ; don't use lowpass filter here ar, abpR, ahpR zdf_2pole_mode aRR, acutoff, kQ ; use only for bandpass and highpass (12 dB) alpL zdf_ladder aLL, acutoff, kQ ; but use this lowpass (24 dB) alpR zdf_ladder aRR, 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> aL = (ahpL + alpL + abpL) ; mix all filter gains aR = (ahpR + alpR + abpR) endif atotalleft = aL * klogratecomp * aampenv * iamplitude * aenv * <gain Left> atotalright = aR * klogratecomp * aampenv * iamplitude * aenv * <gain Right> blueMixerOut atotalleft, atotalright 5 5 DOT true 0 0 Group 0x00000033 0x000000ff 0xffffffff true 20 20 0 0 l---------------------------- P a r t i k k u l a r y ----------------------------l 0x4d4d4dff 0x4d1a4dff 0xffffffff true 20 20 10 570 filters 0x669966ff 0x000000ff 0xffffffff false 824 20 filter resonance 298 8 gain of feedback of filters true 0.5 25.0 17.405 40 true true resonance true System Regular 12.0 filter total depth 363 8 gain of filters true 0.0 1.0 1.0 40 true true depth true System Regular 12.0 415 4 envelopes 0x669966ff 0x000000ff 0xffffffff false 20 20 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 132 8 depth System Regular 12.0 7 8 A-D-S System Bold 18.0 filter ads depth 137 22 gain of ADS envelope true 0.0 1.0 0.01 1.0 57 true false 280 10 GRAPH System Bold 18.0 filter ads decay 49 36 decay portion of envelope true 0.0 1.0 0.43000000000000005 31 true false decay true System Regular 12.0 filter envelope depth 359 24 gain of filter envelope true 0.0 1.0 0.05 1.0 57 true false filter exponential switch 344 38 treat anvelope ar exponential true true true filter ads sustain 87 36 sustain portion of envelope true 0.0 1.0 1.0 31 true false sustain true System Regular 12.0 356 10 depth 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 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 340 54 exp System Regular 12.0 filter follower 11 52 open and close filter depending on amplitude or frequency true 3 12 true --- 0 amp follow 1 amp follow invert 2 key follow 3 key follow invert 4 180 8 high System Regular 12.0 153 8 low System Regular 12.0 filter frequency cutoff 254 8 cutoff frequency of filters true 4.35 14.3 11.514000000000001 40 true true cutoff true System Regular 12.0 filterON 11 8 filters ON or OFF true filters true true filter highpass gain 180 20 gain of highpass filter true 0.0 0.5 0.1 0.0 56 true false filter lowpass gain 148 20 gain of lowpass filter true 0.0 2.5 0.1 2.5 56 true false 210 8 bndP System Regular 12.0 filter bandpass gain 212 20 gain of bandpass filter true 0.0 0.5 0.1 0.0 56 true false 10 270 Frequency Modulation of grains 0x669966ff 0x000000ff 0xffffffff true 745 20 FM frequency 690 0 pitch of sample for FM true 0.1 10.0 0.892 30 true true freq. true System Regular 12.0 FM intensity 640 0 gain of sample for FM true 0.0 10.0 0.0 30 true true gain true System Regular 12.0 file5 100 10 load sample to be used for Frequency Modulation /media/menno/datae/EigenWerk/verzameling_ideejen/samples/box.wav 500 true FM input 10 10 no FM, sine, noise or sample FM true 0 12 true disabled 0 sine 1 noise 2 sample 3 1000 280 output 0x669966ff 0x000000ff 0xffffffff true 20 20 40 10 tuning System Regular 12.0 146 11 L System Regular 12.0 gain Left 135 20 output gain Left channel true 0.0 5.0 0.01 2.12 80 true false tuning 35 20 overall tuning true 0.0 4.0 0.01 1.0 50 true true gain Right 156 21 output gain Right channel true 0.0 5.0 0.01 2.16 79 true false scoreP4 40 285 choose for pitch between midi notes/real values true 0 12 true P4 = frequency 0 P4 = MIDI pitch 1 75 270 score P4 System Regular 12.0 166 11 R System Regular 12.0 15 115 panning 0x669966ff 0x000000ff 0xffffffff true 182 129 panning random spread 85 10 time position randomness (offset) of the pointer in ms true 0.0 1.0 1.0 40 true true randomspread true System Regular 12.0 20 85 spreadspeed System Regular 12.0 panning spread speed 10 90 scatter the sound over 2 channels true 0.0 1.0 0.1 1.0 100 true true grain distribution 10 10 grain distribution (0=periodic, 1=scattered) true 0.0 1.0 0.44 40 true true distribution true System Regular 12.0 755 10 grain properties 0x669966ff 0x000000ff 0xffffffff true 20 547 85 10 frequency 0x669966ff 0x000000ff 0xffffffff true 20 20 grain cent random 35 0 adds some random pitch true 0.0 1000.0 0.1 0.0 290 true false grain cent 0 0 add pitch variations in cents true 0.0 1000.0 0.1 141.3 290 true false 5 290 cent System Regular 12.0 40 290 dirt System Regular 12.0 grain envelope 190 350 use only secondary envelope true 0.0 1.0 1.0 40 true false gr. env true System Regular 12.0 grains maximum 130 355 maximum number of grains per k-period 100 50 10 355 maximum of grains System Regular 12.0 grain envelope window 90 380 grain (secondary) envelope true 0 12 true Hanning 0 Sync 1 Gaussian 2 10 10 speed 0x669966ff 0x000000ff 0xffffffff true 20 20 grain speed 0 1 speed of playback cursor through sample true 0.0 3.0 0.0001 0.7223 284 true false 0 290 speed System Regular 12.0 grain random position 35 0 add some random speed true 0.0 500.0 0.1 48.9 290 true false 40 290 dirt System Regular 12.0 10 385 env. window System Regular 12.0 10 410 envelope for amplitude ADSR 0x669966ff 0x000000ff 0xffffffff true 20 104 20 15 amplitude envelope Group 0x00000033 0x000000ff 0xffffffff false 20 20 amp sustain 85 0 true 0.0 1.0 0.0 31 true false sustain true System Regular 12.0 amp release 130 0 true 0.0 1.0 0.0 31 true false release true System Regular 12.0 amp decay 50 0 true 0.0 1.0 0.41000000000000003 31 true false decay true System Regular 12.0 amp attack 5 0 true 0.0 1.0 0.0 31 true false attack true System Regular 12.0 ADSRon 5 5 ON/OFF for ADSR true false true envelope speed 10 70 retrigger ADSR for amplitude true 0.0 15.0 0.01 9.16 150 true true 160 10 size 0x669966ff 0x000000ff 0xffffffff true 20 20 grain size 35 0 adds random variation to rate true 2.0 1000.0 0.1 16.4 290 true false grain rate 0 0 number of grains per second true 1.5 100.0 0.1 39.3 290 true false 0 290 rate System Regular 12.0 40 290 size System Regular 12.0 1000 10 grain distortions 0x669966ff 0x000000ff 0xffffffff true 209 20 10 120 trainlets 0x669966ff 0x000000ff 0xffffffff true 190 104 trainlets chroma 80 10 color balance of partials in trainlet true 0.0 2.0 0.5400000000000003 30 true true chroma true System Regular 12.0 50 80 System Regular 12.0 100 80 System Regular 12.0 trainlets quantity 30 10 number of partials in trainlet true 1.0 20.0 15.44 30 false true quantity true System Regular 12.0 trainlets amplitude 135 10 amplitude of trainlets true 0.0 1.0 0.51 30 true true amp true System Regular 12.0 180 80 System Regular 12.0 trainletsON 10 10 ON/OFF true true true 10 10 sweep 0x669966ff 0x000000ff 0xffffffff true 190 20 sweep depth 80 5 grain wave sample pitch sweep shape true 0.0 1.0 0.8200000000000001 30 true true depth true System Regular 12.0 sweep sound 10 40 true 0 12 true sine 0 noise 1 sweepON 10 10 true false true 140 65 System Regular 12.0 sweep shape 120 5 sweep shape (sweep speed), 0.5 is linear sweep true 0.0 1.0 0.89 30 true true shape true System Regular 12.0 10 10 mix samples 0x669966ff 0x000000ff 0xffffffff true 745 20 file3 100 120 load soundfile #3 /media/menno/datae/EigenWerk/verzameling_ideejen/samples/zaagtand.wav 565 true 365 150 pitch System Regular 12.0 gain2 700 65 pregain for sample 2 true 0.0 1.0 0.0 30 true false gain true System Regular 12.0 file1 97 8 load soundfile #1 568 true sample status 5 10 reports wheter samples are loaded/invalid or not false report false true 80 10 1 System Bold 20.0 365 95 pitch System Regular 12.0 gain3 700 120 pregain for sample 3 true 0.0 1.0 0.0 30 true false gain true System Regular 12.0 file4 100 175 load soundfile #4 565 true 365 205 pitch System Regular 12.0 80 65 2 System Bold 20.0 5 205 start in sample System Regular 12.0 5 150 start in sample System Regular 12.0 sample pitch 3 395 145 pitch of sample 3 true 0.0 3.0 0.01 0.08 250 true true sample start 3 95 145 offset for sample playback true 0.0 1.0 0.001 0.0 250 true false 5 40 start in sample System Regular 12.0 sample pitch 2 395 90 pitch of sample 2 true 0.0 3.0 0.01 0.39 250 true true sample start 2 95 90 offset for sample playback true 0.0 1.0 0.001 0.0 250 true false 5 95 start in sample System Regular 12.0 gain1 700 5 pregain for sample 1 true 0.0 1.0 0.0 30 true false gain true System Regular 12.0 80 120 3 System Bold 20.0 gain4 700 175 pregain for sample 4 true 0.0 1.0 0.0 30 true false gain true System Regular 12.0 sample pitch 4 395 200 pitch of sample 4 true 0.0 3.0 0.01 0.62 250 true true sample pitch 1 395 35 pitch of sample 1 true 0.0 3.0 0.01 0.52 250 true true file2 100 65 load soundfile #2 /media/menno/datae/EigenWerk/verzameling_ideejen/samples/bastril.wav 565 true 80 175 4 System Bold 20.0 sample start 4 95 200 offset for sample playback true 0.0 1.0 0.001 0.148 250 true false 365 40 pitch System Regular 12.0 sample start 1 95 35 offset for sample playback true 0.0 1.0 0.001 0.148 250 true false 10 360 amplitude envelopes 0x669966ff 0x000000ff 0xffffffff true 741 190 amplitude 1 exponential 680 125 treat amplitude envelope as exponential true exp true true grain amlitude tableON 635 10 ON/OFF to activate amplitude envelope true amps grain false true 635 35 amp env rate System Regular 12.0 amplitude envelope rate 650 45 rate of repetitions of amplitude envelope true 1.0 30.0 0.1 1.0 135 true false envelope 10 10 envelopes for amplitude, amplitude of grains per note (bottom=mute), filter 610 150 1.0 true COMMA false false 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 print itable xout itable k_Pfield k ik ipfield, kvalue xin ; choose pfield & value if (p(ipfield) == -1) then ; -1 is the switch number kfield = kvalue ; if -1 then follow the values of the Automation Line else kfield = p(ipfield) ; if any other value than -1, take the value from the pfiled in the score endif xout kfield take in a p-field and the value for it. if -1 is set for that particular p-field in the score, then Blue will put the Automation Line Point value in its place. If not -1, then that p-field value will be used. example of score: i1 0 1 -1 .09 ; -1 for p4, so Automation Line Point replaces frequency setting i1 1.2 2 100 -1 ; -1 for p5, so Automation Line Point replaces volume setting 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_SCORE_format_Sampler ii iii iscore, ipitch, iamp xin if (iscore == 0) then ; frequency mode ipitch *= .0038222 ;print ipitch else ipitch = semitone(ipitch - 48) endif xout ipitch, iamp