13.390625
0.0
partikkel
-12566464
ajmparticle
; Example by Joachim Heintz and Oeyvind Brandtsegg 2008
giCosine ftgen 0, 0, 8193, 9, 1, 1, 90 ; cosine
giDisttab ftgen 0, 0, 32768, 7, 0, 32768, 1 ; for kdistribution
giFile ftgen 0, 0, 0, 1, "<filename>", <skiptime>, 0, 0 ; soundfile for source waveform
giWin ftgen 0, 0, 4096, 20, 9, 1 ; grain envelope
giPan ftgen 0, 0, 32768, -21, 1 ; for panning (random values between 0 and 1)
gi_scroll_<INSTR_ID> ftgen 0, 0, 8193, 7, <scroll_env>
; *************************************************
; partikkel example, processing of soundfile
; uses the file "fox.wav"
; *************************************************
/*score parameters*/
kspeed = <speed> ; 1 = original speed
kgrainrate = <grainrate> ; grain rate
kgrainsize = <grainsize> ; grain size in ms
kcent = <transposition> ; transposition in cent
iposrand_ratio = <tposrnd> ; time position randomness (offset) of the pointer in ms
kcentrand = <trnsprnd> ; transposition randomness in cents
ipan = <panning> ; panning narrow (0) to wide (1)
idist = <graindistrb> ; grain distribution (0=periodic, 1=scattered)
ixmode = 1 ; for scrolling tablei (1 = from 0 - 1)
/*get length of source wave file, needed for both transposition and time pointer*/
ifilen tableng giFile
ifildur = ifilen / sr
iposrand = ifildur * 1000 * iposrand_ratio
/*sync input (disabled)*/
async = 0
/*grain envelope*/
kenv2amt = 1 ; use only secondary envelope
ienv2tab = giWin ; 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 = <amplitude>*0dbfs ; grain amplitude
igainmasks = -1 ; (default) no gain masking
/*transposition*/
kcentrand1 rand kcentrand ; random transposition
iorig = 1 / ifildur ; original pitch
kwavfreq = iorig * cent(kcent + kcentrand1)
/*other pitch related (disabled)*/
ksweepshape = 0 ; no frequency sweep
iwavfreqstarttab = -1 ; default frequency sweep start
iwavfreqendtab = -1 ; default frequency sweep end
awavfm = 0 ; no FM input
ifmamptab = -1 ; default FM scaling (=1)
kfmenv = -1 ; default FM envelope (flat)
/*trainlet related (disabled)*/
icosine = giCosine ; cosine ftable
kTrainCps = kgrainrate ; set trainlet cps equal to grain rate for single-cycle trainlet in each grain
knumpartials = 1 ; number of partials in trainlet
kchroma = 1 ; balance of partials in trainlet
/*panning, using channel masks*/
imid = .5; center
ileftmost = imid - ipan/2
irightmost = imid + ipan/2
giPanthis ftgen 0, 0, 32768, -24, giPan, ileftmost, irightmost ; rescales giPan according to ipan
tableiw 0, 0, giPanthis ; change index 0 ...
tableiw 32766, 1, giPanthis ; ... and 1 for ichannelmasks
ichannelmasks = giPanthis ; ftable for panning
/*random gain masking (disabled)*/
krandommask = 0
/*source waveforms*/
kwaveform1 = giFile ; source waveform
kwaveform2 = giFile ; all 4 sources are the same
kwaveform3 = giFile
kwaveform4 = giFile
iwaveamptab = -1 ; (default) equal mix of source waveforms and no amplitude for trainlets
/*time pointer*/
afilposphas1 phasor kspeed / ifildur
;kscroll line 0, p3, 1
afilposphas tablei afilposphas1, gi_scroll_<INSTR_ID>, ixmode
/*generate random deviation of the time pointer*/
iposrandsec = iposrand / 1000 ; ms -> sec
iposrand = iposrandsec / ifildur ; phase values (0-1)
krndpos linrand iposrand ; random offset in phase values
/*add random deviation to the time pointer*/
asamplepos1 = afilposphas + krndpos; resulting phase values (0-1)
asamplepos2 = asamplepos1
asamplepos3 = asamplepos1
asamplepos4 = asamplepos1
/*original key for each source waveform*/
kwavekey1 = 1
kwavekey2 = kwavekey1
kwavekey3 = kwavekey1
kwavekey4 = kwavekey1
/* maximum number of grains per k-period*/
imax_grains = 300
aL, aR partikkel kgrainrate, idist, giDisttab, async, kenv2amt, ienv2tab, \
ienv_attack, ienv_decay, ksustain_amount, ka_d_ratio, kgrainsize, kamp, igainmasks, \
kwavfreq, ksweepshape, iwavfreqstarttab, iwavfreqendtab, awavfm, \
ifmamptab, kfmenv, icosine, kTrainCps, knumpartials, \
kchroma, ichannelmasks, krandommask, kwaveform1, kwaveform2, kwaveform3, kwaveform4, \
iwaveamptab, asamplepos1, asamplepos2, asamplepos3, asamplepos4, \
kwavekey1, kwavekey2, kwavekey3, kwavekey4, imax_grains
blueMixerOut aL, aR
10
10
DOT
true
0
0
Group
0x00000033
0x000000ff
0xffffffff
true
20
20
11
8
System Bold
18.0
subChannelOut
130
10
Master
595
241
System Regular
12.0
grainsize
163
180
true
20.0
500.0
197.6
60
true
true
trnsprnd
450
170
true
0.0
5000.0
100.0
60
true
true
360
140
System Regular
12.0
grainrate
94
179
true
0.0
500.0
110.0
60
true
true
graindistrb
610
166
false
0.0
1.0
0.74845394
60
true
true
30
150
System Regular
12.0
170
150
System Regular
12.0
filename
12
63
C:\Users\stevenyi\work\study\USSSTOOLSKIT\selected_sounds\gong.wav
248
false
720
240
System Regular
12.0
transposition
250
180
true
-12000.0
12000.0
5280.0
60
true
true
speed
18
178
true
0.0
12.0
0.2817947
60
false
true
310
114
System Regular
12.0
scroll
710
120
300
80
8193.0
true
COMMA
false
false
230
150
System Regular
12.0
panning
520
170
false
0.0
1.0
0.78
60
true
true
430
260
System Regular
12.0
530
140
System Regular
12.0
440
90
System Regular
12.0
skiptime
320
40
false
0.0
100.0
1.9239194
60
true
true
100
150
System Regular
12.0
amplitude
390
60
false
0.0
1.0
0.001
0.162
150
true
true
10
40
System Regular
12.0
tposrnd
376
171
false
0.0
1.0
0.58
60
true
true