#N struct 1004-array1 float x float y float pointx float pointy array
1004-array 1004-point;
#N struct 1004-point float x float y;
#N canvas 259 167 1121 410 12;
#X obj 46 45 cnv 15 253 99 empty empty empty 20 12 0 14 -233017 -66577
0;
#N canvas 0 0 534 324 1004-array_data 0;
#X scalar 1004-array1 0 0 0 0 \; 0 0 \; 1.275 100 \; 6.375 50 \; 15.9375
25 \; 63.75 0 \; \;;
#X coords 0 140 255 0 255 140 1;
#X restore 45 4 pd \$0-array_data;
#N canvas 173 618 591 190 1004-array_TMP 0;
#X obj 6 16 struct \$0-array1 float x float y float pointx float pointy
array \$0-array \$0-point;
#X obj 6 80 plot \$0-array 555 1 x y;
#X restore 45 147 pd \$0-array_TMP;
#N canvas 252 542 514 364 1004-array_point_TMP 0;
#X obj 10 80 drawpolygon 0 3 -1 -1 -1 1 1 1 1 -1;
#X obj 6 9 struct \$0-point float x float y;
#X restore 45 169 pd \$0-array_point_TMP;
#X obj 439 22 inlet;
#X obj 650 66 symbol;
#N canvas 713 434 460 246 1004-array_init 0;
#X obj 78 172 append \$0-array1 x y;
#X obj 233 149 pointer;
#X msg 277 89 \; \$1 clear;
#X obj 233 67 makefilename pd-%d-array_data;
#X obj 233 89 t a a;
#X obj 233 45 \$0;
#X obj 53 3 inlet;
#X msg 233 127 traverse \$1 \, bang;
#X msg 78 150 0 0;
#X obj 53 25 t b b b;
#X obj 53 194 s \$0-initPoints;
#X connect 1 0 0 2;
#X connect 3 0 4 0;
#X connect 4 0 7 0;
#X connect 4 1 2 0;
#X connect 5 0 3 0;
#X connect 6 0 9 0;
#X connect 7 0 1 0;
#X connect 8 0 0 0;
#X connect 9 0 10 0;
#X connect 9 1 8 0;
#X connect 9 2 5 0;
#X restore 708 155 pd \$0-array_init;
#X obj 491 243 s \$0-poll;
#N canvas 136 6 691 930 poll 0;
#X obj 127 16 r \$0-poll;
#X obj 127 129 metro 100;
#X obj 143 294 until 1;
#X obj 162 250 r \$0-points;
#X obj 143 272 i;
#X obj 152 193 0;
#X obj 143 316 0;
#X obj 171 316 + 1;
#X obj 178 360 element \$0-array1 \$0-array;
#X obj 381 338 pointer;
#X msg 381 316 traverse \$1 \, next;
#X obj 381 294 makefilename pd-%d-array_data;
#X obj 381 272 \$0;
#X obj 95 471 list append;
#X obj 213 405 unpack 0 0;
#X obj 42 382 set \$0-point x y;
#X obj 91 510 list append;
#X obj 346 109 r \$0-update;
#X msg 42 510 \$2 \$3;
#X obj 178 382 get \$0-point x y;
#X obj 178 427 max 0;
#X obj 301 404 max 0;
#X obj 301 426 min 100;
#X obj 178 449 min 255;
#X obj 275 129 select 1;
#X obj 127 98 t f f;
#X obj 143 338 t f f;
#X obj 155 616 r \$0-nSizeMsOut;
#X obj 33 795 select;
#X obj 76 773 - 1;
#X obj 76 751 r \$0-points;
#X obj 91 532 unpack 0 0 0;
#X obj 136 638 *;
#X obj 279 616 * 0.01;
#X obj 136 660 t f f;
#X obj 168 773 list prepend;
#X obj 168 751 list append;
#X obj 136 594 / 255;
#X obj 140 707 0;
#X obj 168 707 -;
#X obj 136 682 t f b f;
#X obj 168 729 abs;
#X obj 199 198 0;
#X obj 168 817 t a a;
#X obj 85 839 list append;
#X obj 168 795 list prepend;
#X obj 85 861 outlet;
#X obj 127 38 t f f;
#X obj 127 60 > 0;
#X obj 194 58 max 1;
#X obj 127 171 t b b b;
#X obj 346 131 t b b;
#X obj 274 867 outlet;
#X obj 274 845 list append;
#X obj 274 819 r \$0-getpat;
#X connect 0 0 47 0;
#X connect 1 0 50 0;
#X connect 2 0 6 0;
#X connect 3 0 4 1;
#X connect 4 0 2 0;
#X connect 5 0 6 1;
#X connect 6 0 7 0;
#X connect 6 0 26 0;
#X connect 7 0 6 1;
#X connect 8 0 15 2;
#X connect 8 0 19 0;
#X connect 9 0 8 1;
#X connect 10 0 9 0;
#X connect 11 0 10 0;
#X connect 12 0 11 0;
#X connect 13 0 16 0;
#X connect 14 0 20 1;
#X connect 14 1 23 1;
#X connect 16 0 18 0;
#X connect 16 0 31 0;
#X connect 17 0 51 0;
#X connect 18 0 15 0;
#X connect 19 0 20 0;
#X connect 19 1 21 0;
#X connect 20 0 23 0;
#X connect 21 0 22 0;
#X connect 22 0 16 1;
#X connect 23 0 13 1;
#X connect 24 0 12 0;
#X connect 25 0 1 0;
#X connect 25 1 24 0;
#X connect 26 0 13 0;
#X connect 26 1 8 0;
#X connect 27 0 32 1;
#X connect 28 0 44 0;
#X connect 29 0 28 1;
#X connect 30 0 29 0;
#X connect 31 0 28 0;
#X connect 31 1 37 0;
#X connect 31 2 33 0;
#X connect 32 0 34 0;
#X connect 33 0 35 1;
#X connect 34 0 40 0;
#X connect 34 1 36 1;
#X connect 35 0 45 0;
#X connect 36 0 35 0;
#X connect 37 0 32 0;
#X connect 38 0 39 0;
#X connect 39 0 41 0;
#X connect 40 0 38 1;
#X connect 40 1 38 0;
#X connect 40 2 39 1;
#X connect 41 0 36 0;
#X connect 42 0 38 1;
#X connect 43 0 44 1;
#X connect 43 0 53 1;
#X connect 43 1 45 1;
#X connect 44 0 46 0;
#X connect 45 0 43 0;
#X connect 47 0 48 0;
#X connect 47 1 49 0;
#X connect 48 0 25 0;
#X connect 49 0 1 1;
#X connect 50 0 4 0;
#X connect 50 1 5 0;
#X connect 50 2 42 0;
#X connect 50 2 45 1;
#X connect 50 2 44 1;
#X connect 51 0 50 0;
#X connect 51 1 12 0;
#X connect 53 0 52 0;
#X connect 54 0 53 0;
#X restore 45 213 pd poll;
#X obj 650 177 s \$0-update;
#X obj 439 265 s \$0-nSizeMsOut;
#X obj 368 0 loadbang;
#N canvas 0 0 697 382 initPoints 0;
#X obj 196 166 setsize \$0-array1 \$0-array;
#X msg 399 122 traverse \$1 \, next;
#X obj 399 144 pointer;
#X obj 399 100 makefilename pd-%d-array_data;
#X obj 399 78 \$0;
#X obj 23 291 \$1;
#X obj 23 313 s \$0-points;
#X obj 196 58 t f b;
#X obj 146 221 element \$0-array1 \$0-array;
#X obj 23 243 set \$0-point x y;
#X obj 23 101 until 1;
#X obj 23 123 0;
#X obj 51 123 + 1;
#X obj 145 14 r \$0-points;
#X obj 145 36 t f b f;
#X obj 170 58 0;
#X obj 23 145 t f f;
#X msg 23 221 \$1 0;
#X obj 97 123 255;
#X obj 97 150 /;
#X obj 125 123 t b f;
#X obj 23 199 *;
#X obj 23 269 r \$0-initPoints;
#X text 53 291 <-- points in array;
#X obj 157 94 - 1;
#X connect 1 0 2 0;
#X connect 2 0 0 1;
#X connect 2 0 8 1;
#X connect 3 0 1 0;
#X connect 4 0 3 0;
#X connect 5 0 6 0;
#X connect 7 0 0 0;
#X connect 7 0 24 0;
#X connect 7 1 4 0;
#X connect 8 0 9 2;
#X connect 10 0 11 0;
#X connect 11 0 12 0;
#X connect 11 0 16 0;
#X connect 12 0 11 1;
#X connect 13 0 14 0;
#X connect 14 0 10 0;
#X connect 14 1 15 0;
#X connect 14 2 7 0;
#X connect 15 0 11 1;
#X connect 16 0 21 0;
#X connect 16 1 8 0;
#X connect 17 0 9 0;
#X connect 18 0 19 0;
#X connect 19 0 21 1;
#X connect 20 0 18 0;
#X connect 20 1 19 1;
#X connect 21 0 17 0;
#X connect 22 0 5 0;
#X connect 24 0 20 0;
#X restore 45 191 pd initPoints;
#X obj -38 279 outlet;
#X obj -38 235 list append;
#N canvas 0 0 473 440 serialize 0;
#X obj 25 143 until;
#X obj 25 181 list append;
#X obj 192 182 bang;
#X obj 25 20 inlet;
#X obj 25 392 outlet;
#X obj 25 226 list split 3;
#X obj 261 183 list append;
#X obj 261 228 list split 3;
#X obj 25 90 spigot 1;
#X obj 261 90 spigot 0;
#X obj 124 18 r \$0-lineSelect;
#X obj 124 40 unpack 0 0;
#X obj 261 250 unpack 0 0 0;
#X obj 350 272 delay;
#X obj 261 138 t b a;
#X obj 261 272 t b f;
#X obj 306 272 t f f;
#X obj 261 301 pack 0 0;
#X obj 25 365 spigot 1;
#X obj 261 325 spigot 0;
#X obj 25 112 t b a b;
#X obj 25 291 unpack 0 0 0;
#X obj 25 343 pack 0 0 0;
#X obj 100 321 0;
#X obj 166 260 0;
#X obj 23 261 t b a;
#X obj 186 393 print;
#X connect 0 0 1 0;
#X connect 1 0 5 0;
#X connect 2 0 0 1;
#X connect 3 0 8 0;
#X connect 3 0 9 0;
#X connect 5 0 25 0;
#X connect 5 1 1 1;
#X connect 5 2 2 0;
#X connect 6 0 7 0;
#X connect 7 0 12 0;
#X connect 7 1 6 1;
#X connect 8 0 20 0;
#X connect 9 0 14 0;
#X connect 10 0 11 0;
#X connect 11 0 8 1;
#X connect 11 0 18 1;
#X connect 11 1 9 1;
#X connect 11 1 19 1;
#X connect 12 0 15 0;
#X connect 12 1 16 0;
#X connect 13 0 6 0;
#X connect 14 0 6 0;
#X connect 14 1 6 1;
#X connect 15 0 13 0;
#X connect 15 1 17 0;
#X connect 16 0 17 1;
#X connect 16 1 13 1;
#X connect 17 0 19 0;
#X connect 18 0 4 0;
#X connect 19 0 4 0;
#X connect 20 0 0 0;
#X connect 20 1 1 1;
#X connect 20 2 24 0;
#X connect 21 0 22 0;
#X connect 21 1 22 1;
#X connect 21 2 23 1;
#X connect 22 0 18 0;
#X connect 23 0 22 2;
#X connect 23 0 26 0;
#X connect 24 0 23 1;
#X connect 24 0 22 2;
#X connect 25 0 23 0;
#X connect 25 1 21 0;
#X restore -38 257 pd serialize;
#X obj 544 221 s \$0-bOutputVline;
#X obj -38 -21 r \$0-bOutputVline;
#X msg 767 110 1 0;
#X msg 826 110 0 1;
#X obj 767 133 s \$0-lineSelect;
#X obj 703 66 symbol \$2;
#X obj 368 22 t b b b;
#X obj 757 22 inlet;
#X obj 757 44 s \$0-listInput;
#N canvas 0 0 706 521 1004-listInput 0;
#X obj 187 220 element \$0-array1 \$0-array;
#X obj 390 140 pointer;
#X msg 390 118 traverse \$1 \, next;
#X obj 390 96 makefilename pd-%d-array_data;
#X obj 390 74 \$0;
#X obj 64 242 set \$0-point x y;
#X obj 39 33 r \$0-listInput;
#N canvas 0 0 458 308 serialize 0;
#X obj 25 73 until;
#X obj 25 111 list append;
#X obj 192 112 bang;
#X obj 25 20 inlet;
#X obj 25 192 outlet;
#X obj 25 42 t b a;
#X obj 25 156 list split 3;
#X connect 0 0 1 0;
#X connect 1 0 6 0;
#X connect 2 0 0 1;
#X connect 3 0 5 0;
#X connect 5 0 0 0;
#X connect 5 1 1 1;
#X connect 6 0 4 0;
#X connect 6 1 1 1;
#X connect 6 2 2 0;
#X restore 64 87 pd serialize;
#X obj 39 55 t b a b;
#X msg 64 109 \$2 \$3 \$1;
#X obj 64 131 unpack 0 0 0;
#X obj 39 264 s \$0-update;
#X obj 109 153 * 100;
#X obj 83 176 r \$0-nSizeMsOut;
#X obj 64 198 /;
#X obj 64 220 * 255;
#X connect 0 0 5 2;
#X connect 1 0 0 1;
#X connect 2 0 1 0;
#X connect 3 0 2 0;
#X connect 4 0 3 0;
#X connect 6 0 8 0;
#X connect 7 0 9 0;
#X connect 8 0 11 0;
#X connect 8 1 7 0;
#X connect 8 2 4 0;
#X connect 9 0 10 0;
#X connect 10 0 14 0;
#X connect 10 1 12 0;
#X connect 10 2 0 0;
#X connect 12 0 5 1;
#X connect 13 0 14 1;
#X connect 14 0 15 0;
#X connect 15 0 5 0;
#X restore 194 224 pd \$0-listInput;
#X obj 403 44 \$3;
#X obj 597 199 s \$0-initPoints;
#X obj 439 44 route size poll bang points;
#X obj 597 127 i;
#X obj 597 175 max 0;
#X obj 96 279 outlet;
#X obj 650 88 select update reset vline line getpat;
#X obj 882 110 s \$0-getpat;
#X connect 4 0 28 0;
#X connect 5 0 32 0;
#X connect 8 0 14 1;
#X connect 8 1 31 0;
#X connect 11 0 22 0;
#X connect 14 0 15 0;
#X connect 15 0 13 0;
#X connect 17 0 14 0;
#X connect 18 0 20 0;
#X connect 19 0 20 0;
#X connect 21 0 32 0;
#X connect 22 0 6 0;
#X connect 22 1 26 0;
#X connect 22 2 21 0;
#X connect 23 0 24 0;
#X connect 26 0 10 0;
#X connect 28 0 10 0;
#X connect 28 1 7 0;
#X connect 28 2 16 0;
#X connect 28 3 29 0;
#X connect 28 4 5 0;
#X connect 29 0 30 0;
#X connect 30 0 27 0;
#X connect 32 0 9 0;
#X connect 32 1 6 0;
#X connect 32 2 18 0;
#X connect 32 3 19 0;
#X connect 32 4 33 0;
#X coords 0 0 255 118 255 118 1 45 27;