mtxgui.pd

#N canvas 0 165 1321 855 12;
#X obj 2047 1661 inlet;
#N canvas 0 23 450 300 \$0-matrix 0;
#X obj 0 2 tgl 10 0 1058-stog-0 1058-rtog-0 empty 17 7 0 10 #ffffff #ffffff #ffffff 0 1;
#X obj 10 2 tgl 10 0 1058-stog-1 1058-rtog-1 empty 17 7 0 10 #ffffff #ffffff #ffffff 0 1;
#X obj 20 2 tgl 10 0 1058-stog-2 1058-rtog-2 empty 17 7 0 10 #ffffff #ffffff #ffffff 0 1;
#X obj 30 2 tgl 10 0 1058-stog-3 1058-rtog-3 empty 17 7 0 10 #ffffff #ffffff #ffffff 0 1;
#X obj 40 2 tgl 10 0 1058-stog-4 1058-rtog-4 empty 17 7 0 10 #ffffff #ffffff #ffffff 0 1;
#X obj 0 12 tgl 10 0 1058-stog-5 1058-rtog-5 empty 17 7 0 10 #c80000 #c80000 #c80000 0 1;
#X obj 10 12 tgl 10 0 1058-stog-6 1058-rtog-6 empty 17 7 0 10 #ffffff #ffffff #ffffff 0 1;
#X obj 20 12 tgl 10 0 1058-stog-7 1058-rtog-7 empty 17 7 0 10 #ffffff #ffffff #ffffff 0 1;
#X obj 30 12 tgl 10 0 1058-stog-8 1058-rtog-8 empty 17 7 0 10 #ffffff #ffffff #ffffff 0 1;
#X obj 40 12 tgl 10 0 1058-stog-9 1058-rtog-9 empty 17 7 0 10 #ffffff #ffffff #ffffff 0 1;
#X obj 0 22 tgl 10 0 1058-stog-10 1058-rtog-10 empty 17 7 0 10 #ffffff #ffffff #ffffff 0 1;
#X obj 10 22 tgl 10 0 1058-stog-11 1058-rtog-11 empty 17 7 0 10 #c80000 #c80000 #c80000 0 1;
#X obj 20 22 tgl 10 0 1058-stog-12 1058-rtog-12 empty 17 7 0 10 #ffffff #ffffff #ffffff 0 1;
#X obj 30 22 tgl 10 0 1058-stog-13 1058-rtog-13 empty 17 7 0 10 #ffffff #ffffff #ffffff 0 1;
#X obj 40 22 tgl 10 0 1058-stog-14 1058-rtog-14 empty 17 7 0 10 #ffffff #ffffff #ffffff 0 1;
#X obj 0 32 tgl 10 0 1058-stog-15 1058-rtog-15 empty 17 7 0 10 #ffffff #ffffff #ffffff 0 1;
#X obj 10 32 tgl 10 0 1058-stog-16 1058-rtog-16 empty 17 7 0 10 #ffffff #ffffff #ffffff 0 1;
#X obj 20 32 tgl 10 0 1058-stog-17 1058-rtog-17 empty 17 7 0 10 #ffffff #ffffff #ffffff 0 1;
#X obj 30 32 tgl 10 0 1058-stog-18 1058-rtog-18 empty 17 7 0 10 #ffffff #ffffff #ffffff 0 1;
#X obj 40 32 tgl 10 0 1058-stog-19 1058-rtog-19 empty 17 7 0 10 #ffffff #ffffff #ffffff 0 1;
#X obj 0 42 tgl 10 0 1058-stog-20 1058-rtog-20 empty 17 7 0 10 #ffffff #ffffff #ffffff 0 1;
#X obj 10 42 tgl 10 0 1058-stog-21 1058-rtog-21 empty 17 7 0 10 #ffffff #ffffff #ffffff 0 1;
#X obj 20 42 tgl 10 0 1058-stog-22 1058-rtog-22 empty 17 7 0 10 #ffffff #ffffff #ffffff 0 1;
#X obj 30 42 tgl 10 0 1058-stog-23 1058-rtog-23 empty 17 7 0 10 #ffffff #ffffff #ffffff 0 1;
#X obj 40 42 tgl 10 0 1058-stog-24 1058-rtog-24 empty 17 7 0 10 #ffffff #ffffff #ffffff 0 1;
#X coords 0 -1 1 1 50 54 2 0 0;
#X restore 0 0 pd \$0-matrix;
#N canvas 0 53 417 99 \$0-toggs 0;
#X obj 10 10 clone mtxgui_auxabs 25 1058;
#X restore 2005 1747 pd \$0-toggs;
#N canvas 0 23 1440 855 dyn_patching 0;
#X obj 1140 368 f \$0;
#X obj 1132 342 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000;
#X obj 324 202 r \$0-matrix;
#X obj 324 223 route size rows cols;
#X obj 573 308 unpack 0 0 15;
#X floatatom 600 444 5 0 0 0 - - - 0;
#X obj 600 470 t f b;
#X msg 652 492 0;
#X obj 600 516 f;
#X obj 628 516 + 1;
#X floatatom 498 604 5 0 0 0 - - - 0;
#X obj 600 493 until;
#X msg 545 703 0;
#X obj 493 727 f;
#X obj 521 727 + 1;
#X obj 493 704 until;
#X obj 499 626 t b b f;
#X floatatom 492 761 5 0 0 0 - - - 0;
#X obj 624 584 *;
#X obj 601 538 t f f b;
#X obj 492 868 pack 0 0 0 0;
#X obj 515 834 *;
#X obj 492 788 t f f b;
#X obj 794 568 f \$0;
#X obj 483 308 unpack 0 0 0;
#X obj 962 459 v \$0-mtx-size;
#X obj 874 484 *;
#X obj 918 484 *;
#X obj 794 594 pack 0 0 0;
#X obj 854 393 t b b b b;
#X msg 645 917 0;
#X obj 627 940 f;
#X obj 655 940 + 1;
#X obj 492 891 t l b;
#X floatatom 627 964 5 0 0 0 - - - 0;
#X obj 496 1014 pack \$0 0 0 0 0 0 0;
#X msg 496 1037 \; pd-\$1-matrix obj \$2 \$3 tgl \$7 0 \$1-stog-\$6 \$1-rtog-\$6 empty 17 7 0 10 -262144 -1 -1 0 1 \;;
#X obj 963 484 *;
#X obj 963 532 pack \$0 0;
#X obj 963 506 t b f;
#X obj 512 983 unpack 0 0 0 0;
#X msg 492 931 \$2 \$4 \$1 \$3;
#X msg 1129 394 \; pd-\$1-matrix clear \; pd-\$1-toggs clear \;;
#X obj 874 417 v \$0-mtx-cols;
#X obj 918 438 v \$0-mtx-rows;
#X msg 964 572 \; pd-\$1-toggs obj 10 10 clone mtxgui_auxabs \$2 \$1 \;;
#X msg 792 666 \; pd-\$1-matrix coords 0 -1 1 1 \$2 \$3 2 0 0 pd-\$1-matrix restore 100 52 pd-\$1-matrix \; \$1-mtxgui coords 0 -1 1 1 \$2 \$3 2 0 0 \$1-mtxgui restore 100 52 \$1-mtxgui \;;
#X obj 611 79 r \$0-mtxgui_args;
#X obj 611 101 unpack 0 0 0;
#X obj 611 204 pack 0 0 0;
#X obj 451 79 r \$0-mtxgui_setrowsnum;
#X obj 730 79 r \$0-mtxgui_setcolsnum;
#X obj 1036 79 r \$0-mtxgui_setsize;
#X obj 890 79 r \$0-mtxgui_cellsize;
#X obj 889 105 t b f;
#X obj 728 129 t b f;
#X obj 1036 104 unpack 0 0;
#X obj 324 467 v \$0-mtx-size;
#X obj 369 444 v \$0-mtx-rows;
#X obj 415 421 v \$0-mtx-cols;
#X obj 626 991 v \$0-mtx-size;
#X obj 492 955 t b l b;
#X obj 538 812 v \$0-mtx-size;
#X obj 494 659 v \$0-mtx-cols;
#X obj 647 561 v \$0-mtx-size;
#X obj 601 422 v \$0-mtx-rows;
#X obj 794 943 + 2;
#X obj 879 565 + 4;
#X obj 570 398 t b b;
#X obj 280 680 s \$0-mtxgui_mtxdumpspigot;
#X msg 281 657 1;
#X obj 213 570 s \$0-mtxgui_inlet;
#X msg 268 538 colorreset;
#X obj 431 495 t b b b;
#X msg 75 515 mtxgui_ready 1;
#X msg 85 545 mtxgui_ready 0;
#X obj 611 226 t b l b b l b;
#X obj 268 503 s \$0-ready;
#X obj 76 590 s \$0-mtxguiout6;
#X connect 0 0 42 0;
#X connect 1 0 0 0;
#X connect 2 0 3 0;
#X connect 3 0 57 0;
#X connect 3 1 58 0;
#X connect 3 2 59 0;
#X connect 4 0 58 0;
#X connect 4 1 59 0;
#X connect 4 2 57 0;
#X connect 5 0 6 0;
#X connect 6 0 11 0;
#X connect 6 1 7 0;
#X connect 7 0 8 1;
#X connect 7 0 30 0;
#X connect 8 0 9 0;
#X connect 8 0 19 0;
#X connect 9 0 8 1;
#X connect 10 0 16 0;
#X connect 11 0 8 0;
#X connect 12 0 13 1;
#X connect 13 0 14 0;
#X connect 13 0 17 0;
#X connect 14 0 13 1;
#X connect 15 0 13 0;
#X connect 16 0 63 0;
#X connect 16 1 12 0;
#X connect 16 2 20 2;
#X connect 17 0 22 0;
#X connect 18 0 20 3;
#X connect 19 0 10 0;
#X connect 19 1 18 0;
#X connect 19 2 64 0;
#X connect 20 0 33 0;
#X connect 21 0 20 1;
#X connect 22 0 20 0;
#X connect 22 1 21 0;
#X connect 22 2 62 0;
#X connect 23 0 28 0;
#X connect 24 0 58 0;
#X connect 24 1 59 0;
#X connect 24 2 57 0;
#X connect 25 0 27 1;
#X connect 25 0 26 1;
#X connect 26 0 28 1;
#X connect 27 0 67 0;
#X connect 28 0 46 0;
#X connect 29 0 23 0;
#X connect 29 1 43 0;
#X connect 29 2 44 0;
#X connect 29 3 25 0;
#X connect 30 0 31 1;
#X connect 31 0 32 0;
#X connect 31 0 34 0;
#X connect 32 0 31 1;
#X connect 33 0 41 0;
#X connect 33 1 31 0;
#X connect 34 0 35 5;
#X connect 35 0 36 0;
#X connect 37 0 39 0;
#X connect 38 0 45 0;
#X connect 39 0 38 0;
#X connect 39 1 38 1;
#X connect 40 0 35 1;
#X connect 40 1 66 0;
#X connect 40 2 35 3;
#X connect 40 3 35 4;
#X connect 41 0 61 0;
#X connect 43 0 26 0;
#X connect 43 0 37 0;
#X connect 44 0 27 0;
#X connect 44 0 37 1;
#X connect 47 0 48 0;
#X connect 48 0 49 0;
#X connect 48 1 49 1;
#X connect 48 2 49 2;
#X connect 49 0 76 0;
#X connect 50 0 49 0;
#X connect 51 0 55 0;
#X connect 52 0 56 0;
#X connect 53 0 54 0;
#X connect 54 0 49 0;
#X connect 54 1 49 2;
#X connect 55 0 49 0;
#X connect 55 1 49 1;
#X connect 56 0 49 0;
#X connect 56 1 49 1;
#X connect 60 0 35 6;
#X connect 61 0 35 0;
#X connect 61 1 40 0;
#X connect 61 2 60 0;
#X connect 62 0 21 1;
#X connect 63 0 15 0;
#X connect 64 0 18 1;
#X connect 65 0 5 0;
#X connect 66 0 35 2;
#X connect 67 0 28 2;
#X connect 68 0 73 0;
#X connect 68 1 65 0;
#X connect 70 0 69 0;
#X connect 72 0 71 0;
#X connect 73 0 74 0;
#X connect 73 0 77 0;
#X connect 73 1 72 0;
#X connect 73 2 70 0;
#X connect 74 0 78 0;
#X connect 75 0 78 0;
#X connect 76 0 68 0;
#X connect 76 1 4 0;
#X connect 76 2 29 0;
#X connect 76 3 1 0;
#X connect 76 4 24 0;
#X connect 76 5 75 0;
#X restore 1977 1791 pd dyn_patching;
#X obj 1942 1726 namecanvas \$0-mtxgui;
#X obj 2040 1835 outlet;
#N canvas 406 113 894 560 arg_management 0;
#X obj 5 49 pdcontrol;
#X msg 5 26 args;
#X obj 5 4 loadbang;
#X msg 5 366 mtxgui created with default values: 3 4 13;
#X msg 37 322 3 4 13;
#X obj 5 300 t b b;
#X obj 37 344 s \$0-mtxgui_args;
#X obj 5 388 print \$0-mtxgui;
#X obj 88 116 list length;
#X obj 56 94 t l l;
#X obj 5 71 route bang list;
#X obj 182 140 sel 1 2 3;
#X obj 182 276 print \$0-mtxgui;
#X obj 182 173 t b b;
#X msg 214 195 3 4 13;
#X obj 214 217 s \$0-mtxgui_args;
#X msg 182 240 Please inform mtxgui args: rows cols cellsize [optional]. A mtxgui was created with the default values: 3 4 13;
#X obj 56 159 spigot;
#X obj 56 203 pack 0 0 13;
#X obj 56 181 unpack 0 0 0;
#X msg 106 159 1;
#X obj 56 226 s \$0-mtxgui_args;
#X connect 0 0 10 0;
#X connect 1 0 0 0;
#X connect 2 0 1 0;
#X connect 3 0 7 0;
#X connect 4 0 6 0;
#X connect 5 0 3 0;
#X connect 5 1 4 0;
#X connect 8 0 11 0;
#X connect 9 0 17 0;
#X connect 9 1 8 0;
#X connect 10 0 5 0;
#X connect 10 1 9 0;
#X connect 11 0 13 0;
#X connect 11 1 20 0;
#X connect 11 2 20 0;
#X connect 11 3 13 0;
#X connect 13 0 16 0;
#X connect 13 1 14 0;
#X connect 14 0 15 0;
#X connect 16 0 12 0;
#X connect 17 0 19 0;
#X connect 18 0 21 0;
#X connect 19 0 18 0;
#X connect 19 1 18 1;
#X connect 19 2 18 2;
#X connect 20 0 17 1;
#X restore 1963 1768 pd arg_management;
#N canvas 283 96 1353 855 message_processing 1;
#N canvas 0 23 450 300 getsetrow 0;
#X obj 85 25 inlet;
#X obj 85 49 route float list;
#N canvas 50 112 964 766 getrow 0;
#X obj 220 24 inlet;
#X msg 290 183 0;
#X msg 385 222 set;
#X floatatom 29 220 5 0 0 0 - - - 0;
#X obj 29 243 pack 0 \$0;
#X obj 43 357 v;
#X msg 29 266 \$2-\$1-tval;
#X obj 29 311 t b a;
#X obj 29 288 list prepend symbol;
#X obj 61 334 list trim;
#X msg 45 422 1 1 1 1 1;
#X msg 44 389 add2 \$1;
#X floatatom 471 70 5 0 0 0 - - - 0;
#X obj 409 160 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#X obj 220 92 spigot;
#X obj 422 189 sel 0;
#X obj 455 227 f;
#X obj 215 52 t f f b f;
#X floatatom 272 274 5 0 0 0 - - - 0;
#X obj 254 303 *;
#X obj 213 304 f;
#X obj 220 135 t b b f b b b;
#X floatatom 254 326 5 0 0 0 - - - 0;
#X obj 254 220 - 1;
#X obj 213 326 until;
#X obj 217 376 f;
#X obj 244 376 + 1;
#X msg 177 431 15 16 17 18 19;
#X msg 210 405 add2 \$1;
#X obj 180 181 t b b;
#X msg 455 251 row \$1 out of range;
#X obj 471 46 v \$0-mtx-rows;
#X obj 273 250 v \$0-mtx-cols;
#X obj 10 454 s \$0-mtxguiout2;
#N canvas 0 23 450 300 expr 0;
#X obj 104 35 inlet;
#X obj 234 35 inlet;
#X obj 161 85 > 0;
#X obj 104 61 t f f;
#X obj 104 113 &&;
#X obj 104 139 outlet;
#X obj 104 87 <=;
#X text 198 70 expr if(($f1<=$f2)&&($f1>0) \, 1 \, 0);
#X connect 0 0 3 0;
#X connect 1 0 6 1;
#X connect 2 0 4 1;
#X connect 3 0 6 0;
#X connect 3 1 2 0;
#X connect 4 0 5 0;
#X connect 6 0 4 0;
#X restore 409 135 pd expr;
#X obj 455 279 print \$0-mtxgui;
#X connect 0 0 17 0;
#X connect 2 0 27 0;
#X connect 2 0 10 0;
#X connect 3 0 4 0;
#X connect 4 0 6 0;
#X connect 5 0 11 0;
#X connect 6 0 8 0;
#X connect 7 0 5 0;
#X connect 7 1 9 0;
#X connect 8 0 7 0;
#X connect 9 0 5 1;
#X connect 10 0 33 0;
#X connect 11 0 10 0;
#X connect 12 0 34 1;
#X connect 13 0 14 1;
#X connect 13 0 15 0;
#X connect 14 0 21 0;
#X connect 15 0 16 0;
#X connect 16 0 30 0;
#X connect 17 0 14 0;
#X connect 17 1 34 0;
#X connect 17 2 31 0;
#X connect 17 3 16 1;
#X connect 18 0 20 1;
#X connect 18 0 19 1;
#X connect 19 0 22 0;
#X connect 20 0 24 0;
#X connect 21 0 29 0;
#X connect 21 1 20 0;
#X connect 21 2 23 0;
#X connect 21 3 32 0;
#X connect 21 4 1 0;
#X connect 21 5 2 0;
#X connect 22 0 25 1;
#X connect 23 0 19 0;
#X connect 24 0 25 0;
#X connect 25 0 26 0;
#X connect 25 0 28 0;
#X connect 25 0 3 0;
#X connect 26 0 25 1;
#X connect 28 0 27 0;
#X connect 29 0 10 0;
#X connect 29 1 27 0;
#X connect 30 0 35 0;
#X connect 31 0 12 0;
#X connect 32 0 18 0;
#X connect 34 0 13 0;
#X restore 85 97 pd getrow;
#N canvas 135 128 1232 930 setrow 0;
#X obj 88 237 list split 1;
#X obj 133 291 list length;
#X obj 133 340 sel 1 0;
#X obj 80 418 list store;
#N canvas 0 23 450 300 parselist 0;
#X obj 62 21 inlet;
#X obj 49 183 outlet;
#X obj 36 76 until;
#X obj 49 159 list store;
#X obj 62 43 t b b l;
#X obj 36 101 f;
#X obj 74 102 + 1;
#X msg 88 76 0, f 2;
#X msg 35 130 get \$1 1;
#X connect 0 0 4 0;
#X connect 2 0 5 0;
#X connect 3 0 1 0;
#X connect 3 1 2 1;
#X connect 4 0 2 0;
#X connect 4 1 7 0;
#X connect 4 2 3 1;
#X connect 5 0 6 0;
#X connect 5 0 8 0;
#X connect 6 0 5 1;
#X connect 7 0 5 1;
#X connect 8 0 3 0;
#X restore 80 444 pd parselist;
#X obj 188 361 print \$0-mtxgui;
#X obj 133 267 t l l;
#X obj 76 535 f;
#X msg 93 284 \$1;
#X obj 111 535 f;
#X obj 145 535 + 1;
#X msg 129 512 1;
#X obj 80 478 t b b f;
#X obj 78 577 pack 0 0 0;
#X msg 78 605 element \$1 \$2 \$3;
#X obj 78 630 s \$0-mtxgui_inlet;
#X obj 128 190 value \$0-mtx-cols;
#X obj 88 140 t l l b b;
#X msg 188 340 number of elements don't match with number of cols;
#X obj 65 22 inlet;
#X obj 133 316 ==;
#X msg 111 69 0;
#X obj -45 109 s \$0-mtxgui_inlet;
#X msg -45 86 matrixdumpcolrow;
#X obj 111 91 s \$0dumpelementspigot;
#X obj 65 45 t b l b;
#X connect 0 1 6 0;
#X connect 1 0 20 0;
#X connect 2 0 3 0;
#X connect 2 1 18 0;
#X connect 3 0 4 0;
#X connect 4 0 12 0;
#X connect 6 0 1 0;
#X connect 6 1 3 1;
#X connect 7 0 13 0;
#X connect 8 0 7 1;
#X connect 9 0 10 0;
#X connect 9 0 13 1;
#X connect 10 0 9 1;
#X connect 11 0 9 1;
#X connect 12 0 7 0;
#X connect 12 1 9 0;
#X connect 12 2 13 2;
#X connect 13 0 14 0;
#X connect 14 0 15 0;
#X connect 16 0 20 1;
#X connect 17 0 0 0;
#X connect 17 1 8 0;
#X connect 17 2 16 0;
#X connect 17 3 11 0;
#X connect 18 0 5 0;
#X connect 19 0 25 0;
#X connect 20 0 2 0;
#X connect 21 0 24 0;
#X connect 23 0 22 0;
#X connect 25 0 23 0;
#X connect 25 1 17 0;
#X connect 25 2 21 0;
#X restore 139 74 pd setrow;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 1 1 3 0;
#X restore 432 85 pd getsetrow;
#N canvas 52 277 1335 770 matrixdumplogic 1;
#X text 87 43 1 mtxdump is a switch: if on \, must dump a matrix for every change \, if off no.;
#X text 86 83 2 when on \, must distinguish set/element commands (dump every cell change) and col/row messages (dump only when the entire col or row changed);
#X obj 380 179 r \$0matrixdumpcolrow;
#X obj 682 182 r \$0matrixdumpcell;
#X obj 381 307 spigot;
#X msg 381 331 matrix;
#X obj 381 354 s \$0-mtxgui_inlet;
#X obj 420 282 v \$0mtxgui_mtxdumpspigot;
#N canvas 0 23 845 562 getmatrix 0;
#N canvas 50 262 964 766 getrow 0;
#X obj 220 24 inlet;
#X msg 290 183 0;
#X msg 385 222 set;
#X floatatom 29 220 5 0 0 0 - - - 0;
#X obj 29 243 pack 0 \$0;
#X obj 43 357 v;
#X msg 29 266 \$2-\$1-tval;
#X obj 29 311 t b a;
#X obj 29 288 list prepend symbol;
#X obj 61 334 list trim;
#X msg 45 422 0 0 0 0 0;
#X msg 44 389 add2 \$1;
#X floatatom 471 70 5 0 0 0 - - - 0;
#X obj 409 160 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#X obj 220 92 spigot;
#X obj 422 189 sel 0;
#X obj 455 227 f;
#X obj 215 52 t f f b f;
#X obj 471 46 value \$0-mtx-rows;
#X obj 272 250 value \$0-mtx-cols;
#X floatatom 272 274 5 0 0 0 - - - 0;
#X obj 254 303 *;
#X obj 213 304 f;
#X obj 220 135 t b b f b b b;
#X floatatom 254 326 5 0 0 0 - - - 0;
#X obj 254 220 - 1;
#X obj 213 326 until;
#X obj 217 376 f;
#X obj 244 376 + 1;
#X msg 177 431 20 21 22 23 24;
#X msg 225 405 add2 \$1;
#X obj 180 181 t b b;
#X msg 455 251 row \$1 out of range;
#X obj 26 521 outlet;
#N canvas 0 23 450 300 expr 0;
#X obj 104 35 inlet;
#X obj 234 35 inlet;
#X obj 161 85 > 0;
#X obj 104 61 t f f;
#X obj 104 113 &&;
#X obj 104 139 outlet;
#X obj 104 87 <=;
#X text 198 70 expr if(($f1<=$f2)&&($f1>0) \, 1 \, 0);
#X connect 0 0 3 0;
#X connect 1 0 6 1;
#X connect 2 0 4 1;
#X connect 3 0 6 0;
#X connect 3 1 2 0;
#X connect 4 0 5 0;
#X connect 6 0 4 0;
#X restore 408 116 pd expr;
#X obj 455 279 print \$0-mtxgui;
#X connect 0 0 17 0;
#X connect 2 0 29 0;
#X connect 2 0 10 0;
#X connect 3 0 4 0;
#X connect 4 0 6 0;
#X connect 5 0 11 0;
#X connect 5 0 33 0;
#X connect 6 0 8 0;
#X connect 7 0 5 0;
#X connect 7 1 9 0;
#X connect 8 0 7 0;
#X connect 9 0 5 1;
#X connect 11 0 10 0;
#X connect 12 0 34 1;
#X connect 13 0 14 1;
#X connect 13 0 15 0;
#X connect 14 0 23 0;
#X connect 15 0 16 0;
#X connect 16 0 32 0;
#X connect 17 0 14 0;
#X connect 17 1 34 0;
#X connect 17 2 18 0;
#X connect 17 3 16 1;
#X connect 18 0 12 0;
#X connect 19 0 20 0;
#X connect 20 0 22 1;
#X connect 20 0 21 1;
#X connect 21 0 24 0;
#X connect 22 0 26 0;
#X connect 23 0 31 0;
#X connect 23 1 22 0;
#X connect 23 2 25 0;
#X connect 23 3 19 0;
#X connect 23 4 1 0;
#X connect 23 5 2 0;
#X connect 24 0 27 1;
#X connect 25 0 21 0;
#X connect 26 0 27 0;
#X connect 27 0 28 0;
#X connect 27 0 30 0;
#X connect 27 0 3 0;
#X connect 28 0 27 1;
#X connect 30 0 29 0;
#X connect 31 0 10 0;
#X connect 31 1 29 0;
#X connect 32 0 35 0;
#X connect 34 0 13 0;
#X restore 292 223 pd getrow;
#X obj 176 44 inlet;
#X msg 233 351 matrix 5 5 0 0 0 0 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0;
#X obj 561 138 value \$0-mtx-rows;
#X obj 436 138 value \$0-mtx-cols;
#X msg 687 138 set matrix;
#X obj 266 82 t b b b b b;
#X msg 449 166 add2 \$1;
#X obj 293 149 f;
#X obj 292 175 until;
#X obj 292 197 f;
#X obj 320 197 + 1;
#X msg 383 173 1;
#X msg 292 247 add2 \$1;
#X obj 233 546 outlet;
#X connect 0 0 13 0;
#X connect 1 0 6 0;
#X connect 2 0 14 0;
#X connect 3 0 7 0;
#X connect 3 0 8 1;
#X connect 4 0 7 0;
#X connect 5 0 2 0;
#X connect 6 0 2 0;
#X connect 6 1 8 0;
#X connect 6 2 4 0;
#X connect 6 3 3 0;
#X connect 6 4 5 0;
#X connect 6 4 12 0;
#X connect 7 0 2 0;
#X connect 8 0 9 0;
#X connect 9 0 10 0;
#X connect 10 0 11 0;
#X connect 10 0 0 0;
#X connect 11 0 10 1;
#X connect 12 0 10 1;
#X connect 13 0 2 0;
#X restore 113 459 pd getmatrix;
#X obj 113 435 r \$0-mtxgui_mtxdump;
#X obj 112 503 s \$0-mtxguiout5;
#X obj 682 214 t b b;
#X obj 682 262 spigot;
#X msg 682 396 matrix;
#X obj 682 419 s \$0-mtxgui_inlet;
#X obj 714 237 v \$0mtxgui_mtxdumpspigot;
#X msg 440 229 0;
#X obj 682 375 spigot;
#X obj 380 205 t b b b b;
#X msg 356 225 1;
#X obj 818 281 loadbang;
#X msg 818 302 1;
#X obj 805 376 r \$0dumpelementspigot;
#X obj 440 255 s \$0dumpelementspigot;
#X connect 2 0 18 0;
#X connect 3 0 11 0;
#X connect 4 0 5 0;
#X connect 5 0 6 0;
#X connect 7 0 4 1;
#X connect 8 0 10 0;
#X connect 9 0 8 0;
#X connect 11 0 12 0;
#X connect 11 1 15 0;
#X connect 12 0 17 0;
#X connect 13 0 14 0;
#X connect 15 0 12 1;
#X connect 16 0 23 0;
#X connect 17 0 13 0;
#X connect 18 0 19 0;
#X connect 18 1 4 0;
#X connect 18 2 7 0;
#X connect 18 3 16 0;
#X connect 19 0 23 0;
#X connect 20 0 21 0;
#X connect 21 0 17 1;
#X connect 22 0 17 1;
#X restore 816 245 pd matrixdumplogic;
#X obj 15 62 r \$0-mtxgui_inlet;
#X obj 142 62 route col;
#N canvas 0 23 450 300 getsetcol 0;
#X obj 85 25 inlet;
#X obj 85 49 route float list;
#N canvas 50 112 964 766 getcol 0;
#X obj 220 -26 inlet;
#X floatatom 255 242 5 0 0 0 - - - 0;
#X floatatom 237 289 5 0 0 0 - - - 0;
#X obj 237 310 until;
#X obj 237 333 f;
#X obj 265 333 +;
#X obj 237 355 - 1;
#X msg 290 183 0;
#X obj 237 380 +;
#X msg 322 183 set;
#X msg 215 446 3 8 13 18 23;
#X msg 237 419 add2 \$1;
#X obj 220 135 t b b b f b b;
#X floatatom 69 220 5 0 0 0 - - - 0;
#X obj 69 243 pack 0 \$0;
#X obj 83 357 v;
#X msg 69 266 \$2-\$1-tval;
#X obj 69 311 t b a;
#X obj 69 288 list prepend symbol;
#X obj 101 334 list trim;
#X msg 85 422 0 0 0 1 0;
#X msg 84 389 add2 \$1;
#X obj 255 219 value \$0-mtx-cols;
#X obj 237 265 value \$0-mtx-rows;
#X obj 220 92 spigot;
#X obj 185 165 t b b;
#N canvas 666 99 883 638 checkrange 0;
#X obj 193 49 inlet;
#X obj 182 369 outlet;
#X floatatom 245 148 5 0 0 0 - - - 0;
#X obj 245 124 value \$0-mtx-cols;
#X obj 199 194 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#X obj 212 223 sel 0;
#X obj 212 246 f;
#X msg 212 270 col \$1 out of range;
#X obj 193 77 t f b f;
#N canvas 0 23 450 300 expr 0;
#X obj 104 35 inlet;
#X obj 234 35 inlet;
#X obj 161 85 > 0;
#X obj 104 61 t f f;
#X obj 104 113 &&;
#X obj 104 139 outlet;
#X obj 104 87 <=;
#X text 198 70 expr if(($f1<=$f2)&&($f1>0) \, 1 \, 0);
#X connect 0 0 3 0;
#X connect 1 0 6 1;
#X connect 2 0 4 1;
#X connect 3 0 6 0;
#X connect 3 1 2 0;
#X connect 4 0 5 0;
#X connect 6 0 4 0;
#X restore 199 172 pd expr;
#X obj 212 298 print \$0-mtxgui;
#X connect 0 0 8 0;
#X connect 2 0 9 1;
#X connect 3 0 2 0;
#X connect 4 0 5 0;
#X connect 4 0 1 0;
#X connect 5 0 6 0;
#X connect 6 0 7 0;
#X connect 7 0 10 0;
#X connect 8 0 9 0;
#X connect 8 1 3 0;
#X connect 8 2 6 1;
#X connect 9 0 4 0;
#X restore 262 51 pd checkrange;
#X obj 223 8 t f f;
#X text 371 447 togglenumber;
#X obj 85 448 s \$0-mtxguiout3;
#X connect 0 0 27 0;
#X connect 1 0 5 1;
#X connect 2 0 3 0;
#X connect 3 0 4 0;
#X connect 4 0 5 0;
#X connect 4 0 6 0;
#X connect 5 0 4 1;
#X connect 6 0 8 0;
#X connect 7 0 4 1;
#X connect 8 0 11 0;
#X connect 8 0 13 0;
#X connect 9 0 10 0;
#X connect 9 0 20 0;
#X connect 11 0 10 0;
#X connect 12 0 25 0;
#X connect 12 1 23 0;
#X connect 12 2 22 0;
#X connect 12 3 8 1;
#X connect 12 4 7 0;
#X connect 12 5 9 0;
#X connect 13 0 14 0;
#X connect 14 0 16 0;
#X connect 15 0 21 0;
#X connect 16 0 18 0;
#X connect 17 0 15 0;
#X connect 17 1 19 0;
#X connect 18 0 17 0;
#X connect 19 0 15 1;
#X connect 20 0 29 0;
#X connect 21 0 20 0;
#X connect 22 0 1 0;
#X connect 23 0 2 0;
#X connect 24 0 12 0;
#X connect 25 0 20 0;
#X connect 25 1 10 0;
#X connect 26 0 24 1;
#X connect 27 0 24 0;
#X connect 27 1 26 0;
#X restore 85 151 pd getcol;
#N canvas 135 128 809 739 setcol 0;
#X obj 169 54 inlet;
#X obj 292 297 list split 1;
#X obj 332 250 value \$0-mtx-rows;
#X obj 332 351 list length;
#X obj 332 400 sel 1 0;
#X obj 209 458 list store;
#N canvas 0 23 450 300 parselist 0;
#X obj 62 21 inlet;
#X obj 49 183 outlet;
#X obj 36 76 until;
#X obj 49 159 list store;
#X obj 62 43 t b b l;
#X obj 36 101 f;
#X obj 74 102 + 1;
#X msg 88 76 0, f 2;
#X msg 35 130 get \$1 1;
#X connect 0 0 4 0;
#X connect 2 0 5 0;
#X connect 3 0 1 0;
#X connect 3 1 2 1;
#X connect 4 0 2 0;
#X connect 4 1 7 0;
#X connect 4 2 3 1;
#X connect 5 0 6 0;
#X connect 5 0 8 0;
#X connect 6 0 5 1;
#X connect 7 0 5 1;
#X connect 8 0 3 0;
#X restore 209 484 pd parselist;
#X msg 387 400 number of elements don't match with number of rows;
#X obj 387 421 print \$0-mtxgui;
#X obj 332 327 t l l;
#X obj 247 592 f;
#X msg 312 499 \$1;
#X obj 209 558 f;
#X obj 243 558 + 1;
#X msg 227 535 1;
#X obj 209 511 t b b f;
#X obj 212 617 pack 0 0 0;
#X msg 212 645 element \$1 \$2 \$3;
#X obj 212 670 s \$0-mtxgui_inlet;
#X obj 292 200 t l l b b;
#X msg 215 100 0;
#X obj 19 180 s \$0-mtxgui_inlet;
#X obj 332 376 ==;
#X msg 19 157 matrixdumpcolrow;
#X obj 215 122 s \$0dumpelementspigot;
#X obj 169 76 t b l b;
#X connect 0 0 25 0;
#X connect 1 1 9 0;
#X connect 2 0 22 1;
#X connect 3 0 22 0;
#X connect 4 0 5 0;
#X connect 4 1 7 0;
#X connect 5 0 6 0;
#X connect 6 0 15 0;
#X connect 7 0 8 0;
#X connect 9 0 3 0;
#X connect 9 1 5 1;
#X connect 10 0 16 1;
#X connect 11 0 10 1;
#X connect 12 0 13 0;
#X connect 12 0 16 0;
#X connect 13 0 12 1;
#X connect 14 0 12 1;
#X connect 15 0 12 0;
#X connect 15 1 10 0;
#X connect 15 2 16 2;
#X connect 16 0 17 0;
#X connect 17 0 18 0;
#X connect 19 0 1 0;
#X connect 19 1 11 0;
#X connect 19 2 2 0;
#X connect 19 3 14 0;
#X connect 20 0 24 0;
#X connect 22 0 4 0;
#X connect 23 0 21 0;
#X connect 25 0 23 0;
#X connect 25 1 19 0;
#X connect 25 2 20 0;
#X restore 139 88 pd setcol;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 1 1 3 0;
#X restore 432 62 pd getsetcol;
#X obj 15 85 r \$0-mtxgui_inlet;
#X obj 142 85 route row;
#X obj 15 107 r \$0-mtxgui_inlet;
#X obj 142 107 route matrix;
#N canvas 0 27 920 495 getsetmatrix 0;
#X obj 29 13 inlet;
#X obj 29 36 route bang list;
#N canvas 0 27 845 562 getmatrix 0;
#N canvas 50 262 964 766 getrow 0;
#X obj 220 24 inlet;
#X msg 290 183 0;
#X msg 385 222 set;
#X floatatom 29 220 5 0 0 0 - - - 0;
#X obj 29 243 pack 0 \$0;
#X obj 43 357 v;
#X msg 29 266 \$2-\$1-tval;
#X obj 29 311 t b a;
#X obj 29 288 list prepend symbol;
#X obj 61 334 list trim;
#X msg 45 422 0 0 0 0 0;
#X msg 44 389 add2 \$1;
#X obj 57 467 outlet;
#X floatatom 471 70 5 0 0 0 - - - 0;
#X obj 409 160 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#X obj 220 92 spigot;
#X obj 422 189 sel 0;
#X obj 455 227 f;
#X obj 215 52 t f f b f;
#X obj 471 46 value \$0-mtx-rows;
#X obj 272 250 value \$0-mtx-cols;
#X floatatom 272 274 5 0 0 0 - - - 0;
#X obj 254 303 *;
#X obj 213 304 f;
#X obj 220 135 t b b f b b b;
#X floatatom 254 326 5 0 0 0 - - - 0;
#X obj 254 220 - 1;
#X obj 213 326 until;
#X obj 217 376 f;
#X obj 244 376 + 1;
#X obj 234 464 outlet;
#X msg 177 431 20 21 22 23 24;
#X msg 225 405 add2 \$1;
#X obj 112 464 outlet;
#X obj 313 465 outlet;
#X obj 180 181 t b b;
#X msg 455 251 row \$1 out of range;
#X obj 167 468 outlet;
#N canvas 0 23 450 300 expr 0;
#X obj 104 35 inlet;
#X obj 234 35 inlet;
#X obj 161 85 > 0;
#X obj 104 61 t f f;
#X obj 104 113 &&;
#X obj 104 139 outlet;
#X obj 104 87 <=;
#X text 198 70 expr if(($f1<=$f2)&&($f1>0) \, 1 \, 0);
#X connect 0 0 3 0;
#X connect 1 0 6 1;
#X connect 2 0 4 1;
#X connect 3 0 6 0;
#X connect 3 1 2 0;
#X connect 4 0 5 0;
#X connect 6 0 4 0;
#X restore 409 129 pd expr;
#X obj 455 279 print \$0-mtxgui;
#X connect 0 0 18 0;
#X connect 2 0 31 0;
#X connect 2 0 10 0;
#X connect 3 0 4 0;
#X connect 4 0 6 0;
#X connect 5 0 11 0;
#X connect 5 0 37 0;
#X connect 6 0 8 0;
#X connect 7 0 5 0;
#X connect 7 1 9 0;
#X connect 8 0 7 0;
#X connect 9 0 5 1;
#X connect 10 0 12 0;
#X connect 11 0 10 0;
#X connect 13 0 34 0;
#X connect 13 0 38 1;
#X connect 14 0 15 1;
#X connect 14 0 16 0;
#X connect 15 0 24 0;
#X connect 16 0 17 0;
#X connect 17 0 36 0;
#X connect 18 0 15 0;
#X connect 18 1 38 0;
#X connect 18 2 19 0;
#X connect 18 3 17 1;
#X connect 19 0 13 0;
#X connect 20 0 21 0;
#X connect 21 0 23 1;
#X connect 21 0 22 1;
#X connect 22 0 25 0;
#X connect 23 0 27 0;
#X connect 24 0 35 0;
#X connect 24 1 23 0;
#X connect 24 2 26 0;
#X connect 24 3 20 0;
#X connect 24 4 1 0;
#X connect 24 5 2 0;
#X connect 25 0 28 1;
#X connect 26 0 22 0;
#X connect 27 0 28 0;
#X connect 28 0 29 0;
#X connect 28 0 30 0;
#X connect 28 0 32 0;
#X connect 28 0 3 0;
#X connect 29 0 28 1;
#X connect 31 0 33 0;
#X connect 32 0 31 0;
#X connect 35 0 10 0;
#X connect 35 1 31 0;
#X connect 36 0 39 0;
#X connect 38 0 14 0;
#X restore 324 209 pd getrow;
#X obj 176 44 inlet;
#X msg 265 320 matrix 5 5 0 1 0 0 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0;
#X obj 593 97 value \$0-mtx-rows;
#X obj 468 97 value \$0-mtx-cols;
#X msg 719 97 set matrix;
#X obj 266 82 t b b b b b;
#X msg 481 152 add2 \$1;
#X obj 325 135 f;
#X obj 324 161 until;
#X obj 324 183 f;
#X obj 352 183 + 1;
#X msg 415 159 1;
#X msg 292 247 add2 \$1;
#X obj 266 533 outlet;
#X connect 0 2 13 0;
#X connect 1 0 6 0;
#X connect 2 0 14 0;
#X connect 3 0 7 0;
#X connect 3 0 8 1;
#X connect 4 0 7 0;
#X connect 5 0 2 0;
#X connect 6 0 2 0;
#X connect 6 1 8 0;
#X connect 6 2 4 0;
#X connect 6 3 3 0;
#X connect 6 4 5 0;
#X connect 6 4 12 0;
#X connect 7 0 2 0;
#X connect 8 0 9 0;
#X connect 9 0 10 0;
#X connect 10 0 11 0;
#X connect 10 0 0 0;
#X connect 11 0 10 1;
#X connect 12 0 10 1;
#X connect 13 0 2 0;
#X restore 29 128 pd getmatrix;
#N canvas 444 27 1236 832 setmatrix 0;
#X obj 238 16 inlet;
#X obj 310 98 unpack 0 0;
#X obj 310 122 *;
#X obj 391 38 list split 2;
#X obj 488 146 list length;
#X obj 330 192 sel 0;
#X msg 27 217 can't construct a matrix with these parameters;
#X obj 27 238 print \$0-mtxgui;
#X obj 362 323 list;
#X obj 304 411 until;
#X obj 303 491 list store;
#X obj 338 381 t b b l;
#X obj 304 436 f;
#X obj 342 437 + 1;
#X msg 356 411 0, f 2;
#X msg 303 465 get \$1 1;
#X obj 362 349 t l b;
#X obj 511 300 s \$0-mtxgui_setsize;
#X obj 298 748 s \$0-mtxgui_set_element;
#X obj 437 593 v \$0-mtx-cols;
#X floatatom 437 615 5 0 0 0 - - - 0;
#X msg 511 253 set \$1 \$2;
#X msg 511 275 5 5;
#X obj 298 724 pack 0 0 0;
#X obj 297 606 f;
#X obj 324 606 + 1;
#X msg 369 568 0;
#X obj 331 665 mod;
#X obj 297 665 div;
#X obj 331 688 + 1;
#X obj 297 688 + 1;
#X obj 317 539 t b f;
#X obj 310 73 t l l b b;
#X obj 259 145 t f f;
#X obj 297 630 t f f f b;
#X obj 89 122 s \$0-mtxgui_mtxdumpspigot;
#X msg 264 81 0;
#X msg 180 76 1;
#X obj 362 300 t b b b;
#X obj 244 45 t b b l b;
#X msg 89 58 matrix;
#X obj 17 85 s \$0-mtxgui_inlet;
#X obj 330 170 ==;
#X obj 247 516 fmod 2;
#X obj 434 380 print debug;
#N canvas 735 373 740 591 fmod2 0;
#X obj 253 181 /;
#X floatatom 221 133 5 0 0 0 - - - 0;
#X obj 288 156 t f f;
#X obj 302 284 *;
#X floatatom 302 309 5 0 0 0 - - - 0;
#X floatatom 253 206 5 0 0 0 - - - 0;
#X obj 253 230 i;
#X floatatom 253 255 5 0 0 0 - - - 0;
#X obj 221 157 t f f;
#X obj 221 345 -;
#X floatatom 221 370 5 0 0 0 - - - 0;
#X obj 157 22 inlet;
#X obj 156 392 f;
#X obj 156 420 outlet;
#X obj 221 72 unpack 0 0;
#X obj 157 47 route bang float list;
#X obj 288 133 f 2;
#X connect 0 0 5 0;
#X connect 1 0 8 0;
#X connect 2 0 0 1;
#X connect 2 1 3 1;
#X connect 3 0 4 0;
#X connect 4 0 9 1;
#X connect 5 0 6 0;
#X connect 6 0 7 0;
#X connect 7 0 3 0;
#X connect 8 0 9 0;
#X connect 8 1 0 0;
#X connect 9 0 10 0;
#X connect 9 0 12 0;
#X connect 11 0 15 0;
#X connect 12 0 13 0;
#X connect 14 0 1 0;
#X connect 14 1 16 0;
#X connect 15 0 12 0;
#X connect 15 1 1 0;
#X connect 15 2 14 0;
#X connect 16 0 2 0;
#X restore 438 521 pd fmod2;
#X connect 0 0 39 0;
#X connect 1 0 2 0;
#X connect 1 1 2 1;
#X connect 2 0 33 0;
#X connect 3 0 32 0;
#X connect 3 1 4 0;
#X connect 3 1 8 1;
#X connect 4 0 42 1;
#X connect 5 0 6 0;
#X connect 5 1 38 0;
#X connect 6 0 7 0;
#X connect 8 0 16 0;
#X connect 9 0 12 0;
#X connect 10 0 45 0;
#X connect 10 1 9 1;
#X connect 11 0 9 0;
#X connect 11 1 14 0;
#X connect 11 2 10 1;
#X connect 12 0 13 0;
#X connect 12 0 15 0;
#X connect 13 0 12 1;
#X connect 14 0 12 1;
#X connect 15 0 10 0;
#X connect 16 0 11 0;
#X connect 16 0 44 0;
#X connect 16 1 26 0;
#X connect 19 0 20 0;
#X connect 20 0 27 1;
#X connect 20 0 28 1;
#X connect 21 0 22 0;
#X connect 22 0 17 0;
#X connect 23 0 18 0;
#X connect 24 0 25 0;
#X connect 24 0 34 0;
#X connect 25 0 24 1;
#X connect 26 0 24 1;
#X connect 27 0 29 0;
#X connect 28 0 30 0;
#X connect 29 0 23 1;
#X connect 30 0 23 0;
#X connect 31 0 24 0;
#X connect 31 1 23 2;
#X connect 32 0 1 0;
#X connect 32 1 21 0;
#X connect 33 0 42 0;
#X connect 34 1 28 0;
#X connect 34 2 27 0;
#X connect 34 3 19 0;
#X connect 36 0 35 0;
#X connect 37 0 35 0;
#X connect 38 0 8 0;
#X connect 38 1 36 0;
#X connect 38 2 22 0;
#X connect 39 0 40 0;
#X connect 39 1 37 0;
#X connect 39 2 3 0;
#X connect 39 3 36 0;
#X connect 40 0 41 0;
#X connect 42 0 5 0;
#X connect 43 0 31 0;
#X connect 45 0 31 0;
#X restore 80 105 pd setmatrix;
#X obj 183 102 outlet;
#X obj 80 70 t b l;
#X obj 29 155 s \$0-mtxguiout5;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 1 1 5 0;
#X connect 2 0 6 0;
#X connect 5 0 4 0;
#X connect 5 1 3 0;
#X restore 433 107 pd getsetmatrix;
#X obj 15 129 r \$0-mtxgui_inlet;
#X obj 143 129 route element get set;
#N canvas 294 67 1386 961 getset 0;
#X obj 179 26 inlet;
#X obj 295 160 list length;
#X obj 179 136 t l l l;
#X obj 298 229 spigot;
#X msg 351 229 1;
#X msg 383 230 0;
#X obj 352 207 sel 3;
#N canvas 251 23 947 1005 set_element 0;
#X obj 186 791 v;
#X obj 187 728 t b a;
#X obj 187 705 list prepend symbol;
#X obj 219 751 list trim;
#X floatatom 451 394 5 0 0 0 - - - 0;
#X obj 428 443 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#X obj 428 460 sel 0;
#X obj 461 498 f;
#X msg 461 522 col \$1 out of range;
#X obj 428 351 t f b f;
#X floatatom 385 597 5 0 0 0 - - - 0;
#X obj 362 646 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#X obj 362 663 sel 0;
#X obj 395 701 f;
#X obj 362 554 t f b f;
#X msg 395 725 row \$1 out of range;
#X obj 321 427 &&;
#X obj 135 280 spigot;
#X obj 361 329 unpack 0 0 0;
#X obj 135 329 unpack 0 0 0;
#X obj 135 368 - 1;
#X obj 174 367 - 1;
#X obj 174 398 t f b;
#X obj 181 523 *;
#X msg 34 732 \; \$1-stog-\$2 \$3 \;;
#X obj 140 558 +;
#X floatatom 140 585 5 0 0 0 - - - 0;
#X floatatom 231 499 5 0 0 0 - - - 0;
#X floatatom 161 443 5 0 0 0 - - - 0;
#X obj 74 638 pack \$0 0 0;
#X obj 71 604 t b f;
#X msg 135 305 \$2 \$1 \$3;
#X obj 159 756 f;
#X msg 187 677 \$1-\$2-tval;
#X obj 187 654 pack 0 \$0;
#X msg 133 686 \$2;
#X obj 157 69 t l l;
#X obj 157 43 inlet;
#X obj 451 373 v \$0-mtx-cols;
#X obj 385 576 v \$0-mtx-rows;
#X obj 206 468 v \$0-mtx-cols;
#N canvas 0 23 450 300 expr 0;
#X obj 104 35 inlet;
#X obj 234 35 inlet;
#X obj 161 85 > 0;
#X obj 104 61 t f f;
#X obj 104 113 &&;
#X obj 104 139 outlet;
#X obj 104 87 <=;
#X text 198 70 expr if(($f1<=$f2)&&($f1>0) \, 1 \, 0);
#X connect 0 0 3 0;
#X connect 1 0 6 1;
#X connect 2 0 4 1;
#X connect 3 0 6 0;
#X connect 3 1 2 0;
#X connect 4 0 5 0;
#X connect 6 0 4 0;
#X restore 428 418 pd expr;
#N canvas 0 23 450 300 expr 0;
#X obj 104 35 inlet;
#X obj 234 35 inlet;
#X obj 161 85 > 0;
#X obj 104 61 t f f;
#X obj 104 113 &&;
#X obj 104 139 outlet;
#X obj 104 87 <=;
#X text 198 70 expr if(($f1<=$f2)&&($f1>0) \, 1 \, 0);
#X connect 0 0 3 0;
#X connect 1 0 6 1;
#X connect 2 0 4 1;
#X connect 3 0 6 0;
#X connect 3 1 2 0;
#X connect 4 0 5 0;
#X connect 6 0 4 0;
#X restore 363 620 pd expr;
#X obj 396 765 print \$0-mtxgui;
#X obj 461 550 print \$0-mtxgui;
#X obj 73 676 t b l l;
#X obj 64 899 s \$0-mtxgui_inlet;
#X msg 64 875 matrixdumpcell;
#X connect 1 0 32 0;
#X connect 1 1 3 0;
#X connect 2 0 1 0;
#X connect 3 0 0 1;
#X connect 4 0 41 1;
#X connect 5 0 6 0;
#X connect 5 0 16 1;
#X connect 6 0 7 0;
#X connect 7 0 8 0;
#X connect 8 0 44 0;
#X connect 9 0 41 0;
#X connect 9 1 38 0;
#X connect 9 2 7 1;
#X connect 10 0 42 1;
#X connect 11 0 12 0;
#X connect 11 0 16 0;
#X connect 12 0 13 0;
#X connect 13 0 15 0;
#X connect 14 0 42 0;
#X connect 14 1 39 0;
#X connect 14 2 13 1;
#X connect 15 0 43 0;
#X connect 16 0 17 1;
#X connect 17 0 31 0;
#X connect 18 0 14 0;
#X connect 18 1 9 0;
#X connect 19 0 20 0;
#X connect 19 1 21 0;
#X connect 19 2 29 2;
#X connect 19 2 32 1;
#X connect 20 0 25 0;
#X connect 21 0 22 0;
#X connect 22 0 23 0;
#X connect 22 0 28 0;
#X connect 22 1 40 0;
#X connect 23 0 25 1;
#X connect 25 0 26 0;
#X connect 26 0 30 0;
#X connect 29 0 45 0;
#X connect 30 0 29 0;
#X connect 30 1 29 1;
#X connect 31 0 19 0;
#X connect 32 0 0 0;
#X connect 33 0 2 0;
#X connect 34 0 33 0;
#X connect 35 0 34 0;
#X connect 36 0 17 0;
#X connect 36 1 18 0;
#X connect 37 0 36 0;
#X connect 38 0 4 0;
#X connect 39 0 10 0;
#X connect 40 0 23 1;
#X connect 40 0 27 0;
#X connect 41 0 5 0;
#X connect 42 0 11 0;
#X connect 45 0 47 0;
#X connect 45 1 35 0;
#X connect 45 2 24 0;
#X connect 47 0 46 0;
#X restore 298 254 pd set_element;
#N canvas 683 132 947 851 get_element 0;
#X obj 59 747 v;
#X obj 140 661 list prepend symbol;
#X obj 77 709 list trim;
#X floatatom 451 394 5 0 0 0 - - - 0;
#X obj 428 443 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#X obj 428 460 sel 0;
#X obj 461 498 f;
#X msg 461 522 col \$1 out of range;
#X obj 428 351 t f b f;
#X floatatom 385 597 5 0 0 0 - - - 0;
#X obj 362 646 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#X obj 362 663 sel 0;
#X obj 395 701 f;
#X obj 362 554 t f b f;
#X msg 395 725 row \$1 out of range;
#X obj 321 427 &&;
#X obj 154 277 spigot;
#X obj 135 368 - 1;
#X obj 174 367 - 1;
#X obj 174 398 t f b;
#X obj 181 523 *;
#X obj 140 558 +;
#X floatatom 140 585 5 0 0 0 - - - 0;
#X floatatom 231 499 5 0 0 0 - - - 0;
#X floatatom 161 443 5 0 0 0 - - - 0;
#X obj 140 610 pack 0 \$0;
#X obj 157 43 inlet;
#X msg 156 303 \$2 \$1;
#X obj 135 329 unpack 0 0;
#X obj 59 773 outlet;
#X floatatom 88 747 5 0 0 0 - - - 0;
#X obj 157 69 t b l l;
#X obj 451 373 v \$0-mtx-cols;
#X obj 385 576 v \$0-mtx-rows;
#X obj 206 468 v \$0-mtx-cols;
#X obj 361 318 unpack 0 0;
#X obj 259 330 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#X obj 159 748 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000;
#X msg 140 633 \$2-\$1-tval;
#N canvas 0 23 450 300 expr 0;
#X obj 104 35 inlet;
#X obj 234 35 inlet;
#X obj 161 85 > 0;
#X obj 104 61 t f f;
#X obj 104 113 &&;
#X obj 104 139 outlet;
#X obj 104 87 <=;
#X text 198 70 expr if(($f1<=$f2)&&($f1>0) \, 1 \, 0);
#X connect 0 0 3 0;
#X connect 1 0 6 1;
#X connect 2 0 4 1;
#X connect 3 0 6 0;
#X connect 3 1 2 0;
#X connect 4 0 5 0;
#X connect 6 0 4 0;
#X restore 428 420 pd expr;
#N canvas 0 23 450 300 expr 0;
#X obj 104 35 inlet;
#X obj 234 35 inlet;
#X obj 161 85 > 0;
#X obj 104 61 t f f;
#X obj 104 113 &&;
#X obj 104 139 outlet;
#X obj 104 87 <=;
#X text 198 70 expr if(($f1<=$f2)&&($f1>0) \, 1 \, 0);
#X connect 0 0 3 0;
#X connect 1 0 6 1;
#X connect 2 0 4 1;
#X connect 3 0 6 0;
#X connect 3 1 2 0;
#X connect 4 0 5 0;
#X connect 6 0 4 0;
#X restore 362 624 pd expr;
#X obj 396 765 print \$0-mtxgui;
#X obj 461 550 print \$0-mtxgui;
#X connect 0 0 29 0;
#X connect 0 0 30 0;
#X connect 0 0 37 0;
#X connect 1 0 2 0;
#X connect 2 0 0 1;
#X connect 3 0 39 1;
#X connect 4 0 5 0;
#X connect 4 0 15 1;
#X connect 5 0 6 0;
#X connect 6 0 7 0;
#X connect 7 0 42 0;
#X connect 8 0 39 0;
#X connect 8 1 32 0;
#X connect 8 2 6 1;
#X connect 9 0 40 1;
#X connect 10 0 11 0;
#X connect 10 0 15 0;
#X connect 11 0 12 0;
#X connect 12 0 14 0;
#X connect 13 0 40 0;
#X connect 13 1 33 0;
#X connect 13 2 12 1;
#X connect 14 0 41 0;
#X connect 15 0 16 1;
#X connect 15 0 36 0;
#X connect 16 0 27 0;
#X connect 17 0 21 0;
#X connect 18 0 19 0;
#X connect 19 0 20 0;
#X connect 19 0 24 0;
#X connect 19 1 34 0;
#X connect 20 0 21 1;
#X connect 21 0 22 0;
#X connect 22 0 25 0;
#X connect 25 0 38 0;
#X connect 26 0 31 0;
#X connect 27 0 28 0;
#X connect 28 0 17 0;
#X connect 28 1 18 0;
#X connect 31 0 0 0;
#X connect 31 1 16 0;
#X connect 31 2 35 0;
#X connect 32 0 3 0;
#X connect 33 0 9 0;
#X connect 34 0 20 1;
#X connect 34 0 23 0;
#X connect 35 0 13 0;
#X connect 35 1 8 0;
#X connect 38 0 1 0;
#X connect 39 0 4 0;
#X connect 40 0 10 0;
#X restore 179 254 pd get_element;
#X obj 179 228 spigot;
#X msg 232 228 1;
#X msg 264 229 0;
#X obj 233 206 sel 2;
#X obj 472 23 inlet;
#X obj 832 21 inlet;
#X obj 504 82 list length;
#X obj 472 53 t l l;
#X obj 504 104 sel 2;
#X obj 465 138 spigot;
#X msg 518 138 1;
#X msg 550 139 0;
#X obj 864 82 list length;
#X obj 832 53 t l l;
#X obj 825 138 spigot;
#X msg 878 138 1;
#X msg 910 139 0;
#X obj 864 104 sel 3;
#X msg 910 164 set message expects 3 args (row \, col \, value);
#X msg 550 164 get message expects 2 args (row \, col);
#X obj 179 318 s \$0-mtxguiout1;
#X obj 418 254 r \$0-mtxgui_set_element;
#X obj 458 174 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000;
#X obj 910 186 print \$0-mtxgui;
#X obj 550 186 print \$0-mtxgui;
#X connect 0 0 2 0;
#X connect 1 0 6 0;
#X connect 1 0 12 0;
#X connect 2 0 9 0;
#X connect 2 1 3 0;
#X connect 2 2 1 0;
#X connect 3 0 7 0;
#X connect 4 0 3 1;
#X connect 5 0 3 1;
#X connect 6 0 4 0;
#X connect 6 1 5 0;
#X connect 8 0 29 0;
#X connect 9 0 8 0;
#X connect 10 0 9 1;
#X connect 11 0 9 1;
#X connect 12 0 10 0;
#X connect 12 1 11 0;
#X connect 13 0 16 0;
#X connect 14 0 22 0;
#X connect 15 0 17 0;
#X connect 16 0 18 0;
#X connect 16 1 15 0;
#X connect 17 0 19 0;
#X connect 17 1 20 0;
#X connect 17 1 28 0;
#X connect 18 0 8 0;
#X connect 18 0 31 0;
#X connect 19 0 18 1;
#X connect 20 0 18 1;
#X connect 21 0 26 0;
#X connect 22 0 23 0;
#X connect 22 1 21 0;
#X connect 23 0 7 0;
#X connect 24 0 23 1;
#X connect 25 0 23 1;
#X connect 26 0 24 0;
#X connect 26 1 25 0;
#X connect 26 1 27 0;
#X connect 27 0 32 0;
#X connect 28 0 33 0;
#X connect 30 0 7 0;
#X restore 433 129 pd getset;
#X obj 15 151 r \$0-mtxgui_inlet;
#X obj 143 151 route setrows;
#X obj 433 151 s \$0-mtxgui_setrowsnum;
#X obj 15 173 r \$0-mtxgui_inlet;
#X obj 143 173 route setcols;
#X obj 433 173 s \$0-mtxgui_setcolsnum;
#X obj 15 195 r \$0-mtxgui_inlet;
#X obj 433 195 s \$0-mtxgui_setsize;
#X obj 143 195 route setsize;
#X obj 15 217 r \$0-mtxgui_inlet;
#X obj 143 217 route setcellsize;
#X obj 433 217 s \$0-mtxgui_cellsize;
#X obj 15 239 r \$0-mtxgui_inlet;
#X obj 433 239 s \$0-mtxgui_args;
#X obj 143 239 route setnewargs;
#X obj 15 271 r \$0-mtxgui_inlet;
#X obj 143 271 route colorons;
#X obj 510 293 s \$0-mtxgui_colorons;
#X msg 765 293 200 0 0;
#X obj 434 499 s \$0-colormode;
#X msg 805 339 rgb;
#X obj 745 201 loadbang;
#X obj 433 293 list store;
#X obj 745 245 t b b b b;
#X obj 433 272 r \$0-ready;
#X obj 15 316 r \$0-mtxgui_inlet;
#X obj 433 338 list store;
#X obj 433 317 r \$0-ready;
#X obj 143 316 route coloroffs;
#X obj 510 338 s \$0-mtxgui_coloroffs;
#X msg 785 316 255 255 255;
#X obj 15 362 r \$0-mtxgui_inlet;
#X obj 143 362 route mtxdump;
#X obj 433 362 s \$0mtxgui_mtxdumpspigot;
#X obj 15 385 r \$0-mtxgui_inlet;
#X obj 143 385 route cellcolorons cellcoloroffs;
#N canvas 296 323 1313 710 cellcolors 0;
#X obj 58 31 inlet;
#X obj 90 124 list length;
#X obj 58 95 t l l;
#X obj 58 218 spigot;
#X msg 104 180 1;
#X msg 136 181 0;
#X obj 90 146 sel 5;
#N canvas 733 23 947 1005 set_cellcoloron 0;
#X obj 150 119 spigot;
#X obj 150 239 - 1;
#X obj 177 207 - 1;
#X obj 177 278 t f b;
#X obj 191 344 *;
#X obj 150 372 +;
#X obj 157 69 t l l;
#X obj 157 43 inlet;
#X obj 209 308 v \$0-mtx-cols;
#X obj 150 168 unpack 0 0 0 0 0;
#X obj 208 449 s \$0-mtxgui_cellcolorons;
#X obj 208 414 pack 0 0 0 0;
#N canvas 616 23 1092 1005 range_check 0;
#X obj 102 31 inlet;
#X obj 112 460 outlet;
#X floatatom 332 150 5 0 0 0 - - - 0;
#X obj 309 199 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#X obj 309 216 sel 0;
#X obj 342 254 f;
#X msg 342 278 col \$1 out of range;
#X obj 309 107 t f b f;
#X floatatom 266 353 5 0 0 0 - - - 0;
#X obj 243 402 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#X obj 243 419 sel 0;
#X obj 276 457 f;
#X obj 243 310 t f b f;
#X msg 276 481 row \$1 out of range;
#X obj 112 439 &&;
#X obj 242 85 unpack 0 0 0;
#X obj 332 129 v \$0-mtx-cols;
#X obj 266 332 v \$0-mtx-rows;
#N canvas 0 23 450 300 expr 0;
#X obj 104 35 inlet;
#X obj 234 35 inlet;
#X obj 161 85 > 0;
#X obj 104 61 t f f;
#X obj 104 113 &&;
#X obj 104 139 outlet;
#X obj 104 87 <=;
#X text 198 70 expr if(($f1<=$f2)&&($f1>0) \, 1 \, 0);
#X connect 0 0 3 0;
#X connect 1 0 6 1;
#X connect 2 0 4 1;
#X connect 3 0 6 0;
#X connect 3 1 2 0;
#X connect 4 0 5 0;
#X connect 6 0 4 0;
#X restore 309 177 pd expr;
#N canvas 0 23 450 300 expr 0;
#X obj 104 35 inlet;
#X obj 234 35 inlet;
#X obj 161 85 > 0;
#X obj 104 61 t f f;
#X obj 104 113 &&;
#X obj 104 139 outlet;
#X obj 104 87 <=;
#X text 198 70 expr if(($f1<=$f2)&&($f1>0) \, 1 \, 0);
#X connect 0 0 3 0;
#X connect 1 0 6 1;
#X connect 2 0 4 1;
#X connect 3 0 6 0;
#X connect 3 1 2 0;
#X connect 4 0 5 0;
#X connect 6 0 4 0;
#X restore 243 381 pd expr;
#X obj 342 306 print \$0-mtxgui;
#X obj 277 521 print \$0-mtxgui;
#X connect 0 0 15 0;
#X connect 2 0 18 1;
#X connect 3 0 4 0;
#X connect 3 0 14 1;
#X connect 4 0 5 0;
#X connect 5 0 6 0;
#X connect 6 0 20 0;
#X connect 7 0 18 0;
#X connect 7 1 16 0;
#X connect 7 2 5 1;
#X connect 8 0 19 1;
#X connect 9 0 10 0;
#X connect 9 0 14 0;
#X connect 10 0 11 0;
#X connect 11 0 13 0;
#X connect 12 0 19 0;
#X connect 12 1 17 0;
#X connect 12 2 11 1;
#X connect 13 0 21 0;
#X connect 14 0 1 0;
#X connect 15 0 12 0;
#X connect 15 1 7 0;
#X connect 16 0 2 0;
#X connect 17 0 8 0;
#X connect 18 0 3 0;
#X connect 19 0 9 0;
#X restore 189 93 pd range_check;
#X msg 150 144 \$2 \$1 \$3 \$4 \$5;
#X connect 0 0 13 0;
#X connect 1 0 5 0;
#X connect 2 0 3 0;
#X connect 3 0 4 0;
#X connect 3 1 8 0;
#X connect 4 0 5 1;
#X connect 5 0 11 0;
#X connect 6 0 0 0;
#X connect 6 1 12 0;
#X connect 7 0 6 0;
#X connect 8 0 4 1;
#X connect 9 0 1 0;
#X connect 9 1 2 0;
#X connect 9 2 11 1;
#X connect 9 3 11 2;
#X connect 9 4 11 3;
#X connect 11 0 10 0;
#X connect 12 0 0 1;
#X connect 13 0 9 0;
#X restore 58 275 pd set_cellcoloron;
#X msg 136 206 cellcolorons message expects 5 args (row \, col \, r \, g \, b);
#X obj 592 43 inlet;
#X obj 624 104 list length;
#X obj 592 75 t l l;
#X obj 592 198 spigot;
#X msg 638 160 1;
#X msg 670 161 0;
#X obj 624 126 sel 5;
#N canvas 733 23 947 1005 set_cellcoloroff 0;
#X obj 150 119 spigot;
#X obj 150 239 - 1;
#X obj 177 207 - 1;
#X obj 177 278 t f b;
#X obj 191 344 *;
#X obj 150 372 +;
#X obj 157 69 t l l;
#X obj 157 43 inlet;
#X obj 209 308 v \$0-mtx-cols;
#X obj 150 168 unpack 0 0 0 0 0;
#X obj 208 414 pack 0 0 0 0;
#N canvas 490 53 1092 1005 range_check 0;
#X obj 102 31 inlet;
#X obj 112 460 outlet;
#X floatatom 332 150 5 0 0 0 - - - 0;
#X obj 309 199 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#X obj 309 216 sel 0;
#X obj 342 254 f;
#X msg 342 278 col \$1 out of range;
#X obj 309 107 t f b f;
#X floatatom 266 353 5 0 0 0 - - - 0;
#X obj 243 402 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#X obj 243 419 sel 0;
#X obj 276 457 f;
#X obj 243 310 t f b f;
#X msg 276 481 row \$1 out of range;
#X obj 112 439 &&;
#X obj 242 85 unpack 0 0 0;
#X obj 332 129 v \$0-mtx-cols;
#X obj 266 332 v \$0-mtx-rows;
#N canvas 0 23 450 300 expr 0;
#X obj 104 35 inlet;
#X obj 234 35 inlet;
#X obj 161 85 > 0;
#X obj 104 61 t f f;
#X obj 104 113 &&;
#X obj 104 139 outlet;
#X obj 104 87 <=;
#X text 198 70 expr if(($f1<=$f2)&&($f1>0) \, 1 \, 0);
#X connect 0 0 3 0;
#X connect 1 0 6 1;
#X connect 2 0 4 1;
#X connect 3 0 6 0;
#X connect 3 1 2 0;
#X connect 4 0 5 0;
#X connect 6 0 4 0;
#X restore 309 177 pd expr;
#N canvas 0 23 450 300 expr 0;
#X obj 104 35 inlet;
#X obj 234 35 inlet;
#X obj 161 85 > 0;
#X obj 104 61 t f f;
#X obj 104 113 &&;
#X obj 104 139 outlet;
#X obj 104 87 <=;
#X text 198 70 expr if(($f1<=$f2)&&($f1>0) \, 1 \, 0);
#X connect 0 0 3 0;
#X connect 1 0 6 1;
#X connect 2 0 4 1;
#X connect 3 0 6 0;
#X connect 3 1 2 0;
#X connect 4 0 5 0;
#X connect 6 0 4 0;
#X restore 243 380 pd expr;
#X obj 342 306 print \$0-mtxgui;
#X obj 277 521 print \$0-mtxgui;
#X connect 0 0 15 0;
#X connect 2 0 18 1;
#X connect 3 0 4 0;
#X connect 3 0 14 1;
#X connect 4 0 5 0;
#X connect 5 0 6 0;
#X connect 6 0 20 0;
#X connect 7 0 18 0;
#X connect 7 1 16 0;
#X connect 7 2 5 1;
#X connect 8 0 19 1;
#X connect 9 0 10 0;
#X connect 9 0 14 0;
#X connect 10 0 11 0;
#X connect 11 0 13 0;
#X connect 12 0 19 0;
#X connect 12 1 17 0;
#X connect 12 2 11 1;
#X connect 13 0 21 0;
#X connect 14 0 1 0;
#X connect 15 0 12 0;
#X connect 15 1 7 0;
#X connect 16 0 2 0;
#X connect 17 0 8 0;
#X connect 18 0 3 0;
#X connect 19 0 9 0;
#X restore 189 93 pd range_check;
#X obj 208 449 s \$0-mtxgui_cellcoloroffs;
#X msg 150 145 \$2 \$1 \$3 \$4 \$5;
#X connect 0 0 13 0;
#X connect 1 0 5 0;
#X connect 2 0 3 0;
#X connect 3 0 4 0;
#X connect 3 1 8 0;
#X connect 4 0 5 1;
#X connect 5 0 10 0;
#X connect 6 0 0 0;
#X connect 6 1 11 0;
#X connect 7 0 6 0;
#X connect 8 0 4 1;
#X connect 9 0 1 0;
#X connect 9 1 2 0;
#X connect 9 2 10 1;
#X connect 9 3 10 2;
#X connect 9 4 10 3;
#X connect 10 0 12 0;
#X connect 11 0 0 1;
#X connect 13 0 9 0;
#X restore 592 255 pd set_cellcoloroff;
#X msg 670 186 cellcoloroffs message expects 5 args (row \, col \, r \, g \, b);
#X obj 136 228 print \$0-mtxgui;
#X obj 670 208 print \$0-mtxgui;
#X connect 0 0 2 0;
#X connect 1 0 6 0;
#X connect 2 0 3 0;
#X connect 2 1 1 0;
#X connect 3 0 7 0;
#X connect 4 0 3 1;
#X connect 5 0 3 1;
#X connect 6 0 4 0;
#X connect 6 1 5 0;
#X connect 6 1 8 0;
#X connect 8 0 18 0;
#X connect 9 0 11 0;
#X connect 10 0 15 0;
#X connect 11 0 12 0;
#X connect 11 1 10 0;
#X connect 12 0 16 0;
#X connect 13 0 12 1;
#X connect 14 0 12 1;
#X connect 15 0 13 0;
#X connect 15 1 14 0;
#X connect 15 1 17 0;
#X connect 17 0 19 0;
#X restore 433 385 pd cellcolors;
#X obj 15 408 r \$0-mtxgui_inlet;
#X obj 143 408 route colcolorons colcoloroffs;
#N canvas 187 163 1493 895 colcolors 0;
#X obj 462 28 inlet;
#X floatatom 250 242 5 0 0 0 - - - 0;
#X floatatom 230 289 5 0 0 0 - - - 0;
#X obj 230 310 until;
#X obj 230 333 f;
#X obj 258 333 +;
#X obj 230 355 - 1;
#X msg 290 183 0;
#X obj 230 380 +;
#X obj 250 219 value \$0-mtx-cols;
#X obj 230 265 value \$0-mtx-rows;
#X obj 220 92 spigot;
#N canvas 550 63 883 638 checkrange 0;
#X obj 193 49 inlet;
#X obj 182 369 outlet;
#X floatatom 428 139 5 0 0 0 - - - 0;
#X obj 428 115 value \$0-mtx-cols;
#X obj 199 194 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#X obj 212 223 sel 0;
#X obj 212 246 f;
#X msg 212 270 col \$1 out of range;
#X obj 193 77 t f b f;
#N canvas 0 23 450 300 expr 0;
#X obj 104 35 inlet;
#X obj 234 35 inlet;
#X obj 161 85 > 0;
#X obj 104 61 t f f;
#X obj 104 113 &&;
#X obj 104 139 outlet;
#X obj 104 87 <=;
#X text 198 70 expr if(($f1<=$f2)&&($f1>0) \, 1 \, 0);
#X connect 0 0 3 0;
#X connect 1 0 6 1;
#X connect 2 0 4 1;
#X connect 3 0 6 0;
#X connect 3 1 2 0;
#X connect 4 0 5 0;
#X connect 6 0 4 0;
#X restore 199 170 pd expr;
#X obj 212 298 print \$0-mtxgui;
#X connect 0 0 8 0;
#X connect 2 0 9 1;
#X connect 3 0 2 0;
#X connect 4 0 5 0;
#X connect 4 0 1 0;
#X connect 5 0 6 0;
#X connect 6 0 7 0;
#X connect 7 0 10 0;
#X connect 8 0 9 0;
#X connect 8 1 3 0;
#X connect 8 2 6 1;
#X connect 9 0 4 0;
#X restore 262 51 pd checkrange;
#X obj 223 8 t f f;
#X text 137 381 togglenumber;
#N canvas 0 23 450 300 checkargs 0;
#X obj 43 9 inlet;
#X obj 74 61 list length;
#X obj 42 32 t l l;
#X obj 42 155 spigot;
#X msg 88 117 1;
#X msg 120 118 0;
#X obj 74 83 sel 4;
#X obj 42 226 outlet;
#X msg 119 143 colcolorons message expects 4 args (col \, r \, g \, b);
#X obj 120 165 print \$0-mtxgui;
#X connect 0 0 2 0;
#X connect 1 0 6 0;
#X connect 2 0 3 0;
#X connect 2 1 1 0;
#X connect 3 0 7 0;
#X connect 4 0 3 1;
#X connect 5 0 3 1;
#X connect 6 0 4 0;
#X connect 6 1 5 0;
#X connect 6 1 8 0;
#X connect 8 0 9 0;
#X restore 462 56 pd checkargs;
#X obj 462 83 unpack 0 0 0 0;
#X obj 230 431 s \$0-mtxgui_cellcolorons;
#X obj 230 405 pack 0 0 0 0;
#X obj 230 159 t b b f b;
#X obj 888 38 inlet;
#X floatatom 676 252 5 0 0 0 - - - 0;
#X floatatom 656 299 5 0 0 0 - - - 0;
#X obj 656 320 until;
#X obj 656 343 f;
#X obj 684 343 +;
#X obj 656 365 - 1;
#X msg 716 193 0;
#X obj 656 390 +;
#X obj 676 229 value \$0-mtx-cols;
#X obj 656 275 value \$0-mtx-rows;
#X obj 646 102 spigot;
#N canvas 569 151 883 638 checkrange 0;
#X obj 193 49 inlet;
#X obj 182 369 outlet;
#X floatatom 428 139 5 0 0 0 - - - 0;
#X obj 428 115 value \$0-mtx-cols;
#X obj 199 194 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#X obj 212 223 sel 0;
#X obj 212 246 f;
#X msg 212 270 col \$1 out of range;
#X obj 193 77 t f b f;
#N canvas 0 23 450 300 expr 0;
#X obj 104 35 inlet;
#X obj 234 35 inlet;
#X obj 161 85 > 0;
#X obj 104 61 t f f;
#X obj 104 113 &&;
#X obj 104 139 outlet;
#X obj 104 87 <=;
#X text 198 70 expr if(($f1<=$f2)&&($f1>0) \, 1 \, 0);
#X connect 0 0 3 0;
#X connect 1 0 6 1;
#X connect 2 0 4 1;
#X connect 3 0 6 0;
#X connect 3 1 2 0;
#X connect 4 0 5 0;
#X connect 6 0 4 0;
#X restore 199 171 pd expr;
#X obj 212 298 print \$0-mtxgui;
#X connect 0 0 8 0;
#X connect 2 0 9 1;
#X connect 3 0 2 0;
#X connect 4 0 5 0;
#X connect 4 0 1 0;
#X connect 5 0 6 0;
#X connect 6 0 7 0;
#X connect 7 0 10 0;
#X connect 8 0 9 0;
#X connect 8 1 3 0;
#X connect 8 2 6 1;
#X connect 9 0 4 0;
#X restore 688 61 pd checkrange;
#X obj 649 18 t f f;
#X text 563 391 togglenumber;
#N canvas 0 23 450 300 checkargs 0;
#X obj 43 9 inlet;
#X obj 74 61 list length;
#X obj 42 32 t l l;
#X obj 42 155 spigot;
#X msg 88 117 1;
#X msg 120 118 0;
#X obj 74 83 sel 4;
#X obj 42 226 outlet;
#X msg 119 143 colcoloroffs message expects 4 args (col \, r \, g \, b);
#X obj 120 166 print \$0-mtxgui;
#X connect 0 0 2 0;
#X connect 1 0 6 0;
#X connect 2 0 3 0;
#X connect 2 1 1 0;
#X connect 3 0 7 0;
#X connect 4 0 3 1;
#X connect 5 0 3 1;
#X connect 6 0 4 0;
#X connect 6 1 5 0;
#X connect 6 1 8 0;
#X connect 8 0 9 0;
#X restore 888 66 pd checkargs;
#X obj 888 93 unpack 0 0 0 0;
#X obj 656 415 pack 0 0 0 0;
#X obj 656 169 t b b f b;
#X obj 656 441 s \$0-mtxgui_cellcoloroffs;
#X connect 0 0 15 0;
#X connect 1 0 5 1;
#X connect 2 0 3 0;
#X connect 3 0 4 0;
#X connect 4 0 5 0;
#X connect 4 0 6 0;
#X connect 5 0 4 1;
#X connect 6 0 8 0;
#X connect 7 0 4 1;
#X connect 8 0 18 0;
#X connect 9 0 1 0;
#X connect 10 0 2 0;
#X connect 11 0 19 0;
#X connect 12 0 11 1;
#X connect 13 0 11 0;
#X connect 13 1 12 0;
#X connect 15 0 16 0;
#X connect 16 0 13 0;
#X connect 16 1 18 1;
#X connect 16 2 18 2;
#X connect 16 3 18 3;
#X connect 18 0 17 0;
#X connect 19 0 10 0;
#X connect 19 1 9 0;
#X connect 19 2 8 1;
#X connect 19 3 7 0;
#X connect 20 0 35 0;
#X connect 21 0 25 1;
#X connect 22 0 23 0;
#X connect 23 0 24 0;
#X connect 24 0 25 0;
#X connect 24 0 26 0;
#X connect 25 0 24 1;
#X connect 26 0 28 0;
#X connect 27 0 24 1;
#X connect 28 0 37 0;
#X connect 29 0 21 0;
#X connect 30 0 22 0;
#X connect 31 0 38 0;
#X connect 32 0 31 1;
#X connect 33 0 31 0;
#X connect 33 1 32 0;
#X connect 35 0 36 0;
#X connect 36 0 33 0;
#X connect 36 1 37 1;
#X connect 36 2 37 2;
#X connect 36 3 37 3;
#X connect 37 0 39 0;
#X connect 38 0 30 0;
#X connect 38 1 29 0;
#X connect 38 2 28 1;
#X connect 38 3 27 0;
#X restore 434 408 pd colcolors;
#X obj 15 430 r \$0-mtxgui_inlet;
#X obj 143 430 route rowcolorons rowcoloroffs;
#N canvas 427 290 1493 895 rowcolors 0;
#X obj 462 8 inlet;
#X obj 220 192 spigot;
#N canvas 515 114 883 638 checkrange 0;
#X obj 193 -11 inlet;
#X obj 182 369 outlet;
#X obj 193 17 t f b f;
#X floatatom 428 90 5 0 0 0 - - - 0;
#X obj 199 143 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#X obj 212 172 sel 0;
#X obj 245 210 f;
#X msg 245 234 row \$1 out of range;
#X obj 428 66 v \$0-mtx-rows;
#N canvas 0 23 450 300 expr 0;
#X obj 104 35 inlet;
#X obj 234 35 inlet;
#X obj 161 85 > 0;
#X obj 104 61 t f f;
#X obj 104 113 &&;
#X obj 104 139 outlet;
#X obj 104 87 <=;
#X text 198 70 expr if(($f1<=$f2)&&($f1>0) \, 1 \, 0);
#X connect 0 0 3 0;
#X connect 1 0 6 1;
#X connect 2 0 4 1;
#X connect 3 0 6 0;
#X connect 3 1 2 0;
#X connect 4 0 5 0;
#X connect 6 0 4 0;
#X restore 199 117 pd expr;
#X obj 245 262 print \$0-mtxgui;
#X connect 0 0 2 0;
#X connect 2 0 9 0;
#X connect 2 1 8 0;
#X connect 2 2 6 1;
#X connect 3 0 9 1;
#X connect 4 0 5 0;
#X connect 4 0 1 0;
#X connect 5 0 6 0;
#X connect 6 0 7 0;
#X connect 7 0 10 0;
#X connect 8 0 3 0;
#X connect 9 0 4 0;
#X restore 262 151 pd checkrange;
#X obj 223 108 t f f;
#X text 129 334 togglenumber;
#N canvas 0 23 450 300 checkargs 0;
#X obj 43 9 inlet;
#X obj 74 61 list length;
#X obj 42 32 t l l;
#X obj 42 155 spigot;
#X msg 88 117 1;
#X msg 120 118 0;
#X obj 74 83 sel 4;
#X obj 42 226 outlet;
#X msg 119 143 rowcolorons message expects 4 args (row \, r \, g \, b);
#X obj 120 165 print \$0-mtxgui;
#X connect 0 0 2 0;
#X connect 1 0 6 0;
#X connect 2 0 3 0;
#X connect 2 1 1 0;
#X connect 3 0 7 0;
#X connect 4 0 3 1;
#X connect 5 0 3 1;
#X connect 6 0 4 0;
#X connect 6 1 5 0;
#X connect 6 1 8 0;
#X connect 8 0 9 0;
#X restore 462 36 pd checkargs;
#X obj 462 63 unpack 0 0 0 0;
#X obj 220 387 s \$0-mtxgui_cellcolorons;
#X obj 220 361 pack 0 0 0 0;
#X floatatom 270 259 5 0 0 0 - - - 0;
#X obj 261 282 *;
#X obj 220 283 f;
#X floatatom 261 305 5 0 0 0 - - - 0;
#X obj 243 259 - 1;
#X obj 220 305 until;
#X obj 220 331 f;
#X obj 247 331 + 1;
#X obj 270 237 v \$0-mtx-cols;
#X obj 220 214 t b f b;
#X obj 852 8 inlet;
#X obj 610 192 spigot;
#N canvas 506 81 883 638 checkrange 0;
#X obj 193 -11 inlet;
#X obj 182 369 outlet;
#X obj 193 17 t f b f;
#X floatatom 428 90 5 0 0 0 - - - 0;
#X obj 199 143 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#X obj 212 172 sel 0;
#X obj 245 210 f;
#X msg 245 234 row \$1 out of range;
#X obj 428 66 v \$0-mtx-rows;
#N canvas 0 23 450 300 expr 0;
#X obj 104 35 inlet;
#X obj 234 35 inlet;
#X obj 161 85 > 0;
#X obj 104 61 t f f;
#X obj 104 113 &&;
#X obj 104 139 outlet;
#X obj 104 87 <=;
#X text 198 70 expr if(($f1<=$f2)&&($f1>0) \, 1 \, 0);
#X connect 0 0 3 0;
#X connect 1 0 6 1;
#X connect 2 0 4 1;
#X connect 3 0 6 0;
#X connect 3 1 2 0;
#X connect 4 0 5 0;
#X connect 6 0 4 0;
#X restore 199 122 pd expr;
#X obj 245 262 print \$0-mtxgui;
#X connect 0 0 2 0;
#X connect 2 0 9 0;
#X connect 2 1 8 0;
#X connect 2 2 6 1;
#X connect 3 0 9 1;
#X connect 4 0 5 0;
#X connect 4 0 1 0;
#X connect 5 0 6 0;
#X connect 6 0 7 0;
#X connect 7 0 10 0;
#X connect 8 0 3 0;
#X connect 9 0 4 0;
#X restore 652 151 pd checkrange;
#X obj 613 108 t f f;
#X text 519 334 togglenumber;
#N canvas 0 23 450 300 checkargs 0;
#X obj 43 9 inlet;
#X obj 74 61 list length;
#X obj 42 32 t l l;
#X obj 42 155 spigot;
#X msg 88 117 1;
#X msg 120 118 0;
#X obj 74 83 sel 4;
#X obj 42 226 outlet;
#X msg 119 143 rowcoloroffs message expects 4 args (row \, r \, g \, b);
#X obj 120 165 print \$0-mtxgui;
#X connect 0 0 2 0;
#X connect 1 0 6 0;
#X connect 2 0 3 0;
#X connect 2 1 1 0;
#X connect 3 0 7 0;
#X connect 4 0 3 1;
#X connect 5 0 3 1;
#X connect 6 0 4 0;
#X connect 6 1 5 0;
#X connect 6 1 8 0;
#X connect 8 0 9 0;
#X restore 852 36 pd checkargs;
#X obj 852 63 unpack 0 0 0 0;
#X obj 610 361 pack 0 0 0 0;
#X floatatom 660 259 5 0 0 0 - - - 0;
#X obj 651 282 *;
#X obj 610 283 f;
#X floatatom 651 305 5 0 0 0 - - - 0;
#X obj 633 259 - 1;
#X obj 610 305 until;
#X obj 610 331 f;
#X obj 637 331 + 1;
#X obj 660 237 v \$0-mtx-cols;
#X obj 610 214 t b f b;
#X obj 610 387 s \$0-mtxgui_cellcoloroffs;
#X connect 0 0 5 0;
#X connect 1 0 18 0;
#X connect 2 0 1 1;
#X connect 3 0 1 0;
#X connect 3 1 2 0;
#X connect 5 0 6 0;
#X connect 6 0 3 0;
#X connect 6 1 8 1;
#X connect 6 2 8 2;
#X connect 6 3 8 3;
#X connect 8 0 7 0;
#X connect 9 0 11 1;
#X connect 9 0 10 1;
#X connect 10 0 12 0;
#X connect 11 0 14 0;
#X connect 12 0 15 1;
#X connect 13 0 10 0;
#X connect 14 0 15 0;
#X connect 15 0 16 0;
#X connect 15 0 8 0;
#X connect 16 0 15 1;
#X connect 17 0 9 0;
#X connect 18 0 11 0;
#X connect 18 1 13 0;
#X connect 18 2 17 0;
#X connect 19 0 24 0;
#X connect 20 0 36 0;
#X connect 21 0 20 1;
#X connect 22 0 20 0;
#X connect 22 1 21 0;
#X connect 24 0 25 0;
#X connect 25 0 22 0;
#X connect 25 1 26 1;
#X connect 25 2 26 2;
#X connect 25 3 26 3;
#X connect 26 0 37 0;
#X connect 27 0 29 1;
#X connect 27 0 28 1;
#X connect 28 0 30 0;
#X connect 29 0 32 0;
#X connect 30 0 33 1;
#X connect 31 0 28 0;
#X connect 32 0 33 0;
#X connect 33 0 34 0;
#X connect 33 0 26 0;
#X connect 34 0 33 1;
#X connect 35 0 27 0;
#X connect 36 0 29 0;
#X connect 36 1 31 0;
#X connect 36 2 35 0;
#X restore 434 430 pd rowcolors;
#X obj 15 453 r \$0-mtxgui_inlet;
#X obj 143 453 route matrixdumpcolrow matrixdumpcell;
#X obj 434 453 s \$0matrixdumpcolrow;
#X obj 582 453 s \$0matrixdumpcell;
#X obj 15 476 r \$0-mtxgui_inlet;
#X obj 143 476 route colordefault colorreset;
#X obj 434 477 s \$0-colordefaultreset;
#X obj 752 223 r \$0-colordefaultreset;
#X obj 15 499 r \$0-mtxgui_inlet;
#X obj 143 499 route colormode;
#X connect 2 0 3 0;
#X connect 3 0 4 0;
#X connect 5 0 6 0;
#X connect 6 0 0 0;
#X connect 7 0 8 0;
#X connect 8 0 9 0;
#X connect 10 0 11 0;
#X connect 11 0 12 0;
#X connect 11 1 12 1;
#X connect 11 2 12 2;
#X connect 13 0 14 0;
#X connect 14 0 15 0;
#X connect 16 0 17 0;
#X connect 17 0 18 0;
#X connect 19 0 21 0;
#X connect 21 0 20 0;
#X connect 22 0 23 0;
#X connect 23 0 24 0;
#X connect 25 0 27 0;
#X connect 27 0 26 0;
#X connect 28 0 29 0;
#X connect 29 0 35 0;
#X connect 31 0 35 1;
#X connect 33 0 32 0;
#X connect 34 0 36 0;
#X connect 35 0 30 0;
#X connect 36 0 35 0;
#X connect 36 0 39 0;
#X connect 36 1 31 0;
#X connect 36 2 43 0;
#X connect 36 3 33 0;
#X connect 37 0 35 0;
#X connect 38 0 41 0;
#X connect 39 0 42 0;
#X connect 40 0 39 0;
#X connect 41 0 39 0;
#X connect 43 0 39 1;
#X connect 44 0 45 0;
#X connect 45 0 46 0;
#X connect 47 0 48 0;
#X connect 48 0 49 0;
#X connect 48 1 49 1;
#X connect 50 0 51 0;
#X connect 51 0 52 0;
#X connect 51 1 52 1;
#X connect 53 0 54 0;
#X connect 54 0 55 0;
#X connect 54 1 55 1;
#X connect 56 0 57 0;
#X connect 57 0 58 0;
#X connect 57 1 59 0;
#X connect 60 0 61 0;
#X connect 61 0 62 0;
#X connect 61 1 62 0;
#X connect 63 0 36 0;
#X connect 64 0 65 0;
#X connect 65 0 32 0;
#X restore 1935 1704 pd message_processing;
#X obj 1963 1682 s \$0-mtxgui_inlet;
#N canvas 0 23 421 370 outroutes 0;
#X obj 15 280 outlet;
#X obj 15 17 r \$0-mtxguiout1;
#X obj 65 63 r \$0-mtxguiout2;
#X obj 126 151 r \$0-mtxguiout4;
#X obj 218 195 r \$0-mtxguiout5;
#X obj 15 254 list trim;
#X obj 15 40 list prepend cell;
#X obj 126 173 list prepend changed;
#X obj 218 217 list prepend mtx;
#X obj 96 106 r \$0-mtxguiout3;
#X obj 65 84 list prepend row;
#X obj 96 128 list prepend col;
#X obj 223 251 r \$0-mtxguiout6;
#X connect 1 0 6 0;
#X connect 2 0 10 0;
#X connect 3 0 7 0;
#X connect 4 0 8 0;
#X connect 5 0 0 0;
#X connect 6 0 5 0;
#X connect 7 0 5 0;
#X connect 8 0 5 0;
#X connect 9 0 11 0;
#X connect 10 0 5 0;
#X connect 11 0 5 0;
#X connect 12 0 0 0;
#X restore 1998 1813 pd outroutes;
#X connect 0 0 8 0;
#X connect 9 0 5 0;
#X coords 0 -1 1 1 50 54 2 0 0;