-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathgransampler.pd
491 lines (491 loc) · 12 KB
/
gransampler.pd
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
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
#N canvas 372 23 1920 1021 10;
#X obj 500 29 hsl 67 15 0 1 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 3300 1;
#X obj 454 246 t b f;
#X obj 454 224 - 1;
#X floatatom 455 312 5 0 0 0 - - -, f 5;
#X obj 454 202 * 2;
#X msg 455 268 10;
#X obj 455 290 pow;
#X obj 588 29 hsl 67 15 0 1 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 3300 1;
#X obj 542 247 t b f;
#X obj 542 225 - 1;
#X obj 542 203 * 2;
#X msg 543 269 10;
#X obj 543 291 pow;
#X msg 254 494 0;
#X obj 236 697 phasor~ 0;
#X obj 153 168 hsl 128 15 0 160032 0 0 \$0-start-s \$0-start start
2 8 0 10 -262144 -258113 -1 0 1;
#X obj 153 185 hsl 128 15 0 160032 0 0 \$0-stop-s \$0-stop end 2 8
0 10 -262144 -258113 -1 12700 1;
#X obj 237 736 *~ 1;
#X obj 840 738 table \$0-sample 4.41e+06;
#X obj 145 771 +~ 0;
#X text 184 772 offset;
#X obj 176 614 t b f;
#X msg 292 295 0;
#X obj 153 136 hsl 128 15 0.1 10 1 0 \$0-speed-s empty speed(fw-only)
2 8 0 10 -262144 -258113 -1 6350 1;
#X obj 153 151 hsl 128 15 0.1 10 1 0 \$0-pitch-s empty pitch(fw-only)
2 8 0 10 -262144 -258113 -1 6350 1;
#X obj 92 496 r \$0-start-s;
#X obj 92 521 t b f f;
#X obj 5 614 r \$0-stop-s;
#X obj 330 559 r \$0-speed-s;
#N canvas 87 111 448 424 phasor-freq-calc 0;
#X obj 42 37 inlet;
#X obj 86 36 inlet;
#X obj 137 35 inlet;
#X obj 42 336 outlet;
#X obj 107 334 outlet;
#X obj 187 35 inlet;
#X obj 234 36 inlet;
#X obj 42 161 t b f;
#X obj 42 214 /;
#X obj 42 244 f;
#X obj 42 104 -;
#X obj 42 75 f;
#X obj 42 132 t f f;
#X obj 42 270 spigot;
#X obj 42 298 * 1;
#X obj 42 187 samplerate~;
#X connect 0 0 11 0;
#X connect 1 0 10 1;
#X connect 2 0 9 0;
#X connect 5 0 13 1;
#X connect 6 0 14 1;
#X connect 7 0 15 0;
#X connect 7 1 8 1;
#X connect 8 0 9 0;
#X connect 9 0 13 0;
#X connect 10 0 12 0;
#X connect 11 0 10 0;
#X connect 12 0 7 0;
#X connect 12 1 4 0;
#X connect 13 0 14 0;
#X connect 14 0 3 0;
#X connect 15 0 8 0;
#X restore 92 663 pd phasor-freq-calc;
#X obj 291 266 r \$0-reset-s;
#X msg 227 493 0;
#X msg 174 494 1;
#X obj 840 778 table \$0-hanning 256;
#N canvas 44 51 443 256 write-hanning 0;
#X msg 142 80 0;
#X obj 36 129 osc~;
#X obj 36 81 samplerate~;
#X obj 36 152 *~ -0.5;
#X obj 36 175 +~ 0.5;
#X obj 28 58 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 28 26 loadbang;
#X obj 36 105 / 256;
#X obj 28 200 tabwrite~ \$0-hanning;
#X connect 0 0 1 1;
#X connect 1 0 3 0;
#X connect 2 0 7 0;
#X connect 3 0 4 0;
#X connect 4 0 8 0;
#X connect 5 0 2 0;
#X connect 5 0 0 0;
#X connect 5 0 8 0;
#X connect 6 0 5 0;
#X connect 7 0 1 0;
#X restore 839 805 pd write-hanning;
#N canvas 713 138 526 599 read-table 0;
#X obj 89 83 / 256;
#X obj 89 56 * 44100;
#X obj 15 30 inlet~;
#X obj 89 28 inlet;
#X obj 233 429 outlet~;
#X obj 18 258 tabread4~ \$0-sample;
#X obj 89 117 phasor~;
#X obj 16 196 samphold~;
#X obj 98 198 *~ 256;
#X obj 17 232 +~;
#X obj 43 288 *~;
#X obj 149 260 tabread4~ \$0-hanning;
#X obj 374 152 +~ 0.5;
#X obj 374 181 wrap~;
#X obj 304 273 tabread4~ \$0-sample;
#X obj 302 211 samphold~;
#X obj 384 213 *~ 256;
#X obj 303 247 +~;
#X obj 329 303 *~;
#X obj 435 275 tabread4~ \$0-hanning;
#X obj 234 395 +~;
#X obj 128 -4 loadbang;
#X obj 128 22 samplerate~;
#X connect 0 0 6 0;
#X connect 1 0 0 0;
#X connect 2 0 7 0;
#X connect 2 0 15 0;
#X connect 3 0 1 0;
#X connect 5 0 10 0;
#X connect 6 0 7 1;
#X connect 6 0 8 0;
#X connect 6 0 12 0;
#X connect 7 0 9 0;
#X connect 8 0 9 1;
#X connect 8 0 11 0;
#X connect 9 0 5 0;
#X connect 10 0 20 0;
#X connect 11 0 10 1;
#X connect 12 0 13 0;
#X connect 13 0 16 0;
#X connect 13 0 15 1;
#X connect 14 0 18 0;
#X connect 15 0 17 0;
#X connect 16 0 17 1;
#X connect 16 0 19 0;
#X connect 17 0 14 0;
#X connect 18 0 20 1;
#X connect 19 0 18 1;
#X connect 20 0 4 0;
#X connect 21 0 22 0;
#X connect 22 0 1 1;
#X restore 144 822 pd read-table;
#X obj 219 796 r \$0-pitch-s;
#X obj 143 887 *~ 0;
#X obj 125 453 t b b b b;
#X msg 164 856 1;
#X msg 206 856 0;
#X obj 153 102 hsl 90 15 0 1 0 0 empty \$0-pos position 2 7 0 10 -228856
-1 -1 2145 1;
#X obj 74 800 s \$0-pos;
#X obj 74 770 snapshot~;
#X obj 74 734 metro 10;
#X obj 74 703 loadbang;
#X obj 227 465 t b b b b;
#X obj 51 242 route rec open play;
#X msg 615 377 -1;
#X msg 652 376 1;
#X obj 174 298 bng 15 250 50 0 empty empty FW 17 7 0 10 -262144 -1
-1;
#X obj 342 45 bng 15 250 50 0 empty empty rev 17 7 0 10 -262144 -1
-1;
#X floatatom 232 214 9 0 0 0 samplen - -, f 9;
#X obj 450 575 s \$0-sample-length;
#X obj 745 380 r \$0-sample-length;
#X obj 618 614 phasor~;
#X obj 617 683 *~;
#X obj 632 636 r \$0-sample-length;
#X obj 632 659 sig~;
#X obj 618 535 sig~;
#X obj 617 584 *~ 1;
#X msg 745 403 44100 \$1;
#X obj 745 426 /;
#X obj 619 724 tabread4~ \$0-sample;
#X msg 690 377 0;
#X obj 313 76 bng 15 250 50 0 empty empty stp 0 8 0 10 -262144 -1 -1
;
#X floatatom 617 510 5 0 0 0 - - -, f 5;
#X msg 693 428 bang;
#N canvas 3 57 1265 686 rec_play_switch 0;
#X msg 27 217 rec start;
#X msg 95 220 rec stop;
#X msg 163 222 play start;
#X msg 257 222 play stop;
#X obj 101 5 inlet;
#X obj 143 6 inlet;
#X obj 124 330 outlet;
#X msg 130 60 1;
#X msg 163 60 0;
#X obj 103 34 route bang 1 0;
#N canvas 474 92 450 300 switch-bang 0;
#X obj 102 54 inlet;
#X obj 102 189 outlet;
#X obj 148 190 outlet;
#X obj 102 102 tgl 30 0 empty empty empty 0 -6 0 10 -258113 -1 -1 0
1;
#X obj 102 157 sel 1 0;
#X connect 0 0 3 0;
#X connect 3 0 4 0;
#X connect 4 0 1 0;
#X connect 4 1 2 0;
#X coords 0 -1 1 1 34 34 2 100 100;
#X restore 208 103 pd switch-bang;
#N canvas 474 95 450 300 switch-bang 0;
#X obj 102 54 inlet;
#X obj 102 189 outlet;
#X obj 148 190 outlet;
#X obj 102 102 tgl 30 0 empty empty REC 0 15 0 15 -258113 -1 -1 0 1
;
#X obj 102 157 sel 1 0;
#X connect 0 0 3 0;
#X connect 3 0 4 0;
#X connect 4 0 1 0;
#X connect 4 1 2 0;
#X coords 0 -1 1 1 34 34 2 100 100;
#X restore 104 103 pd switch-bang;
#X connect 0 0 6 0;
#X connect 1 0 6 0;
#X connect 2 0 6 0;
#X connect 3 0 6 0;
#X connect 4 0 9 0;
#X connect 5 0 10 0;
#X connect 7 0 11 0;
#X connect 8 0 11 0;
#X connect 9 0 11 0;
#X connect 9 1 7 0;
#X connect 9 2 8 0;
#X connect 9 3 6 0;
#X connect 10 0 2 0;
#X connect 10 1 3 0;
#X connect 11 0 0 0;
#X connect 11 1 1 0;
#X coords 0 -1 1 1 40 40 2 100 100;
#X restore 103 104 pd rec_play_switch;
#X obj 205 120 tgl 15 0 empty empty st|bw 17 7 0 10 -262144 -1 -1 0
1;
#X obj 155 117 tgl 15 0 empty empty st|fw 17 7 0 10 -262144 -1 -1 1
1;
#X obj 212 284 sel 0 1;
#X obj 327 -9 sel 0 1;
#X msg 171 326 play start;
#X msg 175 358 play stop;
#X obj 623 899 s~ \$0-LOOPSOUT;
#X obj 3 837 r~ \$0-LOOPSOUT;
#X obj 125 427 sel start stop;
#X obj 95 349 symbol;
#X floatatom 543 313 5 0 0 0 - - -, f 5;
#X obj 891 -89 loadbang;
#X msg 884 -33 0.5;
#X obj 102 65 sel 0 1;
#X obj 106 150 vsl 15 60 0 1 0 0 empty crossfade dry|wet 0 12 0 10
-262144 -1 -1 2950 1;
#X obj 682 29 *;
#X obj 772 30 *;
#X obj 119 19 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X obj 118 40 change;
#X obj 2 924 dac~;
#X obj -29 -136 adc~;
#X text 813 221 based on MMP plugins https://forum.pdpatchrepo.info/topic/11290/mobmuplat-ready-effects-collection-i-e-30-vanilla-compliant-mmp-effects-w-gui
;
#X obj 282 -137 hsl 128 15 0 1 0 0 empty empty pitch -2 -8 0 10 -262144
-1 -1 0 1;
#X obj 426 -137 hsl 128 15 0 1 0 0 empty empty beginpos -2 -8 0 10
-262144 -1 -1 0 1;
#X obj 570 -137 hsl 128 15 0 1 0 0 empty empty endpos -2 -8 0 10 -262144
-1 -1 0 1;
#X obj 576 -116 r Channel-D;
#X obj 433 -116 r Channel-C;
#X obj 292 -116 r Channel-B;
#X obj 137 -137 hsl 128 15 0 1 0 0 empty empty speed -2 -8 0 10 -262144
-1 -1 0 1;
#X obj 144 -116 r Channel-A;
#X obj 740 -118 r Channel-Push;
#X obj 735 -141 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 135 -90 * 1;
#X obj 285 -84 * 1;
#X obj 429 -93 * 1;
#X obj 572 -90 * 1;
#X text 752 -142 record;
#X obj 8 887 dac~;
#X obj 693 464 f;
#X msg 327 12 1;
#X msg 921 -30 15000;
#N canvas 254 93 717 606 recording 0;
#X msg 164 110 stop;
#X obj 97 80 sel start stop;
#X obj 222 172 tabwrite~ \$0-sample;
#X obj 168 265 f;
#X obj 97 113 t b b b b;
#X obj 97 30 inlet;
#X obj 221 30 inlet~;
#X obj 201 242 samplerate~;
#N canvas 370 460 450 300 counter 0;
#X obj 63 22 inlet;
#X obj 115 24 inlet;
#X obj 63 140 outlet;
#X msg 115 69 0;
#X obj 63 67 metro 1;
#X obj 100 110 + 1;
#X obj 63 109 f;
#X connect 0 0 4 0;
#X connect 1 0 3 0;
#X connect 3 0 6 0;
#X connect 4 0 6 0;
#X connect 5 0 6 1;
#X connect 6 0 5 0;
#X connect 6 0 2 0;
#X restore 97 197 pd counter;
#X obj 168 323 outlet;
#X obj 201 271 / 1000;
#X obj 168 293 * 4.41;
#X obj 164 170 t a b b;
#X connect 0 0 2 0;
#X connect 0 0 12 0;
#X connect 1 0 4 0;
#X connect 1 1 0 0;
#X connect 3 0 11 0;
#X connect 4 0 8 0;
#X connect 4 1 8 1;
#X connect 4 2 2 0;
#X connect 5 0 1 0;
#X connect 6 0 2 0;
#X connect 7 0 10 0;
#X connect 8 0 3 1;
#X connect 10 0 11 1;
#X connect 11 0 9 0;
#X connect 12 0 8 0;
#X connect 12 1 3 0;
#X connect 12 2 7 0;
#X restore 14 466 pd recording;
#N canvas 364 326 450 300 set_length 0;
#X obj 91 24 inlet;
#X obj 186 142 s \$0-stop;
#X obj 91 150 s \$0-start;
#X msg 91 111 0;
#X msg 186 90 range 0 \$1;
#X msg 106 88 range 0 \$1;
#X obj 151 226 s \$0-speed;
#X msg 151 193 1;
#X obj 91 57 t b f f f b b;
#X obj 285 117 s \$0-pitch;
#X msg 285 88 1;
#X obj 305 234 outlet;
#X connect 0 0 8 0;
#X connect 3 0 2 0;
#X connect 4 0 1 0;
#X connect 5 0 2 0;
#X connect 7 0 6 0;
#X connect 8 0 3 0;
#X connect 8 1 5 0;
#X connect 8 1 11 0;
#X connect 8 2 1 0;
#X connect 8 3 4 0;
#X connect 8 4 7 0;
#X connect 8 5 10 0;
#X connect 10 0 9 0;
#X restore 17 500 pd set_length;
#X obj 34 281 symbol;
#X connect 0 0 4 0;
#X connect 1 0 5 0;
#X connect 1 1 6 1;
#X connect 2 0 1 0;
#X connect 3 0 23 0;
#X connect 4 0 2 0;
#X connect 5 0 6 0;
#X connect 6 0 3 0;
#X connect 7 0 10 0;
#X connect 8 0 11 0;
#X connect 8 1 12 1;
#X connect 9 0 8 0;
#X connect 10 0 9 0;
#X connect 11 0 12 0;
#X connect 12 0 79 0;
#X connect 13 0 14 0;
#X connect 14 0 17 0;
#X connect 14 0 43 0;
#X connect 17 0 19 0;
#X connect 19 0 35 0;
#X connect 21 0 29 2;
#X connect 21 1 29 4;
#X connect 22 0 14 1;
#X connect 25 0 26 0;
#X connect 26 0 29 0;
#X connect 26 1 29 1;
#X connect 26 2 19 1;
#X connect 27 0 29 0;
#X connect 28 0 21 0;
#X connect 29 0 14 0;
#X connect 29 1 17 1;
#X connect 30 0 22 0;
#X connect 31 0 29 3;
#X connect 32 0 29 3;
#X connect 35 0 37 0;
#X connect 36 0 35 1;
#X connect 37 0 75 0;
#X connect 38 0 29 0;
#X connect 38 1 32 0;
#X connect 38 2 22 0;
#X connect 38 3 39 0;
#X connect 39 0 37 1;
#X connect 40 0 37 1;
#X connect 43 0 42 0;
#X connect 44 0 43 0;
#X connect 45 0 44 0;
#X connect 46 0 31 0;
#X connect 46 1 13 0;
#X connect 46 2 40 0;
#X connect 46 3 22 0;
#X connect 47 0 112 0;
#X connect 47 2 78 0;
#X connect 48 0 60 1;
#X connect 48 0 67 0;
#X connect 49 0 60 1;
#X connect 49 0 67 0;
#X connect 50 0 73 0;
#X connect 51 0 48 0;
#X connect 52 0 53 0;
#X connect 52 0 84 1;
#X connect 52 0 85 1;
#X connect 54 0 61 0;
#X connect 55 0 56 0;
#X connect 56 0 63 0;
#X connect 57 0 58 0;
#X connect 58 0 56 1;
#X connect 59 0 60 0;
#X connect 60 0 55 0;
#X connect 61 0 62 0;
#X connect 62 0 107 1;
#X connect 63 0 75 0;
#X connect 64 0 60 1;
#X connect 64 0 67 0;
#X connect 65 0 64 0;
#X connect 66 0 59 0;
#X connect 67 0 107 0;
#X connect 68 0 47 0;
#X connect 69 0 72 0;
#X connect 70 0 71 0;
#X connect 71 0 74 0;
#X connect 71 1 50 0;
#X connect 72 0 65 0;
#X connect 72 0 108 0;
#X connect 72 1 51 0;
#X connect 73 0 47 0;
#X connect 74 0 47 0;
#X connect 76 0 106 0;
#X connect 77 0 38 0;
#X connect 77 1 46 0;
#X connect 78 0 77 0;
#X connect 79 0 24 0;
#X connect 80 0 81 0;
#X connect 80 0 109 0;
#X connect 81 0 0 0;
#X connect 81 0 7 0;
#X connect 81 0 83 0;
#X connect 82 0 68 0;
#X connect 82 1 68 0;
#X connect 84 0 15 0;
#X connect 85 0 16 0;
#X connect 86 0 87 0;
#X connect 86 0 72 0;
#X connect 87 0 82 0;
#X connect 89 0 106 1;
#X connect 89 0 110 1;
#X connect 91 0 102 0;
#X connect 92 0 103 0;
#X connect 93 0 104 0;
#X connect 94 0 104 0;
#X connect 95 0 103 0;
#X connect 96 0 102 0;
#X connect 97 0 101 0;
#X connect 98 0 101 0;
#X connect 99 0 86 0;
#X connect 100 0 86 0;
#X connect 101 0 23 0;
#X connect 102 0 24 0;
#X connect 103 0 15 0;
#X connect 104 0 16 0;
#X connect 107 0 66 0;
#X connect 108 0 70 0;
#X connect 109 0 52 0;
#X connect 110 0 111 0;
#X connect 111 0 52 0;
#X connect 112 0 110 0;