#N canvas 2654 698 450 300 12;
#X declare -lib iemmatrix;
#N struct mtx_vis-plot float x float y array mtx_vis-array mtx_vis-element;
#N struct mtx_vis-element float x float y float c float dx float dy;
#X obj 48 33 inlet;
#N canvas 2021 240 750 300 guts 0;
#X obj 37 37 inlet;
#N canvas 2710 219 598 399 create-array-if-lost 0;
#X obj 327 183 pointer;
#X msg 169 170 0 0;
#X obj 169 23 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000;
#X msg 307 110 \; \$1 clear;
#X msg 327 159 traverse \$1 \, bang;
#X obj 169 112 t b s s;
#X obj 169 66 symbol pd-\$0-show;
#X obj 169 209 append mtx_vis-plot x y;
#X obj 208 29 inlet;
#X connect 0 0 7 2;
#X connect 1 0 7 0;
#X connect 2 0 6 0;
#X connect 4 0 0 0;
#X connect 5 0 1 0;
#X connect 5 1 4 0;
#X connect 5 2 3 0;
#X connect 6 0 5 0;
#X connect 8 0 6 0;
#X restore 353 113 pd create-array-if-lost;
#N canvas 2046 499 470 116 mtx_vis-plot 0;
#X obj 29 33 struct mtx_vis-plot float x float y array mtx_vis-array mtx_vis-element;
#X obj 29 71 plot -e x -e y mtx_vis-array 0 0 0 0 0;
#X restore 121 15 pd mtx_vis-plot;
#N canvas 2077 71 450 111 mtx_vis-element 0;
#X obj 18 34 struct mtx_vis-element float x float y float c float dx float dy;
#X obj 18 80 filledpolygon -x c c 0 0 0 dx 0 dx dy 0 dy;
#X restore 120 37 pd mtx_vis-element;
#X obj 216 162 pointer;
#N canvas 2499 102 732 662 makepcolorplot 0;
#X obj 21 17 inlet;
#X obj 21 66 mtx_size;
#X obj 576 26 inlet;
#X msg 324 466 0;
#X obj 306 517 f;
#X obj 334 517 + 1;
#X obj 306 568 element mtx_vis-plot mtx_vis-array;
#X obj 135 601 set mtx_vis-element c y x dy dx;
#X obj 135 557 pack f f f \$1 \$1;
#X obj 188 228 t f f;
#X obj 238 228 t f f;
#X obj 306 542 t f f;
#N canvas 2641 340 258 467 iterate2d 0;
#X obj 47 37 inlet w h;
#X obj 47 433 outlet;
#X obj 47 62 unpack, f 18;
#X obj 47 87 t f b;
#X obj 47 112 until;
#X obj 47 137 i;
#X obj 47 163 t f f;
#X obj 77 137 + 1;
#X msg 89 113 0;
#X obj 47 247 t f b;
#X obj 47 272 until;
#X obj 47 297 i;
#X obj 47 323 t f f;
#X obj 77 297 + 1;
#X msg 89 273 0;
#X obj 47 219 f, f 18;
#X obj 47 188 t b f, f 14;
#X obj 47 348 pack, f 14;
#X msg 47 373 \$2 \$1;
#X connect 0 0 2 0;
#X connect 2 0 3 0;
#X connect 2 1 15 1;
#X connect 3 0 4 0;
#X connect 3 1 8 0;
#X connect 4 0 5 0;
#X connect 5 0 6 0;
#X connect 6 0 16 0;
#X connect 6 1 7 0;
#X connect 7 0 5 1;
#X connect 8 0 5 1;
#X connect 9 0 10 0;
#X connect 9 1 14 0;
#X connect 10 0 11 0;
#X connect 11 0 12 0;
#X connect 12 0 17 0;
#X connect 12 1 13 0;
#X connect 13 0 11 1;
#X connect 14 0 11 1;
#X connect 15 0 9 0;
#X connect 16 0 15 0;
#X connect 16 1 17 1;
#X connect 17 0 18 0;
#X connect 18 0 1 0;
#X restore 21 142 pd iterate2d;
#X obj 585 391 print 2d;
#X obj 135 579 t a a;
#X obj 21 91 pack 0 0;
#X obj 21 116 t l l;
#X obj 21 257 + 1;
#X obj 21 282 pack;
#X msg 21 307 element \$1 \$2;
#X obj 60 257 + 1;
#X obj 21 192 unpack;
#X obj 21 332 mtx;
#X obj 325 110 r \$0-dimen;
#X obj 188 163 unpack 0 0 0 0;
#X obj 188 188 /;
#X obj 238 188 /;
#X obj 167 301 * 1;
#X obj 228 298 * 1;
#X obj 21 225 t f f;
#X obj 60 225 t f f;
#X obj 21 167 t l b;
#X obj 188 138 list prepend 100 100;
#N canvas 2655 474 450 300 color2grey 0;
#X obj 61 44 inlet;
#X obj 61 92 + 0.5;
#X obj 61 115 i;
#X obj 61 185 * 111;
#X obj 61 139 max 0;
#X obj 61 69 * 10;
#X obj 61 163 min 9;
#X obj 61 210 outlet;
#X connect 0 0 5 0;
#X connect 1 0 2 0;
#X connect 2 0 4 0;
#X connect 3 0 7 0;
#X connect 4 0 6 0;
#X connect 5 0 1 0;
#X connect 6 0 3 0;
#X restore 21 471 pd color2grey;
#X msg 21 382 \$2 \$1;
#X obj 21 407 route 0 1;
#X obj 21 357 pack 0 0;
#N canvas 2655 474 450 300 colormap 0;
#X obj 31 10 inlet;
#X obj 214 46 r \$0-colormap;
#X msg 214 71 set \$1;
#X obj 31 130 int;
#X obj 31 155 clip 0 999;
#X obj 31 180 outlet;
#X obj 61 35 r \$0-colormap.size;
#X obj 31 35 t f;
#X obj 31 59 *;
#X obj 31 105 tabread;
#X connect 0 0 7 0;
#X connect 1 0 2 0;
#X connect 2 0 9 0;
#X connect 3 0 4 0;
#X connect 4 0 5 0;
#X connect 6 0 8 1;
#X connect 7 0 8 0;
#X connect 8 0 9 0;
#X connect 9 0 3 0;
#X restore 59 444 pd colormap;
#X obj 21 504 t a;
#X obj 86 332 r \$0-colormap;
#X msg 86 357 1;
#X obj 21 42 t a a b b, f 33;
#N canvas 2655 474 450 300 colormapInit 0;
#X obj 41 7 inlet;
#X obj 59 67 r \$0-colormap;
#X msg 59 122 1;
#X obj 41 32 t b;
#X obj 41 173 select 1;
#X obj 41 148 i 0;
#X obj 41 198 array size;
#X obj 59 95 t b s;
#X obj 41 223 s \$0-colormap.size;
#X connect 0 0 3 0;
#X connect 1 0 7 0;
#X connect 2 0 5 1;
#X connect 3 0 5 0;
#X connect 4 0 6 0;
#X connect 5 0 4 0;
#X connect 6 0 8 0;
#X connect 7 0 2 0;
#X connect 7 1 6 1;
#X restore 249 66 pd colormapInit;
#X connect 0 0 41 0;
#X connect 1 0 15 0;
#X connect 1 1 15 1;
#X connect 2 0 6 1;
#X connect 3 0 4 1;
#X connect 4 0 11 0;
#X connect 5 0 4 1;
#X connect 6 0 7 5;
#X connect 8 0 14 0;
#X connect 9 0 8 3;
#X connect 9 1 27 1;
#X connect 10 0 28 1;
#X connect 10 1 8 4;
#X connect 11 0 6 0;
#X connect 11 1 5 0;
#X connect 12 0 31 0;
#X connect 14 0 7 0;
#X connect 15 0 16 0;
#X connect 16 0 12 0;
#X connect 16 1 32 0;
#X connect 17 0 18 0;
#X connect 18 0 19 0;
#X connect 19 0 22 0;
#X connect 20 0 18 1;
#X connect 21 0 29 0;
#X connect 21 1 30 0;
#X connect 22 0 36 0;
#X connect 23 0 32 1;
#X connect 24 0 25 0;
#X connect 24 1 26 0;
#X connect 24 2 25 1;
#X connect 24 3 26 1;
#X connect 25 0 9 0;
#X connect 26 0 10 0;
#X connect 27 0 8 1;
#X connect 28 0 8 2;
#X connect 29 0 17 0;
#X connect 29 1 27 0;
#X connect 30 0 20 0;
#X connect 30 1 28 0;
#X connect 31 0 21 0;
#X connect 31 1 4 0;
#X connect 32 0 24 0;
#X connect 33 0 38 0;
#X connect 34 0 35 0;
#X connect 35 0 33 0;
#X connect 35 1 37 0;
#X connect 36 0 34 0;
#X connect 37 0 38 0;
#X connect 38 0 8 0;
#X connect 39 0 40 0;
#X connect 40 0 36 1;
#X connect 41 0 1 0;
#X connect 41 1 22 1;
#X connect 41 2 3 0;
#X connect 41 3 42 0;
#X restore 37 246 pd makepcolorplot;
#X f 26;
#X obj 216 65 loadbang;
#X msg 216 139 traverse \$1 \, next;
#X obj 216 112 symbol pd-\$0-show;
#X obj 216 187 t a a;
#N canvas 2498 416 450 300 resize-array 0;
#X obj 49 35 inlet;
#X obj 49 83 t a a, f 10;
#X obj 116 123 mtx_size;
#X obj 116 153 *;
#X obj 351 71 inlet;
#X obj 49 187 outlet;
#X obj 116 176 setsize mtx_vis-plot mtx_vis-array;
#X connect 0 0 1 0;
#X connect 1 0 5 0;
#X connect 1 1 2 0;
#X connect 2 0 3 0;
#X connect 2 1 3 1;
#X connect 3 0 6 0;
#X connect 4 0 6 1;
#X restore 37 221 pd resize-array;
#X f 31;
#X msg 301 61 bang;
#X msg 364 86 bang;
#X obj 216 89 t b b b;
#X msg 47 192 matrix 1 1 1;
#N canvas 2655 474 450 300 dispatch 0;
#X obj 37 37 inlet;
#X obj 37 95 list prepend matrix;
#X obj 37 120 list trim;
#X obj 37 145 outlet matrix;
#X obj 37 69 route matrix colormap;
#X obj 149 126 symbol;
#X obj 149 151 s \$0-colormap;
#X connect 0 0 4 0;
#X connect 1 0 2 0;
#X connect 2 0 3 0;
#X connect 4 0 1 0;
#X connect 4 1 5 0;
#X connect 5 0 6 0;
#X restore 37 62 pd dispatch;
#X obj 250 248 declare -lib iemmatrix;
#X connect 0 0 15 0;
#X connect 4 0 9 0;
#X connect 6 0 13 0;
#X connect 7 0 4 0;
#X connect 8 0 7 0;
#X connect 9 0 5 1;
#X connect 9 1 10 1;
#X connect 10 0 5 0;
#X connect 11 0 8 0;
#X connect 12 0 1 0;
#X connect 13 0 14 0;
#X connect 13 1 8 0;
#X connect 13 2 1 0;
#X connect 14 0 10 0;
#X connect 15 0 10 0;
#X restore 48 58 pd guts;
#N canvas 3041 462 837 585 resize 0;
#X obj 69 55 loadbang;
#X obj 69 256 pack;
#X obj 69 80 t b b;
#X obj 137 110 int \$1;
#X obj 69 110 int \$2;
#X obj 137 158 select 0;
#X obj 137 133 max 0;
#X obj 69 135 max 0;
#X obj 69 160 select 0;
#X obj 69 185 f;
#X obj 137 208 t f f;
#X msg 69 281 \$2 \$1;
#X obj 161 438 s pd-\$0-self;
#X obj 69 306 t l l;
#X msg 149 53 bang;
#X obj 161 321 unpack;
#X obj 161 368 pack;
#X msg 73 488 donecanvasdialog 1 1 3 0 0 100 100 \$1 \$2 100 100 1 1 1 \, dirty 0;
#X obj 73 531 s pd-\$0-show;
#X obj 137 183 f 150;
#X msg 161 395 donecanvasdialog 1 1 1 0 0 1 1 \$1 \$2 100 100 1 1 1 \, dirty 0;
#X obj 161 345 + 2;
#X obj 200 346 + 21;
#X connect 0 0 2 0;
#X connect 1 0 11 0;
#X connect 2 0 4 0;
#X connect 2 1 3 0;
#X connect 3 0 6 0;
#X connect 4 0 7 0;
#X connect 5 0 19 0;
#X connect 5 1 19 0;
#X connect 6 0 5 0;
#X connect 7 0 8 0;
#X connect 8 0 9 0;
#X connect 8 1 9 0;
#X connect 9 0 1 0;
#X connect 10 0 9 1;
#X connect 10 1 1 1;
#X connect 11 0 13 0;
#X connect 13 0 17 0;
#X connect 13 1 15 0;
#X connect 14 0 2 0;
#X connect 15 0 21 0;
#X connect 15 1 22 0;
#X connect 16 0 20 0;
#X connect 17 0 18 0;
#X connect 19 0 10 0;
#X connect 20 0 12 0;
#X connect 21 0 16 0;
#X connect 22 0 16 1;
#X restore 302 41 pd resize;
#X obj 131 29 namecanvas pd-\$0-self;
#N canvas 2500 172 804 556 \$0-show 0;
#X scalar mtx_vis-plot 0 0 \; 0 0 0 0 0 \; \;;
#X coords 0 0 100 100 150 150 2 100 100;
#X restore 101 120 pd \$0-show;
#X connect 0 0 1 0;
#X coords 0 0 1 1 152 171 1 100 100;