#N canvas 211 82 954 407 10;
#X obj 36 31 inlet;
#N canvas 147 136 871 639 \$0-poly 0;
#X restore 36 254 pd \$0-poly;
#X obj 139 31 inlet;
#X obj 36 167 pack 0 0 0;
#X obj 36 344 outlet~;
#X obj 139 344 outlet~;
#X obj 36 113 poly \$1 \$2;
#X obj 139 227 s \$0-in2;
#X obj 36 287 catch~ \$0-out1;
#X obj 139 287 catch~ \$0-out2;
#X text 495 29 usage: u_makepoly <number of objects> <voice stealing:
0/1> <abstraction name> <up to 4 creation args>;
#X text 494 105 based on: polypoly;
#N canvas 228 198 627 317 LICENSE-BSD 0;
#X text 121 56 This software is copyrighted by Miller Puckette \, Reality
Jockey Ltd. and others. The terms (the "Standard Improved BSD License")
apply to all files associated with the software unless explicitly disclaimed
in individual files.;
#X text 123 148 See the file LICENSE.txt for the full license text.
;
#X restore 680 103 pd LICENSE-BSD;
#N canvas 0 0 450 300 send-in1 0;
#X obj 85 113 makefilename \$0-in1-%d;
#X obj 39 157 send;
#X obj 39 22 inlet;
#X obj 39 48 t a a;
#X msg 85 85 \$1;
#X msg 39 86 \$2 \$3;
#X connect 0 0 1 1;
#X connect 2 0 3 0;
#X connect 3 0 5 0;
#X connect 3 1 4 0;
#X connect 4 0 0 0;
#X connect 5 0 1 0;
#X restore 36 226 pd send-in1;
#X obj 296 64 loadbang;
#X obj 296 109 f \$1;
#N canvas 0 0 887 513 \$0-fill-subpatch 0;
#N canvas 0 0 498 196 clear 0;
#X obj 97 62 inlet;
#X msg 97 104 clear;
#X obj 97 126 outlet;
#X obj 159 125 value \$0-objcount;
#X msg 159 101 0;
#X connect 0 0 1 0;
#X connect 0 0 4 0;
#X connect 1 0 2 0;
#X connect 4 0 3 0;
#X restore 469 274 pd clear;
#N canvas 0 0 727 332 fake-inout 0;
#X obj 101 62 inlet;
#X obj 102 108 f \$0;
#X msg 101 85 bang;
#X text 149 108 fake in/outlets;
#X obj 102 193 outlet;
#X msg 102 131 obj 650 54 r \$1-in2 \, obj 60 600 throw~ \$1-out1 \,
obj 650 600 throw~ \$1-out2 \,;
#X connect 0 0 2 0;
#X connect 1 0 5 0;
#X connect 2 0 1 0;
#X connect 5 0 4 0;
#X restore 364 274 pd fake-inout;
#X msg 469 229 bang;
#X msg 364 230 bang;
#N canvas 132 170 1034 735 make-one-object 0;
#X obj 48 23 inlet;
#X obj 243 573 outlet;
#X obj 136 21 inlet;
#X msg 136 46 0;
#X obj 48 81 f 0;
#X obj 48 49 t b a;
#X obj 48 142 * 30;
#X obj 442 247 list append;
#X text 532 250 append object name and arguments;
#X text 521 214 x \, y;
#X obj 442 213 pack 0 0;
#X obj 442 270 list prepend obj;
#X obj 442 292 list trim;
#X obj 48 190 t a a;
#X obj 115 250 makefilename \$0-in1-%d;
#X obj 80 80 + 1;
#X obj 48 276 pack 0 0 s;
#X msg 48 307 obj \$1 \$2 r \$3;
#X obj 442 318 t b a;
#X text 456 464 receive in2;
#X text 608 465 throw left;
#X text 724 466 throw right;
#X msg 442 483 connect 0 0 \$1 1 \, connect \$1 0 1 0 \, connect \$1
1 2 0;
#X obj 442 423 value \$0-objcount;
#X obj 48 333 t b a;
#X obj 48 361 value \$0-objcount;
#X obj 48 452 pack 0 0;
#X obj 48 410 t f f;
#X obj 101 427 - 1;
#X msg 48 479 connect \$1 0 \$2 0;
#X obj 442 444 - 1;
#X obj 48 382 - 1;
#X text 118 231 make receiver name;
#X obj 48 109 t a a;
#X obj 48 216 swap 150;
#X obj 442 186 swap 250;
#X obj 48 166 + 30;
#X text 33 508 connect new receiver to first inlet of prev. object
;
#X obj 115 159 + 1;
#X text 150 162 add one more for one-based [poly];
#X connect 0 0 5 0;
#X connect 2 0 3 0;
#X connect 3 0 4 1;
#X connect 4 0 15 0;
#X connect 4 0 33 0;
#X connect 5 0 4 0;
#X connect 5 1 7 1;
#X connect 6 0 36 0;
#X connect 7 0 11 0;
#X connect 10 0 7 0;
#X connect 11 0 12 0;
#X connect 12 0 18 0;
#X connect 13 0 34 0;
#X connect 13 1 35 0;
#X connect 14 0 16 2;
#X connect 15 0 4 1;
#X connect 16 0 17 0;
#X connect 17 0 24 0;
#X connect 18 0 23 0;
#X connect 18 1 1 0;
#X connect 22 0 1 0;
#X connect 23 0 30 0;
#X connect 24 0 25 0;
#X connect 24 1 1 0;
#X connect 25 0 31 0;
#X connect 26 0 29 0;
#X connect 27 0 26 0;
#X connect 27 1 28 0;
#X connect 28 0 26 1;
#X connect 29 0 1 0;
#X connect 30 0 22 0;
#X connect 31 0 27 0;
#X connect 33 0 6 0;
#X connect 33 1 38 0;
#X connect 34 0 16 0;
#X connect 34 1 16 1;
#X connect 35 0 10 0;
#X connect 35 1 10 1;
#X connect 36 0 13 0;
#X connect 38 0 14 0;
#X restore 151 265 pd make-one-object;
#X msg 274 241 bang;
#X obj 151 213 until;
#X obj 151 193 max;
#X obj 330 402 outlet;
#X obj 151 243 list;
#X text 187 244 obj+args;
#X obj 151 171 f;
#X obj 83 34 inlet;
#X text 83 13 object count;
#X obj 355 50 inlet;
#X text 355 29 object names and arguments;
#X obj 151 83 t f b f b b;
#X obj 83 57 t b f;
#X msg 83 264 loadbang;
#X msg 242 51 polyob x y z;
#X msg 128 35 10;
#X obj 621 76 value \$0-objcount;
#X floatatom 621 99 5 0 0 0 - - -;
#X msg 621 55 bang;
#X connect 0 0 8 0;
#X connect 1 0 8 0;
#X connect 2 0 0 0;
#X connect 3 0 1 0;
#X connect 4 0 8 0;
#X connect 5 0 4 1;
#X connect 6 0 9 0;
#X connect 7 0 6 0;
#X connect 9 0 4 0;
#X connect 11 0 7 0;
#X connect 12 0 17 0;
#X connect 14 0 9 1;
#X connect 16 0 11 0;
#X connect 16 1 5 0;
#X connect 16 3 3 0;
#X connect 16 4 2 0;
#X connect 17 0 18 0;
#X connect 17 1 16 0;
#X connect 18 0 8 0;
#X connect 19 0 9 1;
#X connect 20 0 17 0;
#X connect 21 0 22 0;
#X connect 23 0 21 0;
#X restore 296 218 pd \$0-fill-subpatch;
#X obj 296 136 t a b;
#X obj 296 248 s pd-\$0-poly;
#X obj 407 292 value \$0-objcount;
#X obj 407 333 value \$0-objcount;
#X obj 407 312 + 1;
#X obj 407 249 route obj;
#X obj 407 271 b;
#X obj 426 192 list append \$3 \$4 \$5 \$6 \$7;
#X connect 0 0 6 0;
#X connect 2 0 7 0;
#X connect 3 0 13 0;
#X connect 6 0 3 0;
#X connect 6 1 3 1;
#X connect 6 2 3 2;
#X connect 8 0 4 0;
#X connect 9 0 5 0;
#X connect 14 0 15 0;
#X connect 15 0 17 0;
#X connect 16 0 18 0;
#X connect 16 0 22 0;
#X connect 17 0 16 0;
#X connect 17 1 24 0;
#X connect 19 0 21 0;
#X connect 21 0 20 0;
#X connect 22 0 23 0;
#X connect 23 0 19 0;
#X connect 24 0 16 1;
