-
Notifications
You must be signed in to change notification settings - Fork 0
/
playback.pd
executable file
·493 lines (493 loc) · 12.4 KB
/
playback.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
492
493
#N canvas 0 51 1816 1092 10;
#X obj 507 390 soundfiler;
#X obj 440 432 expr 44100 / $f1;
#N canvas 0 50 450 300 (subpatch) 0;
#X array \$0-audio 79616 float 0;
#X coords 0 1 79615 -1 200 140 1;
#X restore 963 549 graph;
#X floatatom 832 451 5 0 0 0 - - -, f 5;
#X obj 912 420 t b f;
#X obj 926 465 -;
#X obj 422 482 expr 1 / $f1;
#X obj 422 504 *;
#X floatatom 422 556 5 0 0 0 - - -, f 5;
#X obj 484 539 t b f;
#X obj 422 577 *;
#X obj 422 599 phasor~;
#X obj 422 621 *~;
#X obj 422 643 +~;
#X obj 422 685 *~;
#X obj 422 789 *~;
#X obj 422 991 hip~ 5;
#X floatatom 571 729 5 0 0 0 - - -, f 5;
#X msg 571 750 \$1 20;
#X obj 571 772 line~;
#X obj 280 707 tabread4~ \$0-crown;
#X obj 280 684 *~ 441;
#X obj 422 741 *~;
#X text 19 708 Use crowning for smooth volume fades;
#X obj 798 398 loadbang;
#X msg 798 420 1;
#X obj 1005 376 loadbang;
#X msg 1005 398 0;
#X obj 592 490 loadbang;
#X msg 592 511 1;
#X obj 672 707 loadbang;
#X msg 672 729 1;
#X obj 832 420 r \$0-end-s;
#X obj 912 398 r \$0-start-s;
#X obj 571 707 r \$0-volume-s;
#X floatatom 507 412 10 0 0 0 - - -, f 10;
#N canvas 358 208 1567 843 tape 0;
#X obj 17 283 inlet~;
#X obj 133 54 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X obj 133 97 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X obj 133 117 random 100;
#X obj 133 161 t b;
#X obj 133 182 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 133 269 line;
#X obj 17 308 -~;
#X obj 17 331 outlet~;
#X msg 133 247 \$1 10;
#X obj 133 9 inlet;
#X msg 133 31 0;
#X obj 245 15 inlet;
#X floatatom 245 37 5 0 0 0 - - -, f 5;
#X obj 133 291 lop~ 5;
#X obj 133 203 random 5;
#X obj 133 139 moses 50;
#X obj 133 74 metro 1150;
#X obj 133 225 / 2500;
#X obj 67 9 loadbang;
#X connect 0 0 7 0;
#X connect 1 0 17 0;
#X connect 2 0 3 0;
#X connect 3 0 16 0;
#X connect 4 0 5 0;
#X connect 5 0 15 0;
#X connect 6 0 14 0;
#X connect 7 0 8 0;
#X connect 9 0 6 0;
#X connect 10 0 11 0;
#X connect 10 0 1 0;
#X connect 12 0 13 0;
#X connect 14 0 7 1;
#X connect 15 0 18 0;
#X connect 16 0 4 0;
#X connect 17 0 2 0;
#X connect 18 0 9 0;
#X connect 19 0 11 0;
#X restore 421 664 pd tape;
#X obj 423 968 *~;
#X obj 461 805 r led;
#X obj 461 827 != 1;
#X text 498 828 Mute loop while recording;
#X obj 461 941 line;
#X msg 461 919 \$1 10;
#X text 473 992 DC offset filter;
#X obj 467 643 r \$0-playing;
#X obj 1075 376 r \$0-playing;
#X obj 704 420 r \$0-playing;
#X msg 656 582 0;
#X obj 1045 87 inlet;
#X floatatom 1045 151 5 0 0 0 - - -, f 5;
#X floatatom 1085 151 5 0 0 0 - - -, f 5;
#X floatatom 1125 151 5 0 0 0 - - -, f 5;
#X floatatom 1165 151 5 0 0 0 - - -, f 5;
#X obj 1045 200 s \$0-start-s;
#X obj 1145 200 s \$0-end-s;
#X obj 1235 200 s \$0-speed-s;
#X obj 1335 200 s \$0-volume-s;
#N canvas 51 201 1797 764 make-crown 0;
#X obj 4 168 tabwrite~ \$0-crown;
#X obj 24 50 vline~;
#X obj 4 -8 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X obj 4 -36 inlet;
#N canvas 0 50 450 300 (subpatch) 0;
#X array \$0-crown 441 float 0;
#X coords 0 1 440 0 200 140 1;
#X restore 167 1 graph;
#X obj 24 74 cos~;
#X obj 24 130 clip~ 0 1;
#X msg 24 27 -0.25 \, 0.25 10;
#X obj 24 102 *~ 15;
#X connect 1 0 5 0;
#X connect 2 0 7 0;
#X connect 2 0 0 0;
#X connect 3 0 2 0;
#X connect 5 0 8 0;
#X connect 6 0 0 0;
#X connect 7 0 1 0;
#X connect 8 0 6 0;
#X restore 963 718 pd make-crown;
#X obj 352 321 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 352 342 outlet;
#X obj 507 110 inlet;
#X obj 254 342 s \$0-playing;
#X obj 507 172 del 100;
#X obj 507 240 \$1;
#X obj 507 282 pack f f;
#X obj 547 260 \$0;
#X obj 507 197 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 507 217 t b b;
#X msg 507 304 read -resize \$1.wav \$2-audio;
#X obj 422 707 tabread4~ \$0-audio;
#X floatatom 1205 151 5 0 0 0 - - -, f 5;
#X obj 1435 200 s \$0-selected-track;
#X obj 1575 200 s \$0-recording;
#X floatatom 1245 151 5 0 0 0 - - -, f 5;
#X obj 375 262 s \$0-track-number;
#X obj 461 897 pass-if-active;
#X obj 508 851 r \$0-track-number;
#X obj 556 871 r \$0-selected-track;
#X obj 738 707 r \$0-playing;
#X obj 662 490 r \$0-playing;
#X obj 517 919 loadbang;
#X msg 517 941 1;
#N canvas 0 51 1931 1058 player-controls 0;
#X floatatom 183 284 5 0 0 0 - - -, f 5;
#X floatatom 103 284 5 0 0 0 - - -, f 5;
#X obj 103 262 r \$0-play;
#X obj 183 262 r \$0-pause;
#X obj 540 259 r \$0-stop;
#X obj 540 281 sel 1;
#X obj 205 811 outlet;
#X floatatom 273 284 5 0 0 0 - - -, f 5;
#X obj 273 262 r \$0-rewind;
#X obj 373 262 r \$0-fforward;
#X msg 273 303 rewind \$1;
#X floatatom 373 284 5 0 0 0 - - -, f 5;
#X msg 373 303 fforward \$1;
#X msg 183 303 pause \$1;
#X floatatom 103 660 5 0 0 0 - - -, f 5;
#X floatatom 154 660 5 0 0 0 - - -, f 5;
#X floatatom 205 660 5 0 0 0 - - -, f 5;
#X floatatom 256 660 5 0 0 0 - - -, f 5;
#X floatatom 307 660 5 0 0 0 - - -, f 5;
#X obj 103 638 route play pause rewind fforward stop;
#X msg 476 303 stop \$1;
#X msg 103 303 play \$1;
#X obj 154 679 sel 1;
#X msg 154 701 0;
#X obj 205 679 sel 1;
#X obj 256 679 sel 1;
#X obj 307 679 sel 1;
#X msg 307 701 0;
#X floatatom 205 790 5 0 0 0 - - -, f 5;
#X floatatom 103 701 5 0 0 0 - - -, f 5;
#X obj 9 679 r \$0-speed-s;
#X obj 223 722 r \$0-speed-s;
#X obj 103 679 spigot;
#X obj 57 700 sel 1;
#X floatatom 9 701 5 0 0 0 - - -, f 5;
#X msg 205 701 -1.6;
#X msg 256 701 1.4;
#X obj 205 743 +;
#X obj 597 40 unpack f f;
#X floatatom 597 85 5 0 0 0 - - -, f 5;
#X obj 558 104 spigot;
#X obj 558 126 route 100 0;
#X obj 523 68 pipe 1;
#X obj 597 62 == 70;
#X obj 87 40 unpack f f;
#X floatatom 87 85 5 0 0 0 - - -, f 5;
#X obj 48 104 spigot;
#X obj 48 129 route 100 0;
#X obj 13 68 pipe 1;
#X obj 87 62 == 61;
#X obj 347 40 unpack f f;
#X floatatom 347 85 5 0 0 0 - - -, f 5;
#X obj 308 104 spigot;
#X obj 308 126 route 100 0;
#X obj 273 68 pipe 1;
#X obj 347 62 == 63;
#X obj 528 192 s \$0-play;
#X floatatom 558 173 5 0 0 0 - - -, f 5;
#X floatatom 698 173 5 0 0 0 - - -, f 5;
#X obj 698 192 s \$0-stop;
#X msg 558 151 0;
#X msg 698 151 1;
#X floatatom 638 173 5 0 0 0 - - -, f 5;
#X msg 638 151 0;
#X obj 608 192 s \$0-pause;
#X obj 18 192 s \$0-play;
#X floatatom 48 173 5 0 0 0 - - -, f 5;
#X floatatom 188 173 5 0 0 0 - - -, f 5;
#X obj 188 192 s \$0-stop;
#X floatatom 128 173 5 0 0 0 - - -, f 5;
#X msg 128 151 0;
#X obj 98 192 s \$0-pause;
#X msg 48 151 1;
#X msg 188 151 0;
#X obj 278 192 s \$0-play;
#X floatatom 308 173 5 0 0 0 - - -, f 5;
#X floatatom 448 173 5 0 0 0 - - -, f 5;
#X obj 448 192 s \$0-stop;
#X floatatom 388 173 5 0 0 0 - - -, f 5;
#X obj 358 192 s \$0-pause;
#X msg 448 151 0;
#X msg 308 151 0;
#X msg 388 151 1;
#X obj 855 40 unpack f f;
#X floatatom 855 62 5 0 0 0 - - -, f 5;
#X obj 1175 40 unpack f f;
#X floatatom 1175 62 5 0 0 0 - - -, f 5;
#X floatatom 1225 62 5 0 0 0 - - -, f 5;
#X floatatom 1175 133 5 0 0 0 - - -, f 5;
#X obj 1149 111 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 1175 111 expr if($f1 == 68 && $f2 == 100 \, 1 \, 0);
#X obj 1175 152 s \$0-fforward;
#X floatatom 855 133 5 0 0 0 - - -, f 5;
#X obj 829 111 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X floatatom 905 62 5 0 0 0 - - -, f 5;
#X obj 855 111 expr if($f1 == 66 && $f2 == 100 \, 1 \, 0);
#X obj 855 152 s \$0-rewind;
#X obj 87 11 r notes;
#X obj 347 11 r notes;
#X obj 597 11 r notes;
#X obj 855 11 r notes;
#X obj 1175 11 r notes;
#X text 259 812 Play speed;
#X obj 33 262 loadbang;
#X msg 33 284 1;
#X obj 198 593 r \$0-selected-track;
#X obj 150 573 r \$0-track-number;
#X obj 103 616 pass-if-active;
#X obj 635 323 r \$0-selected-track;
#X obj 587 303 r \$0-track-number;
#X obj 540 346 pass-if-active;
#X obj 540 368 outlet;
#X connect 0 0 13 0;
#X connect 1 0 21 0;
#X connect 2 0 1 0;
#X connect 3 0 0 0;
#X connect 4 0 5 0;
#X connect 4 0 20 0;
#X connect 5 0 110 0;
#X connect 7 0 10 0;
#X connect 8 0 7 0;
#X connect 9 0 11 0;
#X connect 10 0 107 0;
#X connect 11 0 12 0;
#X connect 12 0 107 0;
#X connect 13 0 107 0;
#X connect 14 0 32 1;
#X connect 14 0 33 0;
#X connect 15 0 22 0;
#X connect 16 0 24 0;
#X connect 17 0 25 0;
#X connect 18 0 26 0;
#X connect 19 0 14 0;
#X connect 19 1 15 0;
#X connect 19 2 16 0;
#X connect 19 3 17 0;
#X connect 19 4 18 0;
#X connect 20 0 107 0;
#X connect 21 0 107 0;
#X connect 22 0 23 0;
#X connect 23 0 28 0;
#X connect 24 0 35 0;
#X connect 25 0 36 0;
#X connect 26 0 27 0;
#X connect 27 0 28 0;
#X connect 28 0 6 0;
#X connect 29 0 28 0;
#X connect 30 0 34 0;
#X connect 31 0 37 1;
#X connect 32 0 29 0;
#X connect 33 0 34 0;
#X connect 34 0 32 0;
#X connect 35 0 37 0;
#X connect 36 0 37 0;
#X connect 37 0 28 0;
#X connect 38 0 43 0;
#X connect 38 1 42 0;
#X connect 39 0 40 1;
#X connect 40 0 41 0;
#X connect 41 0 60 0;
#X connect 41 0 61 0;
#X connect 41 0 63 0;
#X connect 42 0 40 0;
#X connect 43 0 39 0;
#X connect 44 0 49 0;
#X connect 44 1 48 0;
#X connect 45 0 46 1;
#X connect 46 0 47 0;
#X connect 47 0 72 0;
#X connect 47 0 70 0;
#X connect 47 0 73 0;
#X connect 48 0 46 0;
#X connect 49 0 45 0;
#X connect 50 0 55 0;
#X connect 50 1 54 0;
#X connect 51 0 52 1;
#X connect 52 0 53 0;
#X connect 53 0 81 0;
#X connect 53 0 82 0;
#X connect 53 0 80 0;
#X connect 54 0 52 0;
#X connect 55 0 51 0;
#X connect 57 0 56 0;
#X connect 58 0 59 0;
#X connect 60 0 57 0;
#X connect 61 0 58 0;
#X connect 62 0 64 0;
#X connect 63 0 62 0;
#X connect 66 0 65 0;
#X connect 67 0 68 0;
#X connect 69 0 71 0;
#X connect 70 0 69 0;
#X connect 72 0 66 0;
#X connect 73 0 67 0;
#X connect 75 0 74 0;
#X connect 76 0 77 0;
#X connect 78 0 79 0;
#X connect 80 0 76 0;
#X connect 81 0 75 0;
#X connect 82 0 78 0;
#X connect 83 0 84 0;
#X connect 83 1 94 0;
#X connect 84 0 93 0;
#X connect 84 0 95 0;
#X connect 85 0 86 0;
#X connect 85 1 87 0;
#X connect 86 0 89 0;
#X connect 86 0 90 0;
#X connect 87 0 89 0;
#X connect 87 0 90 1;
#X connect 88 0 91 0;
#X connect 89 0 90 0;
#X connect 90 0 88 0;
#X connect 92 0 96 0;
#X connect 93 0 95 0;
#X connect 94 0 95 1;
#X connect 94 0 93 0;
#X connect 95 0 92 0;
#X connect 97 0 44 0;
#X connect 98 0 50 0;
#X connect 99 0 38 0;
#X connect 100 0 83 0;
#X connect 101 0 85 0;
#X connect 103 0 104 0;
#X connect 104 0 1 0;
#X connect 105 0 107 2;
#X connect 106 0 107 1;
#X connect 107 0 19 0;
#X connect 108 0 110 2;
#X connect 109 0 110 1;
#X connect 110 0 111 0;
#X restore 533 539 pd player-controls;
#X obj 555 150 s \$0-bang-crown;
#X obj 963 695 r \$0-bang-crown;
#X obj 1045 109 unpack f f f f f f f;
#X obj 1685 200 s \$0-tape;
#X obj 467 620 r \$0-tape;
#X floatatom 1285 151 5 0 0 0 - - -, f 5;
#X floatatom 586 244 5 0 0 0 - - -, f 5;
#X floatatom 587 262 5 0 0 0 - - -, f 5;
#X obj 507 132 t b b;
#X obj 658 191 loadbang;
#X obj 422 1013 outlet~;
#X connect 0 0 1 0;
#X connect 0 0 35 0;
#X connect 0 0 14 1;
#X connect 1 0 7 1;
#X connect 3 0 5 0;
#X connect 4 0 3 0;
#X connect 4 1 5 1;
#X connect 4 1 13 1;
#X connect 5 0 12 1;
#X connect 5 0 6 0;
#X connect 6 0 7 0;
#X connect 7 0 8 0;
#X connect 8 0 10 0;
#X connect 9 0 8 0;
#X connect 9 1 10 1;
#X connect 10 0 11 0;
#X connect 11 0 12 0;
#X connect 11 0 21 0;
#X connect 12 0 13 0;
#X connect 13 0 36 0;
#X connect 14 0 69 0;
#X connect 15 0 37 0;
#X connect 16 0 93 0;
#X connect 17 0 18 0;
#X connect 18 0 19 0;
#X connect 19 0 15 1;
#X connect 20 0 22 1;
#X connect 21 0 20 0;
#X connect 22 0 15 0;
#X connect 24 0 25 0;
#X connect 25 0 3 0;
#X connect 26 0 27 0;
#X connect 27 0 4 0;
#X connect 28 0 29 0;
#X connect 29 0 9 0;
#X connect 30 0 31 0;
#X connect 31 0 17 0;
#X connect 32 0 3 0;
#X connect 33 0 4 0;
#X connect 34 0 17 0;
#X connect 36 0 14 0;
#X connect 37 0 16 0;
#X connect 38 0 39 0;
#X connect 39 0 75 0;
#X connect 41 0 37 1;
#X connect 42 0 41 0;
#X connect 44 0 36 2;
#X connect 45 0 27 0;
#X connect 46 0 25 0;
#X connect 47 0 11 1;
#X connect 48 0 85 0;
#X connect 49 0 53 0;
#X connect 50 0 54 0;
#X connect 51 0 55 0;
#X connect 52 0 56 0;
#X connect 58 0 59 0;
#X connect 58 0 61 0;
#X connect 60 0 91 0;
#X connect 62 0 66 0;
#X connect 63 0 74 0;
#X connect 63 0 64 0;
#X connect 63 0 89 0;
#X connect 64 0 68 0;
#X connect 65 0 64 1;
#X connect 65 0 90 0;
#X connect 66 0 67 0;
#X connect 67 0 63 0;
#X connect 67 1 65 0;
#X connect 68 0 0 0;
#X connect 68 0 25 0;
#X connect 68 0 58 0;
#X connect 69 0 22 0;
#X connect 70 0 71 0;
#X connect 73 0 72 0;
#X connect 75 0 42 0;
#X connect 76 0 75 1;
#X connect 77 0 75 2;
#X connect 78 0 31 0;
#X connect 79 0 29 0;
#X connect 80 0 81 0;
#X connect 81 0 37 1;
#X connect 82 0 9 0;
#X connect 82 1 47 0;
#X connect 84 0 57 0;
#X connect 85 0 49 0;
#X connect 85 1 50 0;
#X connect 85 2 51 0;
#X connect 85 3 52 0;
#X connect 85 4 70 0;
#X connect 85 5 73 0;
#X connect 85 6 88 0;
#X connect 87 0 36 1;
#X connect 88 0 86 0;
#X connect 91 0 62 0;
#X connect 91 1 83 0;