-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathchico_correa_pack1.pd
645 lines (645 loc) · 16.2 KB
/
chico_correa_pack1.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
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
#N struct 1290-color float x float y float farbe;
#N struct 1290-color-display float x float y float farbe;
#N struct 1293-color float x float y float farbe;
#N struct 1293-color-display float x float y float farbe;
#N struct 1287-matrixctrl float x float y float size float color float
state;
#N struct 1307-color float x float y float farbe;
#N struct 1307-color-display float x float y float farbe;
#N struct 1310-color float x float y float farbe;
#N struct 1310-color-display float x float y float farbe;
#N struct 1304-matrixctrl float x float y float size float color float
state;
#N canvas 317 23 1089 743 12;
#X declare -lib iemlib;
#X declare -lib iemmatrix;
#X declare -lib jmmmp;
#X declare -lib cyclone;
#X declare -lib else;
#X obj 688 200 declare -lib iemlib;
#X obj 687 351 clone -s 1 ccpack_tables 61;
#N canvas 0 23 879 718 carrega_arquivos 0;
#X obj 190 395 soundfiler;
#X obj 43 164 textfile;
#X msg 25 90 read lista_arquivos.txt;
#X obj 206 52 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X msg 44 122 rewind;
#X obj 155 200 spigot;
#X msg 224 156 0;
#X obj 208 91 t b b b;
#X msg 190 156 1;
#X obj 126 201 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 190 299 mergefilename;
#X msg 71 274 separator space;
#X obj 205 204 t b l b;
#X obj 348 276 f;
#X obj 378 276 + 1;
#X msg 366 248 1;
#X obj 191 327 pack s f;
#X msg 191 352 read -resize \$1 chicopack-\$2;
#X obj 71 251 loadbang;
#X obj 25 33 loadbang;
#X obj 142 19 inlet;
#X connect 1 0 12 0;
#X connect 1 1 6 0;
#X connect 2 0 1 0;
#X connect 3 0 7 0;
#X connect 4 0 1 0;
#X connect 5 0 9 0;
#X connect 6 0 5 1;
#X connect 7 0 5 0;
#X connect 7 1 8 0;
#X connect 7 2 4 0;
#X connect 7 2 15 0;
#X connect 8 0 5 1;
#X connect 9 0 1 0;
#X connect 10 0 16 0;
#X connect 11 0 10 0;
#X connect 12 0 5 0;
#X connect 12 1 10 0;
#X connect 12 2 13 0;
#X connect 13 0 14 0;
#X connect 13 0 16 1;
#X connect 14 0 13 1;
#X connect 15 0 13 1;
#X connect 16 0 17 0;
#X connect 17 0 0 0;
#X connect 18 0 11 0;
#X connect 19 0 2 0;
#X connect 19 0 3 0;
#X connect 20 0 3 0;
#X restore 687 291 pd carrega_arquivos;
#X obj 687 268 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 687 329 r \$0-cpack;
#X text 324 143 1 surdos etc;
#X text 338 156 2 zabumbas;
#X text 331 168 3 pandeiros;
#X text 352 181 4 agogos;
#X text 352 194 5 ganzas;
#X text 352 208 6 snares;
#X text 310 221 7 claps / body;
#X text 317 234 8 xequere hat;
#X text 324 247 9 tri slices;
#X text 338 260 10 ilu aie;
#X text 324 273 11 pand veio;
#X text 331 285 12 berimbau;
#X text 352 298 13 mbira;
#X text 331 313 14 marimbau;
#X text 331 325 15 tamancos;
#X text 317 338 16 banco veio;
#X text 352 351 17 conga;
#N canvas 0 23 641 419 metronomo 0;
#X obj -6 61 f;
#X obj 26 61 + 1;
#X obj -6 40 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X obj -6 16 metro 1 80 permin;
#X floatatom 105 126 5 0 0 0 - - -;
#X floatatom 105 105 5 0 0 0 - - -;
#X msg 209 45 tempo \$1 permin;
#X obj 109 -14 /;
#X msg 108 -39 1;
#X obj -4 96 mod;
#X obj 150 -14 t b f f;
#X floatatom 102 162 5 0 0 0 - - -;
#X obj -27 -35 inlet;
#X text 143 106 bpm;
#X text 143 126 divis.;
#X obj 392 140 loadbang;
#X obj -4 132 + 1;
#X obj 278 279 s \$0-mtxctl;
#X msg 383 240 rows 17;
#N canvas 865 83 450 300 beatview 0;
#X msg 137 133 \$1 0 1;
#X obj 63 121 mod;
#X obj 54 65 - 1;
#X msg 82 149 \$1 0 0;
#X obj 139 177 s \$0-beatctl;
#X obj 44 25 inlet;
#X obj 184 44 inlet;
#X connect 0 0 4 0;
#X connect 1 0 3 0;
#X connect 2 0 1 0;
#X connect 3 0 4 0;
#X connect 5 0 2 0;
#X connect 5 0 0 0;
#X connect 6 0 1 1;
#X restore 131 289 pd beatview;
#X obj -10 185 s \$0-beat;
#X msg 271 145 16;
#X msg 274 108 20;
#X connect 0 0 1 0;
#X connect 0 0 9 0;
#X connect 1 0 0 1;
#X connect 2 0 0 0;
#X connect 3 0 2 0;
#X connect 4 0 10 0;
#X connect 5 0 6 0;
#X connect 6 0 3 0;
#X connect 7 0 3 1;
#X connect 8 0 7 0;
#X connect 9 0 16 0;
#X connect 9 0 19 0;
#X connect 10 0 8 0;
#X connect 10 1 7 1;
#X connect 10 2 9 1;
#X connect 10 2 19 1;
#X connect 11 0 20 0;
#X connect 12 0 3 0;
#X connect 15 0 21 0;
#X connect 15 0 22 0;
#X connect 15 0 18 0;
#X connect 16 0 11 0;
#X connect 18 0 17 0;
#X connect 21 0 4 0;
#X connect 22 0 5 0;
#X coords 0 -1 1 1 100 80 2 100 100;
#X restore 67 55 pd metronomo;
#X obj 67 27 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0 1
;
#X obj 414 100 r \$0-beatctl;
#X obj 71 1383 cos;
#X obj 414 143 jmmmp/matrixctrl 16 17;
#X obj 414 123 jmmmp/matrixctrl 16 1;
#N canvas 152 102 1031 926 route_to_groups 0;
#X obj 102 74 inlet;
#X obj 108 250 t f b;
#X msg 197 225 1;
#X obj 159 312 f;
#X obj 192 312 + 1;
#X floatatom 107 354 5 0 0 0 - - -;
#X floatatom 161 354 5 0 0 0 - - -;
#X obj 110 390 pack 0 0;
#X obj 35 223 cyclone/zl iter 1, f 18;
#X obj 140 473 route 1;
#X obj 159 510 list trim;
#X obj 368 455 coll coll_grupos.txt;
#C restore;
#X obj 284 453 int;
#X obj 368 481 cyclone/zl scramble;
#X msg 363 531 \$1;
#X obj 465 817 pack 0 0 0 0;
#X obj 465 849 s \$0-cpack;
#X obj 452 567 t f b b b;
#X obj 662 584 r \$0-minmax_dB;
#X obj 766 584 r \$0-minmax_pan;
#X obj 880 584 r \$0-minmax_cents;
#N canvas 0 23 976 692 rnd_rang 0;
#X obj 585 297 expr $f1 \; $f2+1-$f1;
#X floatatom 577 352 5 0 0 0 - - -;
#X floatatom 636 355 5 0 0 0 - - -;
#X obj 581 387 random;
#X obj 602 435 +;
#X floatatom 604 473 5 0 0 0 - - -;
#X obj 529 385 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 632 235 t b f;
#X obj 590 259 f;
#X obj 536 146 inlet;
#X obj 395 171 inlet;
#X obj 606 506 outlet;
#X obj 586 185 unpack 0 0;
#X connect 0 0 1 0;
#X connect 0 1 2 0;
#X connect 1 0 4 1;
#X connect 2 0 3 1;
#X connect 3 0 4 0;
#X connect 4 0 5 0;
#X connect 5 0 11 0;
#X connect 6 0 3 0;
#X connect 7 0 8 0;
#X connect 7 1 0 1;
#X connect 8 0 0 0;
#X connect 9 0 12 0;
#X connect 10 0 6 0;
#X connect 12 0 8 0;
#X connect 12 1 7 0;
#X restore 588 613 pd rnd_rang;
#N canvas 0 23 976 692 rnd_rang 0;
#X obj 585 297 expr $f1 \; $f2+1-$f1;
#X floatatom 577 352 5 0 0 0 - - -;
#X floatatom 636 355 5 0 0 0 - - -;
#X obj 581 387 random;
#X obj 602 435 +;
#X floatatom 604 473 5 0 0 0 - - -;
#X obj 529 385 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 632 235 t b f;
#X obj 590 259 f;
#X obj 536 146 inlet;
#X obj 395 171 inlet;
#X obj 606 506 outlet;
#X obj 586 185 unpack 0 0;
#X connect 0 0 1 0;
#X connect 0 1 2 0;
#X connect 1 0 4 1;
#X connect 2 0 3 1;
#X connect 3 0 4 0;
#X connect 4 0 5 0;
#X connect 5 0 11 0;
#X connect 6 0 3 0;
#X connect 7 0 8 0;
#X connect 7 1 0 1;
#X connect 8 0 0 0;
#X connect 9 0 12 0;
#X connect 10 0 6 0;
#X connect 12 0 8 0;
#X connect 12 1 7 0;
#X restore 692 613 pd rnd_rang;
#N canvas 0 23 976 692 rnd_rang 0;
#X obj 585 297 expr $f1 \; $f2+1-$f1;
#X floatatom 577 352 5 0 0 0 - - -;
#X floatatom 636 355 5 0 0 0 - - -;
#X obj 581 387 random;
#X obj 602 435 +;
#X floatatom 604 473 5 0 0 0 - - -;
#X obj 529 385 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 632 235 t b f;
#X obj 590 259 f;
#X obj 536 146 inlet;
#X obj 395 171 inlet;
#X obj 606 506 outlet;
#X obj 586 185 unpack 0 0;
#X connect 0 0 1 0;
#X connect 0 1 2 0;
#X connect 1 0 4 1;
#X connect 2 0 3 1;
#X connect 3 0 4 0;
#X connect 4 0 5 0;
#X connect 5 0 11 0;
#X connect 6 0 3 0;
#X connect 7 0 8 0;
#X connect 7 1 0 1;
#X connect 8 0 0 0;
#X connect 9 0 12 0;
#X connect 10 0 6 0;
#X connect 12 0 8 0;
#X connect 12 1 7 0;
#X restore 806 613 pd rnd_rang;
#X msg 878 530 -200 200;
#X floatatom 805 664 5 0 0 0 - - -;
#X obj 798 487 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 805 688 / 100;
#X msg 110 422 \$1 \$2;
#X obj 107 189 t l b;
#X obj 301 94 r \$0-beat;
#X obj 203 94 mtx_transpose;
#X obj 122 142 matrix;
#X floatatom 301 118 5 0 0 0 - - -;
#X msg 301 140 col \$1;
#X floatatom 680 659 5 0 0 0 - - -;
#X floatatom 582 661 5 0 0 0 - - -;
#X connect 0 0 31 0;
#X connect 1 0 5 0;
#X connect 1 1 3 0;
#X connect 2 0 3 1;
#X connect 3 0 6 0;
#X connect 3 0 4 0;
#X connect 4 0 3 1;
#X connect 5 0 7 0;
#X connect 6 0 7 1;
#X connect 7 0 28 0;
#X connect 8 0 1 0;
#X connect 9 0 10 0;
#X connect 10 0 12 0;
#X connect 11 0 13 0;
#X connect 12 0 11 0;
#X connect 13 0 14 0;
#X connect 14 0 17 0;
#X connect 15 0 16 0;
#X connect 17 0 15 0;
#X connect 17 1 21 0;
#X connect 17 2 22 0;
#X connect 17 3 23 0;
#X connect 18 0 21 1;
#X connect 19 0 22 1;
#X connect 20 0 23 1;
#X connect 21 0 15 1;
#X connect 21 0 36 0;
#X connect 22 0 15 2;
#X connect 22 0 35 0;
#X connect 23 0 25 0;
#X connect 24 0 23 1;
#X connect 25 0 27 0;
#X connect 26 0 23 0;
#X connect 27 0 15 3;
#X connect 28 0 9 0;
#X connect 29 0 8 0;
#X connect 29 1 2 0;
#X connect 30 0 33 0;
#X connect 31 0 32 0;
#X connect 32 0 29 0;
#X connect 33 0 34 0;
#X connect 34 0 32 0;
#X restore 413 373 pd route_to_groups;
#X obj 688 157 declare -lib iemmatrix;
#X obj 688 221 declare -lib jmmmp;
#X obj 688 242 declare -lib cyclone;
#N canvas 0 23 867 569 control 0;
#X floatatom 37 87 5 0 0 0 - - -;
#X text 80 89 min dB;
#X text 80 113 max dB;
#X floatatom 37 112 5 0 0 0 - - -;
#X text 32 130 range: 0-100;
#X obj 138 452 pak 0 0;
#X obj 137 401 unpack 0 0;
#X msg 134 367 set \$1 \$2;
#X obj 36 66 else/range.hsl 135 17 0 100 0 255 255 255 96 96 96 empty
empty;
#X msg 137 0 range 0 100;
#X obj 137 -21 loadbang;
#X floatatom 37 187 5 0 0 0 - - -;
#X floatatom 37 212 5 0 0 0 - - -;
#X text 32 230 range: 0-100;
#X obj 277 454 pak 0 0;
#X obj 277 421 unpack 0 0;
#X msg 274 387 set \$1 \$2;
#X obj 36 166 else/range.hsl 135 17 0 100 0 255 255 255 96 96 96 empty
empty;
#X msg 277 0 range 0 100;
#X obj 277 -21 loadbang;
#X text 80 189 min pan;
#X text 80 213 max pan;
#X text 31 245 [center: 50];
#X floatatom 37 307 5 0 0 0 - - -;
#X floatatom 37 332 5 0 0 0 - - -;
#X obj 431 449 pak 0 0;
#X obj 436 410 unpack 0 0;
#X msg 424 387 set \$1 \$2;
#X obj 36 286 else/range.hsl 135 17 -1200 1200 0 255 255 255 96 96
96 empty empty;
#X obj 427 -21 loadbang;
#X text 80 309 min cents (pshift);
#X text 80 332 max cents (pshift);
#X msg 427 0 range -1200 1200;
#X text 32 350 range: -1200 1200;
#X obj 744 62 loadbang;
#X obj 137 521 s \$0-minmax_dB;
#X obj 241 520 s \$0-minmax_pan;
#X obj 355 520 s \$0-minmax_cents;
#X msg 634 75 10 90;
#X msg 641 52 -100 100;
#X text 33 30 obs: hold shift to set range;
#X msg 653 121 70 100;
#X connect 0 0 5 0;
#X connect 3 0 5 1;
#X connect 5 0 7 0;
#X connect 5 0 35 0;
#X connect 6 0 0 0;
#X connect 6 1 3 0;
#X connect 7 0 8 0;
#X connect 8 0 6 0;
#X connect 9 0 8 0;
#X connect 10 0 9 0;
#X connect 11 0 14 0;
#X connect 12 0 14 1;
#X connect 14 0 16 0;
#X connect 14 0 36 0;
#X connect 15 0 11 0;
#X connect 15 1 12 0;
#X connect 16 0 17 0;
#X connect 17 0 15 0;
#X connect 18 0 17 0;
#X connect 19 0 18 0;
#X connect 23 0 25 0;
#X connect 24 0 25 1;
#X connect 25 0 27 0;
#X connect 25 0 37 0;
#X connect 26 0 23 0;
#X connect 26 1 24 0;
#X connect 27 0 28 0;
#X connect 28 0 26 0;
#X connect 29 0 32 0;
#X connect 32 0 28 0;
#X connect 34 0 39 0;
#X connect 34 0 38 0;
#X connect 34 0 41 0;
#X connect 38 0 17 0;
#X connect 39 0 28 0;
#X connect 41 0 8 0;
#X coords 0 -1 1 1 210 340 2 30 30;
#X restore 67 200 pd control;
#X obj 322 100 r \$0-mtxctrl;
#X obj 688 179 declare -lib else;
#N canvas 0 23 1166 604 restos 0;
#N canvas 0 23 195 199 ls 0;
#X obj 16 85 shell;
#X obj 16 39 pdcontrol;
#X msg 16 16 dir;
#X obj 15 107 list prepend add;
#X obj 15 129 list trim;
#X msg 16 62 ls -1p \$1;
#X connect 0 0 3 0;
#X connect 1 0 5 0;
#X connect 2 0 1 0;
#X connect 3 0 4 0;
#X connect 5 0 0 0;
#X restore 6 14 pd ls;
#X text 50 17 usei para gerar lista (mas precisei reordenar);
#N canvas 255 53 450 300 random_notes_test 0;
#X obj -65 95 random 61;
#X obj -65 122 + 1;
#X obj 86 95 random 101;
#X obj 1 206 t b b l;
#X obj 3 267 + 1;
#X obj -87 294 delay;
#X obj -12 20 spigot;
#X obj -14 -26 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X obj -13 -4 t b f;
#X obj 3 290 * 50;
#X floatatom 46 291 5 0 0 0 - - -;
#X floatatom -31 467 5 0 0 0 - - -;
#X obj -75 533 f;
#X obj -41 532 +;
#X obj -11 502 t b f;
#X floatatom -74 560 5 0 0 0 - - -;
#X obj -73 597 mod 61;
#X floatatom -68 626 5 0 0 0 - - -;
#X obj -67 656 + 1;
#X floatatom -54 692 5 0 0 0 - - -;
#X obj -13 53 t b b b b;
#X obj -11 176 pack 0 0 0 0;
#X floatatom 128 183 5 0 0 0 - - -;
#X obj 3 245 random 4;
#X floatatom 79 247 5 0 0 0 - - -;
#X obj 13 129 + 80;
#X obj 7 95 random 11;
#X obj 149 149 / 1;
#X obj 166 121 - 3;
#X floatatom 4 329 5 0 0 0 - - -;
#X obj 66 511 vsl 15 128 1 61 0 0 empty empty empty 0 -9 0 10 -262144
-1 -1 0 1;
#X obj 65 647 int;
#X floatatom 97 648 5 0 0 0 - - -;
#X obj -32 399 random 5;
#X obj -32 431 - 2;
#X obj 170 95 random 7;
#X obj 131 222 s \$0-cpack;
#X connect 0 0 1 0;
#X connect 2 0 21 2;
#X connect 3 0 5 0;
#X connect 3 1 23 0;
#X connect 3 2 36 0;
#X connect 4 0 9 0;
#X connect 5 0 6 0;
#X connect 6 0 20 0;
#X connect 7 0 8 0;
#X connect 8 0 6 0;
#X connect 8 1 6 1;
#X connect 9 0 5 1;
#X connect 9 0 29 0;
#X connect 10 0 9 1;
#X connect 11 0 14 0;
#X connect 12 0 13 0;
#X connect 12 0 15 0;
#X connect 13 0 12 1;
#X connect 14 0 12 0;
#X connect 14 1 13 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 21 0;
#X connect 20 0 0 0;
#X connect 20 0 33 0;
#X connect 20 1 26 0;
#X connect 20 2 2 0;
#X connect 20 3 35 0;
#X connect 21 0 3 0;
#X connect 23 0 4 0;
#X connect 24 0 23 1;
#X connect 25 0 21 1;
#X connect 26 0 25 0;
#X connect 27 0 21 3;
#X connect 27 0 22 0;
#X connect 28 0 27 0;
#X connect 30 0 31 0;
#X connect 31 0 12 1;
#X connect 31 0 32 0;
#X connect 33 0 34 0;
#X connect 34 0 11 0;
#X connect 35 0 28 0;
#X restore 6 36 pd random_notes_test;
#X restore 850 232 pd restos;
#X text 704 266 recarregar arquivos;
#N canvas 213 99 595 510 out 0;
#X obj -25 158 catch~ left;
#X obj 64 157 catch~ right;
#X obj -11 220 dac~;
#X obj -24 183 *~;
#X obj 55 188 *~;
#X obj 130 213 line~;
#X obj 198 117 dbtorms;
#X msg 199 141 \$1 10;
#X obj 202 206 vsl 25 101 0 100 0 0 empty empty empty 0 -9 0 10 -204786
-1 -1 10000 1;
#X floatatom 198 95 5 0 0 0 - - -;
#X obj 297 10 loadbang;
#X msg 300 40 100;
#X obj 203 323 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X obj 251 344 dsp~;
#X text 219 322 dsp;
#X obj 304 294 loadbang;
#X msg 304 318 1;
#X connect 0 0 3 0;
#X connect 1 0 4 0;
#X connect 3 0 2 0;
#X connect 4 0 2 1;
#X connect 5 0 4 1;
#X connect 5 0 3 1;
#X connect 6 0 7 0;
#X connect 7 0 5 0;
#X connect 8 0 9 0;
#X connect 9 0 6 0;
#X connect 10 0 11 0;
#X connect 11 0 8 0;
#X connect 12 0 13 0;
#X connect 15 0 16 0;
#X connect 16 0 12 0;
#X coords 0 -1 1 1 45 140 2 200 200;
#X restore 280 400 pd out;
#X text 278 380 OUT;
#N canvas 0 23 678 401 mtx_generate 1;
#N canvas 228 46 758 501 random_mtx 1;
#X obj 88 27 inlet;
#X obj 111 118 until;
#X obj 110 183 f;
#X obj 141 183 + 1;
#X msg 128 160 0;
#X floatatom 110 207 5 0 0 0 - - -;
#X obj 183 63 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X obj 88 308 until;
#X obj 87 373 f;
#X obj 118 373 + 1;
#X msg 105 350 0;
#X floatatom 87 397 5 0 0 0 - - -;
#X msg 111 93 17;
#X obj 110 237 t b f b;
#X msg 88 283 16;
#X obj 99 448 pack 0 0 0;
#X obj 167 413 expr if($f1==1 \, 1 \, 0);
#X obj 88 52 t b b;
#X obj 212 455 print;
#X obj 103 422 t f b;
#X obj 95 484 outlet;
#X obj 167 391 random 16;
#X connect 0 0 17 0;
#X connect 1 0 2 0;
#X connect 2 0 3 0;
#X connect 2 0 5 0;
#X connect 3 0 2 1;
#X connect 4 0 2 1;
#X connect 5 0 13 0;
#X connect 6 0 17 0;
#X connect 7 0 8 0;
#X connect 8 0 9 0;
#X connect 8 0 11 0;
#X connect 9 0 8 1;
#X connect 10 0 8 1;
#X connect 11 0 19 0;
#X connect 12 0 1 0;
#X connect 13 0 14 0;
#X connect 13 1 15 1;
#X connect 13 2 10 0;
#X connect 14 0 7 0;
#X connect 15 0 18 0;
#X connect 15 0 20 0;
#X connect 16 0 15 2;
#X connect 17 0 12 0;
#X connect 17 1 4 0;
#X connect 19 0 15 0;
#X connect 19 1 21 0;
#X connect 21 0 16 0;
#X restore 113 175 pd random_mtx;
#X obj 103 106 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 113 198 s \$0-mtxctrl;
#X msg 210 198 reset;
#X obj 103 72 loadbang;
#X text 121 105 random matrix;
#X obj 103 124 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X text 121 123 clear matrix;
#X connect 0 0 2 0;
#X connect 1 0 0 0;
#X connect 3 0 2 0;
#X connect 4 0 1 0;
#X connect 6 0 3 0;
#X coords 0 -1 1 1 120 60 2 100 100;
#X restore 67 137 pd mtx_generate;
#X text 66 553 samples: Chico Correa -> https://bit.ly/2Uu03aV;
#X text 66 541 patch: José H. Padovani;
#X connect 3 0 2 0;
#X connect 4 0 1 0;
#X connect 23 0 22 0;
#X connect 24 0 27 0;
#X connect 26 0 28 0;
#X connect 33 0 26 0;