/
futurists2.pd
478 lines (478 loc) · 10.8 KB
/
futurists2.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
#N canvas 553 27 682 695 10;
#N canvas 1421 435 450 323 crackling 1;
#N canvas 693 91 516 421 fire 0;
#X obj 45 50 lop~ 1;
#X obj 45 72 env~;
#X obj 45 95 moses 50;
#X obj 91 119 moses 51;
#X msg 91 144 bang;
#X obj 91 166 random 30;
#X obj 91 188 t f f;
#X msg 45 209 1 \, 0 \$1;
#X obj 45 231 line~;
#X obj 45 253 *~;
#X obj 45 275 *~;
#X obj 45 297 *~;
#X obj 118 211 * 500;
#X obj 118 233 + 1500;
#X obj 88 260 bp~ 2000 1;
#X obj 184 51 hip~ 1000;
#X obj 23 17 noise~;
#X obj 258 51 lop~ 1;
#X obj 258 73 *~ 10;
#X obj 258 95 *~;
#X obj 258 117 *~;
#X obj 258 139 *~ 600;
#X obj 243 173 *~;
#X obj 46 334 outlet~;
#X obj 370 48 bp~ 30 5;
#X obj 370 70 *~ 100;
#X obj 370 92 hip~ 25;
#X obj 370 114 clip~ -0.9 0.9;
#X obj 370 136 hip~ 25;
#X obj 370 158 *~ 0.6;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 2 1 3 0;
#X connect 3 0 4 0;
#X connect 4 0 5 0;
#X connect 5 0 6 0;
#X connect 6 0 7 0;
#X connect 6 1 12 0;
#X connect 7 0 8 0;
#X connect 8 0 9 0;
#X connect 8 0 9 1;
#X connect 9 0 10 0;
#X connect 9 0 10 1;
#X connect 10 0 11 0;
#X connect 11 0 23 0;
#X connect 12 0 13 0;
#X connect 13 0 14 1;
#X connect 14 0 11 1;
#X connect 15 0 22 0;
#X connect 16 0 0 0;
#X connect 16 0 14 0;
#X connect 16 0 15 0;
#X connect 16 0 17 0;
#X connect 16 0 24 0;
#X connect 17 0 18 0;
#X connect 18 0 19 0;
#X connect 18 0 19 1;
#X connect 19 0 20 0;
#X connect 19 0 20 1;
#X connect 20 0 21 0;
#X connect 21 0 22 1;
#X connect 22 0 23 0;
#X connect 24 0 25 0;
#X connect 25 0 26 0;
#X connect 26 0 27 0;
#X connect 27 0 28 0;
#X connect 28 0 29 0;
#X connect 29 0 23 0;
#X restore 74 87 pd fire;
#X obj 74 109 bp~ 600 0.2;
#N canvas 693 91 516 421 fire 0;
#X obj 45 50 lop~ 1;
#X obj 45 72 env~;
#X obj 45 95 moses 50;
#X obj 91 119 moses 51;
#X msg 91 144 bang;
#X obj 91 166 random 30;
#X obj 91 188 t f f;
#X msg 45 209 1 \, 0 \$1;
#X obj 45 231 line~;
#X obj 45 253 *~;
#X obj 45 275 *~;
#X obj 45 297 *~;
#X obj 118 211 * 500;
#X obj 118 233 + 1500;
#X obj 88 260 bp~ 2000 1;
#X obj 184 51 hip~ 1000;
#X obj 23 17 noise~;
#X obj 258 51 lop~ 1;
#X obj 258 73 *~ 10;
#X obj 258 95 *~;
#X obj 258 117 *~;
#X obj 258 139 *~ 600;
#X obj 243 173 *~;
#X obj 46 334 outlet~;
#X obj 370 48 bp~ 30 5;
#X obj 370 70 *~ 100;
#X obj 370 92 hip~ 25;
#X obj 370 114 clip~ -0.9 0.9;
#X obj 370 136 hip~ 25;
#X obj 370 158 *~ 0.6;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 2 1 3 0;
#X connect 3 0 4 0;
#X connect 4 0 5 0;
#X connect 5 0 6 0;
#X connect 6 0 7 0;
#X connect 6 1 12 0;
#X connect 7 0 8 0;
#X connect 8 0 9 0;
#X connect 8 0 9 1;
#X connect 9 0 10 0;
#X connect 9 0 10 1;
#X connect 10 0 11 0;
#X connect 11 0 23 0;
#X connect 12 0 13 0;
#X connect 13 0 14 1;
#X connect 14 0 11 1;
#X connect 15 0 22 0;
#X connect 16 0 0 0;
#X connect 16 0 14 0;
#X connect 16 0 15 0;
#X connect 16 0 17 0;
#X connect 16 0 24 0;
#X connect 17 0 18 0;
#X connect 18 0 19 0;
#X connect 18 0 19 1;
#X connect 19 0 20 0;
#X connect 19 0 20 1;
#X connect 20 0 21 0;
#X connect 21 0 22 1;
#X connect 22 0 23 0;
#X connect 24 0 25 0;
#X connect 25 0 26 0;
#X connect 26 0 27 0;
#X connect 27 0 28 0;
#X connect 28 0 29 0;
#X connect 29 0 23 0;
#X restore 152 87 pd fire;
#N canvas 693 91 516 421 fire 0;
#X obj 45 50 lop~ 1;
#X obj 45 72 env~;
#X obj 45 95 moses 50;
#X obj 91 119 moses 51;
#X msg 91 144 bang;
#X obj 91 166 random 30;
#X obj 91 188 t f f;
#X msg 45 209 1 \, 0 \$1;
#X obj 45 231 line~;
#X obj 45 253 *~;
#X obj 45 275 *~;
#X obj 45 297 *~;
#X obj 118 211 * 500;
#X obj 118 233 + 1500;
#X obj 88 260 bp~ 2000 1;
#X obj 184 51 hip~ 1000;
#X obj 23 17 noise~;
#X obj 258 51 lop~ 1;
#X obj 258 73 *~ 10;
#X obj 258 95 *~;
#X obj 258 117 *~;
#X obj 258 139 *~ 600;
#X obj 243 173 *~;
#X obj 46 334 outlet~;
#X obj 370 48 bp~ 30 5;
#X obj 370 70 *~ 100;
#X obj 370 92 hip~ 25;
#X obj 370 114 clip~ -0.9 0.9;
#X obj 370 136 hip~ 25;
#X obj 370 158 *~ 0.6;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 2 1 3 0;
#X connect 3 0 4 0;
#X connect 4 0 5 0;
#X connect 5 0 6 0;
#X connect 6 0 7 0;
#X connect 6 1 12 0;
#X connect 7 0 8 0;
#X connect 8 0 9 0;
#X connect 8 0 9 1;
#X connect 9 0 10 0;
#X connect 9 0 10 1;
#X connect 10 0 11 0;
#X connect 11 0 23 0;
#X connect 12 0 13 0;
#X connect 13 0 14 1;
#X connect 14 0 11 1;
#X connect 15 0 22 0;
#X connect 16 0 0 0;
#X connect 16 0 14 0;
#X connect 16 0 15 0;
#X connect 16 0 17 0;
#X connect 16 0 24 0;
#X connect 17 0 18 0;
#X connect 18 0 19 0;
#X connect 18 0 19 1;
#X connect 19 0 20 0;
#X connect 19 0 20 1;
#X connect 20 0 21 0;
#X connect 21 0 22 1;
#X connect 22 0 23 0;
#X connect 24 0 25 0;
#X connect 25 0 26 0;
#X connect 26 0 27 0;
#X connect 27 0 28 0;
#X connect 28 0 29 0;
#X connect 29 0 23 0;
#X restore 230 86 pd fire;
#N canvas 693 91 516 421 fire 0;
#X obj 45 50 lop~ 1;
#X obj 45 72 env~;
#X obj 45 95 moses 50;
#X obj 91 119 moses 51;
#X msg 91 144 bang;
#X obj 91 166 random 30;
#X obj 91 188 t f f;
#X msg 45 209 1 \, 0 \$1;
#X obj 45 231 line~;
#X obj 45 253 *~;
#X obj 45 275 *~;
#X obj 45 297 *~;
#X obj 118 211 * 500;
#X obj 118 233 + 1500;
#X obj 88 260 bp~ 2000 1;
#X obj 184 51 hip~ 1000;
#X obj 23 17 noise~;
#X obj 258 51 lop~ 1;
#X obj 258 73 *~ 10;
#X obj 258 95 *~;
#X obj 258 117 *~;
#X obj 258 139 *~ 600;
#X obj 243 173 *~;
#X obj 46 334 outlet~;
#X obj 370 48 bp~ 30 5;
#X obj 370 70 *~ 100;
#X obj 370 92 hip~ 25;
#X obj 370 114 clip~ -0.9 0.9;
#X obj 370 136 hip~ 25;
#X obj 370 158 *~ 0.6;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 2 1 3 0;
#X connect 3 0 4 0;
#X connect 4 0 5 0;
#X connect 5 0 6 0;
#X connect 6 0 7 0;
#X connect 6 1 12 0;
#X connect 7 0 8 0;
#X connect 8 0 9 0;
#X connect 8 0 9 1;
#X connect 9 0 10 0;
#X connect 9 0 10 1;
#X connect 10 0 11 0;
#X connect 11 0 23 0;
#X connect 12 0 13 0;
#X connect 13 0 14 1;
#X connect 14 0 11 1;
#X connect 15 0 22 0;
#X connect 16 0 0 0;
#X connect 16 0 14 0;
#X connect 16 0 15 0;
#X connect 16 0 17 0;
#X connect 16 0 24 0;
#X connect 17 0 18 0;
#X connect 18 0 19 0;
#X connect 18 0 19 1;
#X connect 19 0 20 0;
#X connect 19 0 20 1;
#X connect 20 0 21 0;
#X connect 21 0 22 1;
#X connect 22 0 23 0;
#X connect 24 0 25 0;
#X connect 25 0 26 0;
#X connect 26 0 27 0;
#X connect 27 0 28 0;
#X connect 28 0 29 0;
#X connect 29 0 23 0;
#X restore 310 86 pd fire;
#X obj 152 109 bp~ 1200 0.6;
#X obj 230 108 bp~ 2600 0.4;
#X obj 310 108 hip~ 1000;
#X obj 74 151 *~ 0.2;
#X obj 71 205 outlet~;
#X floatatom 137 153 5 0 0 0 - - -, f 5;
#X connect 0 0 1 0;
#X connect 1 0 8 0;
#X connect 2 0 5 0;
#X connect 3 0 6 0;
#X connect 4 0 7 0;
#X connect 5 0 8 0;
#X connect 6 0 8 0;
#X connect 7 0 8 0;
#X connect 8 0 9 0;
#X connect 10 0 8 1;
#X restore 65 99 pd crackling;
#N canvas 0 22 452 617 lapping 1;
#X obj 57 47 loadbang;
#X msg 57 69 1;
#X obj 57 91 metro 6;
#X obj 57 113 t b;
#X obj 57 135 random 8192;
#X obj 58 157 mod 4096;
#X obj 57 179 / 4096;
#X obj 57 201 * 9;
#X obj 57 223 exp;
#X obj 57 245 *;
#X obj 57 267 / 23000;
#X obj 121 156 > 4096;
#X obj 121 178 sel 0 1;
#X msg 121 200 -1;
#X msg 149 201 1;
#X obj 57 289 * 1600;
#X obj 57 311 + 800;
#X obj 57 333 pack 1 2.689;
#X obj 57 355 line~;
#X obj 57 377 osc~;
#X obj 55 495 *~;
#X obj 55 539 outlet~;
#X obj 116 376 fexpr~ $x1-$x1[-1];
#X obj 116 398 clip~ 0 1;
#X obj 116 420 lop~ 10;
#X obj 116 442 *~ 0.9;
#X obj 116 464 *~;
#X obj 55 517 *~ 20;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 2 0 3 0;
#X connect 3 0 4 0;
#X connect 4 0 5 0;
#X connect 4 0 11 0;
#X connect 5 0 6 0;
#X connect 6 0 7 0;
#X connect 7 0 8 0;
#X connect 8 0 9 0;
#X connect 9 0 10 0;
#X connect 10 0 15 0;
#X connect 11 0 12 0;
#X connect 12 0 13 0;
#X connect 12 1 14 0;
#X connect 13 0 9 1;
#X connect 14 0 9 1;
#X connect 15 0 16 0;
#X connect 16 0 17 0;
#X connect 17 0 18 0;
#X connect 18 0 19 0;
#X connect 18 0 22 0;
#X connect 19 0 20 0;
#X connect 20 0 27 0;
#X connect 22 0 23 0;
#X connect 23 0 24 0;
#X connect 24 0 25 0;
#X connect 25 0 26 0;
#X connect 25 0 26 1;
#X connect 26 0 20 1;
#X connect 27 0 21 0;
#X restore 208 97 pd lapping;
#X obj 166 76 hsl 128 15 0 127 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 919 1;
#X obj 216 374 dac~;
#X msg 235 209 1 \, 0 200;
#X obj 237 239 line~ 1;
#X obj 131 300 *~;
#X obj 168 299 *~;
#X obj 377 323 readsf~;
#X msg 376 292 1;
#X obj 338 187 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X msg 426 272 open blackbird.aiff;
#X msg 376 208 0 \, 1 200;
#X obj 294 397 snapshot~;
#X obj 301 341 metro 100;
#X floatatom 293 438 5 0 0 0 - - -, f 5;
#X obj 294 285 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X text 238 20 l: lapping water c: crackling (fire) w: whistle of blackbird
l10 1c 8l 1c 5l 1c 19l 1c 25l 1c 35l 6w;
#X obj 114 411 metro 1000;
#X obj 108 381 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X msg 108 570 lapping;
#X msg 173 569 crackling;
#X msg 253 571 blackbird;
#X obj 160 627 print;
#X obj 107 507 sel 10 11 19 20 25 26 45 46 71 72 107;
#X msg 190 420 0;
#X floatatom 50 509 5 0 0 0 - - -, f 5;
#X obj 147 456 + 1;
#X obj 109 456 f 0;
#X obj 369 122 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X msg 107 352 1;
#X obj 369 152 t b b 0;
#X msg 493 445 \; pd 0;
#X obj 467 78 receive control;
#X floatatom 470 126 5 0 0 0 - - -, f 5;
#X floatatom 509 230 5 0 0 0 - - -, f 5;
#X obj 426 157 r btn1;
#X obj 363 66 r btn2;
#X obj 461 205 expr max(min($f1 \, 60) \, -60) / 60;
#X obj 461 255 expr ($f1 + 1) * 64;
#X floatatom 614 251 5 0 0 0 - - -, f 5;
#X obj 480 168 expr if($f1 > 180 \, $f1 - 360 \, $f1);
#X obj 31 262 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X obj 31 218 r dspToggle;
#X msg 18 356 \; pd dsp \$1;
#X obj 26 417 print;
#X obj 63 156 expr~ $v1*$f2;
#X obj 206 155 expr~ $v1*(1-$f2);
#X obj 53 240 loadbang;
#X connect 0 0 46 0;
#X connect 1 0 47 0;
#X connect 2 0 46 1;
#X connect 2 0 47 1;
#X connect 4 0 5 0;
#X connect 5 0 6 1;
#X connect 5 0 7 1;
#X connect 6 0 3 0;
#X connect 6 0 3 1;
#X connect 7 0 3 1;
#X connect 8 0 13 0;
#X connect 8 0 3 1;
#X connect 8 0 3 0;
#X connect 9 0 8 0;
#X connect 10 0 4 0;
#X connect 10 0 9 0;
#X connect 11 0 8 0;
#X connect 12 0 5 0;
#X connect 13 0 15 0;
#X connect 14 0 13 0;
#X connect 16 0 14 0;
#X connect 18 0 28 0;
#X connect 19 0 18 0;
#X connect 20 0 23 0;
#X connect 21 0 23 0;
#X connect 22 0 23 0;
#X connect 24 0 21 0;
#X connect 24 1 20 0;
#X connect 24 2 21 0;
#X connect 24 3 20 0;
#X connect 24 4 21 0;
#X connect 24 5 20 0;
#X connect 24 6 21 0;
#X connect 24 7 20 0;
#X connect 24 8 21 0;
#X connect 24 9 20 0;
#X connect 24 10 22 0;
#X connect 25 0 28 1;
#X connect 27 0 28 1;
#X connect 28 0 24 0;
#X connect 28 0 26 0;
#X connect 28 0 27 0;
#X connect 29 0 31 0;
#X connect 30 0 19 0;
#X connect 30 0 42 0;
#X connect 31 0 10 0;
#X connect 31 1 11 0;
#X connect 31 2 19 0;
#X connect 33 0 34 0;
#X connect 34 0 41 0;
#X connect 36 0 12 0;
#X connect 37 0 29 0;
#X connect 38 0 35 0;
#X connect 38 0 39 0;
#X connect 39 0 2 0;
#X connect 41 0 38 0;
#X connect 41 0 40 0;
#X connect 42 0 44 0;
#X connect 43 0 42 0;
#X connect 44 0 45 0;
#X connect 46 0 6 0;
#X connect 47 0 7 0;
#X connect 48 0 30 0;