2.0 6.336363636363636 Partikkulary -3355648 Partikkulary1.0 Partikkulary is an attempt to disclose most of the options the partikkel opcode, and more.... Score example: ; pitch amp env i3 0 2 .6 .6 1 where p4 = basic pitch of all samples p5 = basic amplitude p6 = choice of preset amplitude envelope - there are 4 samples as input to granulate. - these 4 samples can be mixed in the XY controller window in Output section - 4 presets can be set for amplitude of the samples. The preset can be set in the score as p6 - the endresult has an amplitude envelope - tuning can be set, also as AL The Mix Waveforms XY Controler BSB allows mixing of the 4 input samples. This BSB creates 2 Automation Lines, in this case: wavemix X and wavemix Y. What samples do they represent using the ALs? SAMPLE AL WAVEMIX X AL WAVEMIX Y ------------------------------------------------------------------------------------------- sample 1 wavemix X down wavemix Y up sample 2 wavemix X up wavemix Y up sample 3 wavemix X up wavemix Y down sample 4 wavemix X down wavemix Y down 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 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 exponential>) == 1 then kampenv loopxseg <scale amplitude envelope>/p3, 0, 0, <envelope_amplitude envelope>, 0 else kampenv loopseg <scale amplitude envelope>/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 prints "\n\n\nSAMPLE 1 OF Partikkulary INSTRUMENT %d IS NOT LOADED OR INVALID.\n\n\n", <INSTR_ID> 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 prints "\n\n\nSAMPLE 2 OF Partikkulary INSTRUMENT %d IS NOT LOADED OR INVALID.\n\n\n", <INSTR_ID> 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 prints "\n\n\nSAMPLE 3 OF Partikkulary INSTRUMENT %d IS NOT LOADED OR INVALID.\n\n\n", <INSTR_ID> 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 prints "\n\n\nSAMPLE 4 OF Partikkulary INSTRUMENT %d IS NOT LOADED OR INVALID.\n\n\n", <INSTR_ID> 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 prints "\n\n\nFM SAMPLE OF Partikkulary INSTRUMENT %d IS NOT LOADED OR INVALID.\n\n\n", <INSTR_ID> ; iFile5<INSTR_ID> ftgenonce 0, 0, 2^17, 10, 0 endif ;==========================parameters=========================================== kspeed = <grain speed> ; 1 = original speed kgrainrate = <grain rate> ; grain 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 = <total volume> ; 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 oscil <FM intensity>, <FM frequency> elseif i(<FM input>) == 1 then awavfm dust <FM intensity>, <FM frequency> elseif i(<FM input>) == 2 && (ivld5 > 0) then ilen filelen <file5> prints "FM samplen\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 elseif i(<FM input>) == 3 then awavfm = 0 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 ftable 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. kWaveX = <wavemix X> ; generate crossfade automation kWaveY = <wavemix Y> kwgain3 limit ((1-kWaveX)*(1-kWaveY)), 0, 1 ; calculate gain for 4 sources from XY position kwgain4 limit (kWaveX*(1-kWaveY)), 0, 1 kwgain1 limit ((1-kWaveX)*kWaveY), 0, 1 kwgain2 limit (kWaveX*kWaveY), 0, 1 kwgain5 = <trainlets amplitude> ; trainlet gain tablew kwgain1, 2, iwaveamptab ; write waveforms amps to wave mix mask table tablew kwgain2, 3, iwaveamptab tablew kwgain3, 5, iwaveamptab tablew kwgain4, 4, 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*ktuning, kwavekey2*ktuning, kwavekey3*ktuning, kwavekey4*ktuning, \ ; original key of source waveforms and tunings imax_grains ; maximum number of grains per k-period. aL dcblock aLL aR dcblock aRR blueMixerOut "<Subchannel>", aL * klogratecomp * aampenv, aR * klogratecomp * aampenv 5 5 DOT true 0 0 Group 0x00000033 0x000000ff 0xffffffff true 20 20 755 10 grain properties 0x999900ff 0x000000ff 0xffffffff true 20 571 15 510 System Regular 12.0 15 470 System Regular 12.0 grains maximum 135 470 50 50 170 10 size 0x999900ff 0x000000ff 0xffffffff true 20 20 grain rate 0 0 true 1.5 100.0 0.1 38.4 400 true false 5 400 System Regular 12.0 grain size 40 0 true 2.0 1000.0 0.1 170.0 400 true false 45 400 System Regular 12.0 10 10 speed 0x999900ff 0x000000ff 0xffffffff true 20 20 grain speed 0 1 true 0.0 3.0 0.0001 0.5595 400 true false grain random position 40 0 true 0.0 500.0 0.1 0.0 400 true false 45 399 System Regular 12.0 0 400 System Regular 12.0 90 10 frequency 0x999900ff 0x000000ff 0xffffffff true 20 20 grain cent random 40 0 true 0.0 1000.0 0.1 0.0 400 true false grain cent 0 0 true 0.0 1000.0 0.1 0.0 400 true false 45 400 System Regular 12.0 0 400 System Regular 12.0 grain envelope 195 470 true 0.0 1.0 1.0 40 true false true System Regular 12.0 grain envelope window 95 505 true 0 12 true Hanning 0 Sync 1 Gaussian 2 1020 315 output 0x999900ff 0x000000ff 0xffffffff true 20 266 tuning 175 20 true 0.0 4.0 0.01 1.0 50 true true total volume 125 30 true 0.0 20.0 4.0 40 true false true System Regular 12.0 wavemix 30 25 true 70 70 0.0 1.0 0.0 1.0 0.0 0.0 true false 180 10 System Regular 12.0 15 85 System Bold 12.0 105 85 System Bold 12.0 5 110 panning 0x999900ff 0x000000ff 0xffffffff true 230 122 15 95 System Regular 12.0 Subchannel 95 90 Sub1 85 160 10 System Regular 12.0 panning spread speed 160 25 true 0.0 1.0 0.1 1.0 50 true false grain distribution 20 10 true 0.0 1.0 0.4 40 true true true System Regular 12.0 panning random spread 100 10 true 0.0 1.0 1.0 40 true true true System Regular 12.0 105 20 System Bold 12.0 20 5 System Regular 12.0 15 20 System Bold 12.0 10 270 Frequency Modulation of grains 0x999900ff 0x000000ff 0xffffffff true 745 20 FM input 10 10 true 3 12 true sine 0 noise 1 sample 2 disabled 3 FM frequency 690 0 true 0.1 10.0 1.981 30 true true true System Regular 12.0 file5 100 10 /home/menno/fox.wav 500 true FM intensity 640 0 true 0.0 10.0 0.0 30 true true true System Regular 12.0 1015 10 grain distortions 0x999900ff 0x000000ff 0xffffffff true 229 20 10 130 trainlets 0x999900ff 0x000000ff 0xffffffff true 230 124 trainletsON 10 10 true false true 110 100 System Regular 12.0 trainlets quantity 40 30 true 1.0 20.0 4.420000000000001 40 false true true System Regular 12.0 190 100 System Regular 12.0 trainlets amplitude 150 30 true 0.0 1.0 0.71 40 true true true System Regular 12.0 30 100 System Regular 12.0 trainlets chroma 100 30 true 0.0 2.0 0.5599999999999999 40 true true true System Regular 12.0 10 10 sweep 0x999900ff 0x000000ff 0xffffffff true 230 20 sweep shape 160 10 true 0.0 1.0 0.0 41 true true true System Regular 12.0 160 70 System Regular 12.0 sweep depth 100 10 true 0.0 1.0 0.42 41 true true true System Regular 12.0 sweep sound 10 40 true 0 12 true sine 0 noise 1 sweepON 10 10 true false true 10 360 amplitude envelopes 0x999900ff 0x000000ff 0xffffffff true 741 219 envelope 10 10 720 150 1.0 true COMMA false false amplitude exponential 10 190 true true true scale amplitude envelope 290 180 true 1.0 50.0 0.1 1.0 150 true true 245 190 System Regular 12.0 grain amlitude tableON 580 190 true true true 10 10 mix samples 0x999900ff 0x000000ff 0xffffffff true 742 20 395 40 System Regular 12.0 sample pitch 3 425 145 true 0.0 3.0 0.01 1.65 250 true true 5 205 System Regular 12.0 5 150 System Regular 12.0 5 95 System Regular 12.0 sample start 1 95 35 true 0.0 1.0 0.001 0.153 250 true false 395 205 System Regular 12.0 80 65 System Bold 20.0 sample start 4 95 200 true 0.0 1.0 0.001 0.436 250 true false sample pitch 2 425 90 true 0.0 3.0 0.01 2.14 250 true true sample start 2 95 90 true 0.0 1.0 0.001 0.186 250 true false file3 100 120 /home/menno/csound/Samples/808loopMono.wav 600 true file2 100 65 /home/menno/csound/Samples/808loopMono.wav 600 true 80 120 System Bold 20.0 sample pitch 4 425 200 true 0.0 3.0 0.01 1.25 250 true true sample start 3 95 145 true 0.0 1.0 0.001 0.0 250 true false sample pitch 1 425 35 true 0.0 3.0 0.01 0.99 250 true true 395 95 System Regular 12.0 80 10 System Bold 20.0 395 150 System Regular 12.0 80 175 System Bold 20.0 file4 100 175 /media/menno/datae/EigenWerk/eigenwerk/samples/b64_01.wav 600 true file1 97 8 /home/menno/csound/Samples/808loop.wav 600 true 5 40 System Regular 12.0 sampleONCE i S Sfile xin itable chnget Sfile if (itable == 0) then iSample ftgen 0, 0, 0, 1, Sfile, 0, 0, 0 chnset itable, Sfile endif xout iSample Partikkulary is a granulator. Partikkulary accepts 4 samples, mono or stereo. Start In Samples are relative to the samples length combined, so a smaller sample gives better resolution for setting a loop. The Sound SoundObject , like all Sound SoundObjects, passes the mixer through the SubChannel. This means: 1. a name entry must be given in the box SubChannel: 2. create a subchannel 3. rename this Subchannel to name given in the box SubChannel: 4. apply effects (if needed) version 1.0, Juin 2019 - available as Instrument and Sound SoundObject - amplitude envelope can be scaled and looped