blob: caeece284b1212a57f155fe83a13a421c25c555a (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
|
#N canvas 1105 175 1039 766 10;
#X obj 49 -3 inlet;
#X obj 77 656 outlet~;
#X obj 234 660 outlet~;
#X obj 86 625 *~;
#X obj 240 629 *~;
#X obj 243 -49 inlet pitch;
#X obj 423 -50 inlet duration;
#X obj 22 146 sig~ 1;
#N canvas 1026 60 1278 964 grains 0;
#X obj 272 634 outlet~;
#X obj 98 24 inlet~;
#X obj 230 25 inlet~;
#X obj 371 630 outlet~;
#X obj 743 38 inlet grain_length;
#X obj 282 264 phasor~;
#X obj 327 338 +~ 0.5;
#X obj 304 362 wrap~;
#X obj 296 234 *~ 1;
#X obj 802 87 loadbang;
#N canvas 0 90 1022 684 grain~ 0;
#X obj 113 468 tabread4~;
#X msg 163 436 set \$1;
#X obj -29 81 inlet~ offset(normalized);
#X obj 137 79 inlet~ phasor;
#X obj 65 237 samphold~;
#X obj 64 280 +~;
#X obj 129 609 outlet~;
#X obj 832 200 clip 0 0.5;
#X obj 128 577 *~;
#X obj 668 394 samphold~;
#X obj 594 394 samphold~;
#X obj 265 459 tabread4~;
#X obj 276 616 outlet~;
#X obj 275 584 *~;
#X msg 333 420 set \$1;
#X obj 830 254 expr 1-$f1;
#X obj 658 320 sig~ 0.01;
#X obj 774 347 sig~ 0.99;
#X obj 138 228 *~ 7056;
#X obj 610 170 unpack s s;
#X obj 492 80 inlet tables;
#X obj 714 74 inlet grain_length;
#X obj 845 72 inlet grain_fade;
#X obj 65 340 cyclone/pong~ 1 10000 40000;
#X obj 113 285 r \$0-sampstart;
#X obj 196 302 r \$0-sampend;
#X obj 432 424 *~ 1;
#X obj 451 394 r \$0han_size;
#X obj 442 495 tabread4~ \$0han;
#X connect 0 0 8 0;
#X connect 1 0 0 0;
#X connect 2 0 4 0;
#X connect 3 0 4 1;
#X connect 3 0 10 1;
#X connect 3 0 9 1;
#X connect 3 0 18 0;
#X connect 3 0 26 0;
#X connect 4 0 5 0;
#X connect 5 0 23 0;
#X connect 7 0 15 0;
#X connect 7 0 16 0;
#X connect 8 0 6 0;
#X connect 11 0 13 0;
#X connect 13 0 12 0;
#X connect 14 0 11 0;
#X connect 15 0 17 0;
#X connect 16 0 10 0;
#X connect 17 0 9 0;
#X connect 18 0 5 1;
#X connect 19 0 1 0;
#X connect 19 1 14 0;
#X connect 20 0 19 0;
#X connect 21 0 18 1;
#X connect 22 0 7 0;
#X connect 23 0 11 0;
#X connect 23 0 0 0;
#X connect 24 0 23 1;
#X connect 25 0 23 2;
#X connect 26 0 28 0;
#X connect 27 0 26 1;
#X connect 28 0 8 1;
#X connect 28 0 13 1;
#X restore 166 512 pd grain~;
#X obj 122 189 *~ 0;
#X obj 125 245 +~ 0;
#X obj 156 155 r \$0-samplength;
#X obj 157 212 r \$0-sampstart;
#X obj 473 38 inlet tables;
#X obj 663 125 unpack f f;
#X obj 342 97 t b f;
#X obj 322 143 samplerate~;
#X obj 328 180 /;
#N canvas 1139 131 1022 684 grain~ 0;
#X obj 113 468 tabread4~;
#X msg 163 436 set \$1;
#X obj -29 81 inlet~ offset(normalized);
#X obj 137 79 inlet~ phasor;
#X obj 65 237 samphold~;
#X obj 64 280 +~;
#X obj 129 609 outlet~;
#X obj 832 200 clip 0 0.5;
#X obj 128 577 *~;
#X obj 668 394 samphold~;
#X obj 594 394 samphold~;
#X obj 265 459 tabread4~;
#X obj 276 616 outlet~;
#X obj 275 584 *~;
#X msg 333 420 set \$1;
#X obj 830 254 expr 1-$f1;
#X obj 658 320 sig~ 0.01;
#X obj 774 347 sig~ 0.99;
#X obj 138 228 *~ 7056;
#X obj 610 170 unpack s s;
#X obj 492 80 inlet tables;
#X obj 714 74 inlet grain_length;
#X obj 845 72 inlet grain_fade;
#X obj 75 350 cyclone/pong~ 1 10000 40000;
#X obj 123 295 r \$0-sampstart;
#X obj 206 312 r \$0-sampend;
#X obj 442 434 *~ 1;
#X obj 461 404 r \$0han_size;
#X obj 452 505 tabread4~ \$0han;
#X connect 0 0 8 0;
#X connect 1 0 0 0;
#X connect 2 0 4 0;
#X connect 3 0 4 1;
#X connect 3 0 10 1;
#X connect 3 0 9 1;
#X connect 3 0 18 0;
#X connect 3 0 26 0;
#X connect 4 0 5 0;
#X connect 5 0 23 0;
#X connect 7 0 15 0;
#X connect 7 0 16 0;
#X connect 8 0 6 0;
#X connect 11 0 13 0;
#X connect 13 0 12 0;
#X connect 14 0 11 0;
#X connect 15 0 17 0;
#X connect 16 0 10 0;
#X connect 17 0 9 0;
#X connect 18 0 5 1;
#X connect 19 0 1 0;
#X connect 19 1 14 0;
#X connect 20 0 19 0;
#X connect 21 0 18 1;
#X connect 22 0 7 0;
#X connect 23 0 0 0;
#X connect 23 0 11 0;
#X connect 24 0 23 1;
#X connect 25 0 23 2;
#X connect 26 0 28 0;
#X connect 27 0 26 1;
#X connect 28 0 8 1;
#X connect 28 0 13 1;
#X restore 384 528 pd grain~;
#X msg 805 113 7056 0.5;
#X connect 1 0 11 0;
#X connect 2 0 8 0;
#X connect 4 0 16 0;
#X connect 5 0 6 0;
#X connect 5 0 10 1;
#X connect 6 0 7 0;
#X connect 7 0 20 1;
#X connect 8 0 5 0;
#X connect 9 0 21 0;
#X connect 10 0 0 0;
#X connect 10 1 3 0;
#X connect 11 0 12 0;
#X connect 12 0 10 0;
#X connect 12 0 20 0;
#X connect 13 0 11 1;
#X connect 14 0 12 1;
#X connect 15 0 10 2;
#X connect 15 0 20 2;
#X connect 16 0 10 3;
#X connect 16 0 17 0;
#X connect 16 0 20 3;
#X connect 16 1 10 4;
#X connect 16 1 20 4;
#X connect 17 0 18 0;
#X connect 17 1 19 1;
#X connect 18 0 19 0;
#X connect 19 0 8 1;
#X connect 20 0 0 0;
#X connect 20 1 3 0;
#X connect 21 0 16 0;
#X restore 20 377 pd grains;
#X obj 583 386 s \$0-sampstart;
#X obj 676 386 s \$0-samplength;
#X obj 500 385 s \$0-sampend;
#X obj 61 66 route bang float grain;
#N canvas 0 0 842 452 parse_sample 0;
#X obj 392 336 outlet end;
#X obj 493 335 outlet start;
#X obj 600 336 outlet length;
#X obj 265 336 outlet tables;
#X obj 127 338 outlet base_freq;
#N canvas 0 0 450 300 find_freq 0;
#X obj 83 241 outlet;
#N canvas 330 268 450 300 smpToFreq 0;
#X obj 41 35 inlet;
#X obj 135 179 samplerate~;
#X obj 65 346 outlet;
#X obj 41 67 sel 0;
#X msg 46 154 0;
#X obj 126 104 t b f;
#X obj 132 281 /;
#X connect 0 0 3 0;
#X connect 1 0 6 0;
#X connect 3 0 4 0;
#X connect 3 1 5 0;
#X connect 4 0 2 0;
#X connect 5 0 1 0;
#X connect 5 1 6 1;
#X connect 6 0 2 0;
#X restore 249 100 pd smpToFreq;
#X obj 120 96 samplerate~;
#X obj 87 67 t f b;
#X obj 80 169 *;
#X obj 78 119 /;
#X obj 269 12 inlet length;
#X obj 72 18 inlet samples;
#X connect 1 0 4 1;
#X connect 2 0 5 1;
#X connect 3 0 5 0;
#X connect 3 1 2 0;
#X connect 4 0 0 0;
#X connect 5 0 4 0;
#X connect 6 0 1 0;
#X connect 7 0 3 0;
#X restore 192 201 pd find_freq;
#X obj 356 160 -;
#X obj 277 72 sample_unpack;
#X obj 231 252 zexy/demultiplex;
#X obj 315 223 > 1;
#X msg 210 277 list 0-\$1 0-\$1;
#X msg 326 275 list 0-\$1 1-\$1;
#X obj 218 5 inlet;
#X obj 455 3 loadbang;
#X obj 455 35 tof/argument 1;
#X msg 459 66 sample \$1;
#X connect 5 0 4 0;
#X connect 6 0 5 1;
#X connect 6 0 2 0;
#X connect 7 0 5 0;
#X connect 7 2 8 0;
#X connect 7 3 9 0;
#X connect 7 4 6 0;
#X connect 7 4 0 0;
#X connect 7 5 6 1;
#X connect 7 5 1 0;
#X connect 8 0 10 0;
#X connect 8 1 11 0;
#X connect 9 0 8 1;
#X connect 10 0 3 0;
#X connect 11 0 3 0;
#X connect 12 0 7 0;
#X connect 13 0 14 0;
#X connect 14 0 15 0;
#X connect 15 0 7 0;
#X restore 483 323 pd parse_sample;
#N canvas 0 0 892 551 player 0;
#X obj 702 496 outlet get_sample;
#X obj 91 29 inlet bang;
#X obj 253 38 inlet float;
#X obj 388 34 inlet pitch;
#X obj 85 501 outlet~ phase;
#X msg 172 265 0;
#X obj 80 318 tof/phasorshot~;
#X obj 75 249 sig~ 1;
#X msg 310 229 1;
#X msg 267 232 0;
#X msg 501 440 1;
#X msg 437 434 0;
#X obj 350 144 sel 0;
#N canvas 0 0 450 300 start_phase 0;
#X obj 76 249 outlet;
#X obj 76 115 f;
#X obj 244 26 inlet speed;
#X obj 68 28 inlet bang;
#X obj 74 145 < 0;
#X connect 1 0 4 0;
#X connect 2 0 1 1;
#X connect 3 0 1 0;
#X connect 4 0 0 0;
#X restore 132 200 pd start_phase;
#X obj 271 365 spigot;
#X obj 377 395 t b b;
#X msg 380 430 0;
#X obj 283 310 == 0;
#X obj 254 266 t f f;
#X obj 94 107 t b b b;
#X obj 378 178 t b b b;
#X obj 519 292 t b b;
#X obj 561 38 inlet speed;
#X obj 416 516 line~;
#X msg 416 490 \$1 5;
#X obj 555 510 outlet~ output;
#X connect 1 0 19 0;
#X connect 2 0 12 0;
#X connect 3 0 13 1;
#X connect 5 0 6 1;
#X connect 6 0 4 0;
#X connect 6 1 14 0;
#X connect 6 2 14 0;
#X connect 7 0 6 0;
#X connect 8 0 18 0;
#X connect 9 0 18 0;
#X connect 10 0 24 0;
#X connect 11 0 24 0;
#X connect 12 0 11 0;
#X connect 12 1 20 0;
#X connect 13 0 6 1;
#X connect 14 0 15 0;
#X connect 15 0 16 0;
#X connect 15 1 11 0;
#X connect 16 0 14 1;
#X connect 16 0 24 0;
#X connect 17 0 14 1;
#X connect 18 0 6 2;
#X connect 18 1 17 0;
#X connect 19 0 13 0;
#X connect 19 1 9 0;
#X connect 19 2 21 0;
#X connect 20 0 5 0;
#X connect 20 1 8 0;
#X connect 20 2 21 0;
#X connect 21 0 10 0;
#X connect 21 1 0 0;
#X connect 22 0 7 0;
#X connect 23 0 25 0;
#X connect 24 0 23 0;
#X restore 144 208 pd player;
#N canvas 0 0 597 611 speed 0;
#X obj 92 506 outlet;
#X obj 278 22 inlet default;
#X obj 43 16 inlet user;
#X obj 93 75 route bang;
#X obj 185 358 f;
#X obj 154 124 /;
#X msg 148 102 1000 \$1;
#X obj 245 354 spigot 1;
#X obj 125 255 t b b;
#X msg 243 289 1;
#X obj 154 159 t f b;
#X msg 196 198 0;
#X connect 1 0 7 0;
#X connect 1 0 4 1;
#X connect 2 0 3 0;
#X connect 3 0 8 0;
#X connect 3 1 6 0;
#X connect 4 0 0 0;
#X connect 5 0 10 0;
#X connect 6 0 5 0;
#X connect 7 0 0 0;
#X connect 8 0 4 0;
#X connect 8 1 9 0;
#X connect 9 0 7 1;
#X connect 10 0 0 0;
#X connect 10 1 11 0;
#X connect 11 0 7 1;
#X restore 407 95 pd speed;
#N canvas 0 0 787 526 hanning 0;
#X obj 325 180 samplerate~;
#X obj 325 207 * 0.016;
#X obj 326 230 int;
#X obj 327 316 until;
#X obj 324 349 f;
#X msg 359 313 0;
#X obj 322 378 + 1;
#X obj 470 344 s \$0han;
#X msg 470 319 resize \$1;
#X obj 314 426 expr cos(($f1/$f2+0.5)*6.283)/2.0+0.5;
#X obj 329 255 + 1;
#X obj 306 497 tabwrite \$0han;
#X obj 321 400 t f f;
#X obj 147 171 table \$0han 16;
#X obj 331 67 inlet;
#X obj 562 306 s \$0han_size;
#X obj 329 282 t f b f f f;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 2 0 10 0;
#X connect 3 0 4 0;
#X connect 4 0 6 0;
#X connect 5 0 4 1;
#X connect 6 0 4 1;
#X connect 6 0 12 0;
#X connect 8 0 7 0;
#X connect 9 0 11 0;
#X connect 10 0 16 0;
#X connect 12 0 9 0;
#X connect 12 1 11 1;
#X connect 14 0 0 0;
#X connect 16 0 3 0;
#X connect 16 1 5 0;
#X connect 16 2 9 1;
#X connect 16 3 8 0;
#X connect 16 4 15 0;
#X restore 617 98 pd hanning;
#X obj 617 57 loadbang;
#X connect 0 0 12 0;
#X connect 3 0 1 0;
#X connect 4 0 2 0;
#X connect 5 0 7 0;
#X connect 5 0 14 2;
#X connect 6 0 15 0;
#X connect 7 0 8 1;
#X connect 8 0 3 0;
#X connect 8 1 4 0;
#X connect 12 0 14 0;
#X connect 12 1 14 1;
#X connect 12 2 8 3;
#X connect 12 3 13 0;
#X connect 13 0 15 1;
#X connect 13 1 8 2;
#X connect 13 2 11 0;
#X connect 13 3 9 0;
#X connect 13 4 10 0;
#X connect 14 0 8 0;
#X connect 14 1 4 1;
#X connect 14 1 3 1;
#X connect 14 2 13 0;
#X connect 15 0 14 3;
#X connect 17 0 16 0;
|
