#N canvas 7 258 683 400 10;
#X declare -path jmmmp;
#N canvas 170 98 401 177 cell 0;
#X obj 9 73 filledpolygon -x color color-g grid-t 0 0 0 height width
height width 0 0 0;
#X obj 9 53 drawnumber value 3 text-y color-t;
#X obj 9 13 struct \$0-cell float value float color float width float
color-g float color-t float grid-t float height float text-y;
#X restore 275 21 pd cell;
#N canvas 269 60 397 126 cellblock 0;
#X obj 9 13 struct \$0-cellblock float x float y array cellblock \$0-cell
float width;
#X obj 9 53 plot cellblock 0 1 0 0 width;
#X restore 275 41 pd cellblock;
#N canvas 336 53 373 397 \$0-chart 0;
#X coords 0 0 240 28 240 28 2 100 100;
#X restore 10 140 pd \$0-chart;
#X obj 375 21 inlet;
#N canvas 0 50 483 214 messages 0;
#X obj 64 18 inlet;
#N canvas 171 93 432 570 draw-chart 0;
#X obj 185 213 pointer;
#X msg 185 193 traverse pd-\$1-chart \, bang;
#X obj 185 173 \$0;
#X obj 41 313 setsize \$0-cellblock cellblock;
#X msg 93 123 clear;
#X obj 93 143 s pd-\$0-chart;
#X obj 14 293 t f f;
#X obj 41 423 element \$0-cellblock cellblock;
#X obj 14 253 t b p p;
#X obj 14 343 t f b;
#X obj 14 363 until;
#X obj 14 383 f+;
#X obj 14 403 t b f;
#X obj 14 493 897;
#X obj 14 123 t f b;
#X obj 14 143 until;
#X obj 14 163 f+;
#X obj 14 33 swap;
#X text 63 11 input - columns + lines;
#X obj 14 13 inlet;
#X obj 29 453 inlet;
#X msg 14 213 0 \$1;
#X obj 128 193 inlet;
#X obj 46 53 v \$0-columns;
#X obj 14 273 f;
#X obj 24 73 v \$0-lines;
#X obj 14 233 append \$0-cellblock x y width;
#X obj 93 103 s \$0-reset;
#X obj 14 103 t f b b;
#N canvas 0 50 282 203 color 0;
#X obj 17 19 inlet;
#X obj 17 119 outlet;
#X obj 44 89 outlet;
#X obj 91 119 outlet;
#X obj 17 39 unpack f f f f;
#X obj 138 149 outlet;
#X obj 148 129 v \$0-grid-t;
#X obj 54 69 v \$0-color-g;
#X obj 101 99 v \$0-color-t;
#X connect 0 0 4 0;
#X connect 4 0 1 0;
#X connect 4 1 2 0;
#X connect 4 1 7 0;
#X connect 4 2 3 0;
#X connect 4 2 8 0;
#X connect 4 3 5 0;
#X connect 4 3 6 0;
#X restore 29 473 pd color;
#X obj 24 513 v \$0-color-b;
#X obj 108 213 v \$0-width;
#X obj 14 183 *;
#X obj 53 163 v \$0-height;
#X obj 320 493 expr ($f1-10)/2;
#X obj 14 533 set \$0-cell color color-g color-t grid-t width height
text-y;
#X connect 0 0 26 3;
#X connect 1 0 0 0;
#X connect 2 0 1 0;
#X connect 4 0 5 0;
#X connect 6 0 9 0;
#X connect 6 1 3 0;
#X connect 7 0 35 7;
#X connect 8 0 24 0;
#X connect 8 1 7 1;
#X connect 8 2 3 1;
#X connect 9 0 10 0;
#X connect 9 1 11 1;
#X connect 10 0 11 0;
#X connect 11 0 12 0;
#X connect 12 0 13 0;
#X connect 12 1 7 0;
#X connect 13 0 30 0;
#X connect 13 0 35 0;
#X connect 14 0 15 0;
#X connect 14 1 16 1;
#X connect 15 0 16 0;
#X connect 16 0 32 0;
#X connect 17 0 25 0;
#X connect 17 0 28 0;
#X connect 17 1 24 1;
#X connect 17 1 23 0;
#X connect 19 0 17 0;
#X connect 20 0 29 0;
#X connect 21 0 26 0;
#X connect 22 0 26 2;
#X connect 22 0 31 0;
#X connect 22 0 35 4;
#X connect 24 0 6 0;
#X connect 26 0 8 0;
#X connect 28 0 14 0;
#X connect 28 1 2 0;
#X connect 28 2 4 0;
#X connect 28 2 27 0;
#X connect 28 2 33 0;
#X connect 29 0 13 1;
#X connect 29 1 35 1;
#X connect 29 2 35 2;
#X connect 29 3 35 3;
#X connect 32 0 21 0;
#X connect 33 0 32 1;
#X connect 33 0 35 5;
#X connect 33 0 34 0;
#X connect 34 0 35 6;
#X restore 41 128 pd draw-chart;
#N canvas 607 126 400 360 set-global 0;
#X obj 168 167 pointer;
#X obj 168 127 \$0;
#X obj 128 103 until;
#X obj 128 13 inlet;
#X msg 128 147 next;
#X obj 138 227 t b p;
#X obj 138 247 f;
#X msg 168 147 traverse pd-\$1-chart;
#X obj 187 287 element \$0-cellblock cellblock;
#X obj 187 227 t f b;
#X obj 187 247 until;
#X obj 187 267 f+;
#X obj 187 307 t b p;
#X obj 145 307 f;
#X obj 187 207 v \$0-columns;
#X obj 168 187 t p b p;
#X obj 138 267 set;
#X obj 145 327 set;
#N canvas 0 50 329 219 width 0;
#X obj 50 75 list append set \$0-cellblock width;
#X obj 50 95 list trim;
#X obj 120 155 list trim;
#X obj 120 135 list append set \$0-cell width;
#X obj 23 155 outlet;
#X obj 23 15 inlet;
#X obj 50 115 s \$0-global-clb;
#X obj 120 175 s \$0-global-cl;
#X obj 23 35 t f b;
#X connect 0 0 1 0;
#X connect 1 0 6 0;
#X connect 2 0 7 0;
#X connect 3 0 2 0;
#X connect 5 0 8 0;
#X connect 8 0 4 0;
#X connect 8 1 0 0;
#X connect 8 1 3 0;
#X restore 128 43 pd width;
#X obj 38 227 r \$0-global-clb;
#X obj 48 307 r \$0-global-cl;
#X obj 128 83 t b f b f;
#X obj 179 103 v \$0-width;
#X obj 28 123 s \$0-gop-redraw;
#X connect 0 0 15 0;
#X connect 0 1 2 1;
#X connect 1 0 7 0;
#X connect 2 0 4 0;
#X connect 3 0 18 0;
#X connect 4 0 0 0;
#X connect 5 0 6 0;
#X connect 5 1 16 1;
#X connect 6 0 16 0;
#X connect 7 0 0 0;
#X connect 8 0 12 0;
#X connect 9 0 10 0;
#X connect 9 1 11 1;
#X connect 10 0 11 0;
#X connect 11 0 8 0;
#X connect 12 0 13 0;
#X connect 12 1 17 1;
#X connect 13 0 17 0;
#X connect 14 0 9 0;
#X connect 15 0 5 0;
#X connect 15 1 14 0;
#X connect 15 2 8 1;
#X connect 18 0 21 0;
#X connect 19 0 16 0;
#X connect 20 0 17 0;
#X connect 21 0 2 0;
#X connect 21 0 23 0;
#X connect 21 1 6 1;
#X connect 21 1 13 1;
#X connect 21 2 1 0;
#X connect 21 3 22 0;
#X restore 197 108 pd set-global;
#N canvas 218 148 428 388 set-cells 0;
#X obj 188 197 pointer;
#X obj 188 157 \$0;
#X obj 148 133 until;
#X msg 148 177 next;
#X msg 188 177 traverse pd-\$1-chart;
#X obj 207 317 element \$0-cellblock cellblock;
#X obj 207 257 t f b;
#X obj 207 277 until;
#X obj 207 297 f+;
#X obj 207 337 t b p;
#X obj 165 337 f;
#X obj 207 237 v \$0-columns;
#X obj 188 217 t p b p;
#X obj 148 113 t b f b;
#X obj 165 357 set;
#X obj 48 13 inlet;
#N canvas 0 50 303 198 color-b 0;
#X obj 33 45 t f b;
#X obj 60 85 list trim;
#X obj 33 155 outlet;
#X obj 33 25 inlet;
#X obj 60 65 list append set \$0-cell color;
#X obj 60 105 s \$0-set-cell;
#X obj 43 135 v \$0-color-b;
#X connect 0 0 2 0;
#X connect 0 0 6 0;
#X connect 0 1 4 0;
#X connect 1 0 5 0;
#X connect 3 0 0 0;
#X connect 4 0 1 0;
#X restore 48 43 pd color-b;
#X obj 68 337 r \$0-set-cell;
#X obj 118 13 inlet;
#N canvas 0 50 303 198 color-g 0;
#X obj 33 45 t f b;
#X obj 60 85 list trim;
#X obj 33 135 outlet;
#X obj 33 25 inlet;
#X obj 60 105 s \$0-set-cell;
#X obj 60 65 list append set \$0-cell color-g;
#X connect 0 0 2 0;
#X connect 0 1 5 0;
#X connect 1 0 4 0;
#X connect 3 0 0 0;
#X connect 5 0 1 0;
#X restore 118 43 pd color-g;
#X obj 188 13 inlet;
#N canvas 0 50 303 198 color-t 0;
#X obj 33 45 t f b;
#X obj 60 85 list trim;
#X obj 33 135 outlet;
#X obj 33 25 inlet;
#X obj 60 105 s \$0-set-cell;
#X obj 60 65 list append set \$0-cell color-t;
#X connect 0 0 2 0;
#X connect 0 1 5 0;
#X connect 1 0 4 0;
#X connect 3 0 0 0;
#X connect 5 0 1 0;
#X restore 188 43 pd color-t;
#X obj 258 13 inlet;
#N canvas 0 50 303 198 grid-t 0;
#X obj 33 45 t f b;
#X obj 60 85 list trim;
#X obj 33 135 outlet;
#X obj 33 25 inlet;
#X obj 60 105 s \$0-set-cell;
#X obj 60 65 list append set \$0-cell grid-t;
#X connect 0 0 2 0;
#X connect 0 1 5 0;
#X connect 1 0 4 0;
#X connect 3 0 0 0;
#X connect 5 0 1 0;
#X restore 258 43 pd grid-t;
#X obj 328 13 inlet;
#N canvas 0 50 303 198 height 0;
#X obj 33 45 t f b;
#X obj 60 85 list trim;
#X obj 33 135 outlet;
#X obj 33 25 inlet;
#X obj 60 105 s \$0-set-cell;
#X obj 60 65 list append set \$0-cell height;
#X connect 0 0 2 0;
#X connect 0 1 5 0;
#X connect 1 0 4 0;
#X connect 3 0 0 0;
#X connect 5 0 1 0;
#X restore 328 43 pd height;
#N canvas 0 50 303 198 text-y 0;
#X obj 33 45 t f b;
#X obj 60 85 list trim;
#X obj 33 155 outlet;
#X obj 33 25 inlet;
#X obj 60 105 s \$0-set-cell;
#X obj 60 65 list append set \$0-cell text-y;
#X obj 33 135 expr ($f1-10)/2;
#X connect 0 0 6 0;
#X connect 0 1 5 0;
#X connect 1 0 4 0;
#X connect 3 0 0 0;
#X connect 5 0 1 0;
#X connect 6 0 2 0;
#X restore 328 83 pd text-y;
#X obj 328 63 t f f;
#X connect 0 0 12 0;
#X connect 0 1 2 1;
#X connect 1 0 4 0;
#X connect 2 0 3 0;
#X connect 3 0 0 0;
#X connect 4 0 0 0;
#X connect 5 0 9 0;
#X connect 6 0 7 0;
#X connect 6 1 8 1;
#X connect 7 0 8 0;
#X connect 8 0 5 0;
#X connect 9 0 10 0;
#X connect 9 1 14 1;
#X connect 10 0 14 0;
#X connect 11 0 6 0;
#X connect 12 1 11 0;
#X connect 12 2 5 1;
#X connect 13 0 2 0;
#X connect 13 1 10 1;
#X connect 13 2 1 0;
#X connect 15 0 16 0;
#X connect 16 0 13 0;
#X connect 17 0 14 0;
#X connect 18 0 19 0;
#X connect 19 0 13 0;
#X connect 20 0 21 0;
#X connect 21 0 13 0;
#X connect 22 0 23 0;
#X connect 23 0 13 0;
#X connect 24 0 25 0;
#X connect 25 0 27 0;
#X connect 26 0 13 0;
#X connect 27 0 26 0;
#X connect 27 1 13 0;
#X restore 114 108 pd set-cells;
#N canvas 62 92 662 457 structure 0;
#X obj 137 133 pointer;
#X obj 137 93 \$0;
#X obj 97 93 until;
#X obj 28 13 inlet;
#X msg 97 113 next;
#X msg 137 113 traverse pd-\$1-chart;
#X obj 97 73 t b f b;
#X obj 137 153 t b p;
#X obj 58 53 moses 1;
#X obj 128 223 setsize \$0-cellblock cellblock;
#X obj 101 203 t f f;
#X obj 128 333 element \$0-cellblock cellblock;
#X obj 101 253 t f b;
#X obj 101 273 until;
#X obj 101 293 f+;
#X obj 101 313 t b f;
#X obj 101 183 f;
#X obj 101 383 v \$0-color-b;
#X obj 264 403 v \$0-grid-t;
#X obj 155 403 v \$0-color-g;
#X obj 210 383 v \$0-color-t;
#X obj 304 383 v \$0-width;
#X obj 137 53 v \$0-columns;
#X obj 515 183 pointer;
#X obj 515 143 \$0;
#X obj 464 143 until;
#X obj 378 13 inlet;
#X msg 464 163 next;
#X msg 515 163 traverse pd-\$1-chart;
#X obj 405 53 moses 1;
#X obj 444 93 v \$0-lines;
#X obj 448 223 v \$0-lines;
#X obj 448 203 t b f;
#X obj 448 263 moses 0;
#X obj 448 243 -;
#X obj 487 283 until;
#X msg 487 303 delete;
#X obj 477 123 + 1;
#X obj 444 73 t f f f b;
#X obj 364 403 v \$0-height;
#X obj 101 423 set \$0-cell color color-g color-t grid-t width height
;
#X obj 101 363 t b b b b b b, f 35;
#X obj 28 33 t b f;
#X obj 18 143 s \$0-gop-redraw;
#X obj 378 33 t b f;
#X obj 358 123 s \$0-gop-redraw;
#X connect 0 0 7 0;
#X connect 0 1 2 1;
#X connect 1 0 5 0;
#X connect 2 0 4 0;
#X connect 3 0 42 0;
#X connect 4 0 0 0;
#X connect 5 0 0 0;
#X connect 6 0 2 0;
#X connect 6 1 16 1;
#X connect 6 1 22 0;
#X connect 6 2 1 0;
#X connect 7 0 16 0;
#X connect 7 1 9 1;
#X connect 7 1 11 1;
#X connect 8 1 6 0;
#X connect 10 0 12 0;
#X connect 10 1 9 0;
#X connect 11 0 40 6;
#X connect 12 0 13 0;
#X connect 12 1 14 1;
#X connect 13 0 14 0;
#X connect 14 0 15 0;
#X connect 15 0 41 0;
#X connect 15 1 11 0;
#X connect 16 0 10 0;
#X connect 17 0 40 0;
#X connect 18 0 40 3;
#X connect 19 0 40 1;
#X connect 20 0 40 2;
#X connect 21 0 40 4;
#X connect 23 1 25 1;
#X connect 24 0 28 0;
#X connect 25 0 27 0;
#X connect 26 0 44 0;
#X connect 27 0 23 0;
#X connect 28 0 23 0;
#X connect 29 1 38 0;
#X connect 31 0 34 0;
#X connect 32 0 31 0;
#X connect 32 1 34 1;
#X connect 33 1 35 0;
#X connect 34 0 33 0;
#X connect 35 0 36 0;
#X connect 36 0 23 0;
#X connect 37 0 25 0;
#X connect 38 0 30 0;
#X connect 38 1 32 0;
#X connect 38 2 37 0;
#X connect 38 3 24 0;
#X connect 39 0 40 5;
#X connect 41 0 17 0;
#X connect 41 1 19 0;
#X connect 41 2 20 0;
#X connect 41 3 18 0;
#X connect 41 4 21 0;
#X connect 41 5 39 0;
#X connect 42 0 43 0;
#X connect 42 1 8 0;
#X connect 44 0 45 0;
#X connect 44 1 29 0;
#X restore 287 108 pd structure;
#N canvas 408 154 287 261 height 0;
#X obj 48 113 pointer;
#X obj 48 73 \$0;
#X obj 8 73 until;
#X obj 48 13 inlet;
#X msg 8 93 next;
#X msg 48 93 traverse pd-\$1-chart;
#X obj 88 213 set \$0-cellblock y;
#X obj 48 133 t b p;
#X obj 88 173 f+;
#X obj 88 193 *;
#X obj 48 33 t b b b f;
#X connect 0 0 7 0;
#X connect 0 1 2 1;
#X connect 1 0 5 0;
#X connect 2 0 4 0;
#X connect 3 0 10 0;
#X connect 4 0 0 0;
#X connect 5 0 0 0;
#X connect 7 0 8 0;
#X connect 7 1 6 1;
#X connect 8 0 9 0;
#X connect 9 0 6 0;
#X connect 10 0 2 0;
#X connect 10 1 1 0;
#X connect 10 2 8 1;
#X connect 10 3 9 1;
#X restore 347 128 pd height;
#N canvas 275 70 275 254 GOP 0;
#X obj 28 161 s \$0-cellblock-cnv;
#X obj 17 211 s pd-\$0-chart;
#X obj 18 41 t b b b b;
#X obj 35 61 v \$0-columns;
#X obj 18 81 v \$0-width;
#X obj 18 101 *;
#X obj 18 121 pack;
#X obj 118 101 *;
#X obj 135 61 v \$0-lines;
#X obj 118 81 v \$0-height;
#X msg 18 191 coords 0 0 \$1 \$2 \$1 \$2 2 100 100;
#X obj 18 21 r \$0-gop-redraw;
#X msg 28 141 coords 0 0 \$1 \$2 \$1 \$2 2 10 140;
#X connect 2 0 4 0;
#X connect 2 1 3 0;
#X connect 2 2 9 0;
#X connect 2 3 8 0;
#X connect 3 0 5 1;
#X connect 4 0 5 0;
#X connect 5 0 6 0;
#X connect 6 0 12 0;
#X connect 6 0 10 0;
#X connect 7 0 6 1;
#X connect 8 0 7 1;
#X connect 9 0 7 0;
#X connect 10 0 1 0;
#X connect 11 0 2 0;
#X connect 12 0 0 0;
#X restore 14 178 pd GOP;
#X obj 14 108 t b a;
#X obj 14 148 s \$0-gop-redraw;
#N canvas 444 43 798 641 select+set+get 0;
#X obj 178 197 pointer;
#X obj 178 157 \$0;
#X obj 138 157 until;
#X obj 78 27 inlet;
#X msg 138 177 next;
#X msg 178 177 traverse pd-\$1-chart;
#X obj 105 227 element \$0-cellblock cellblock;
#X obj 105 247 t b p;
#X obj 138 137 + 1;
#X obj 33 287 set \$0-cell color;
#X obj 43 267 850;
#X obj 105 97 unpack;
#X obj 138 117 t f b b;
#X obj 14 207 spigot;
#X obj 78 67 t b a;
#X obj 47 167 1;
#X obj 14 227 v \$0-color-b;
#X obj 17 167 0;
#X obj 17 147 r \$0-reset;
#X obj 593 207 set \$0-cell value;
#X obj 423 27 inlet;
#X obj 593 67 route current;
#X obj 668 87 list split 2;
#X obj 603 167 f;
#X obj 603 147 spigot;
#X obj 646 127 1;
#X obj 616 127 0;
#X obj 702 127 t b f;
#X obj 603 187 t f b;
#X obj 13 357 inlet;
#X obj 13 587 get \$0-cell value;
#X obj 13 567 pointer;
#X obj 13 607 s \$0-outlet;
#X text 79 7 select;
#X text 419 7 set;
#X text 9 337 get;
#X obj 353 77 list split 1;
#X obj 353 207 jp.list-drip;
#X obj 353 187 list;
#X obj 353 227 t f b;
#X obj 363 147 pack;
#X obj 363 127 f+;
#X obj 353 97 t b b b f;
#X obj 423 47 route row column;
#X obj 463 77 list split 1;
#X obj 463 207 jp.list-drip;
#X obj 463 187 list;
#X obj 463 227 t f b;
#X obj 503 147 pack;
#X obj 473 127 f+;
#X obj 463 97 t b b b f;
#X msg 503 167 \$2 \$1;
#X obj 142 267 s \$0-p-cell;
#X obj 52 547 r \$0-p-cell;
#X obj 692 187 r \$0-p-cell;
#X obj 178 537 t b a;
#X obj 205 557 s \$0-getcell;
#X obj 88 47 r \$0-getcell;
#X obj 107 427 v \$0-lines;
#X obj 107 447 until;
#X obj 107 467 f+;
#X obj 107 407 t b b f;
#X obj 107 487 pack;
#X msg 107 507 \$2 \$1;
#X obj 27 467 until;
#X obj 27 487 f+;
#X obj 27 427 t b b f;
#X obj 27 507 pack;
#X obj 27 447 v \$0-columns;
#X obj 503 187 s \$0-getcell;
#X obj 363 167 s \$0-getcell;
#X obj 668 107 s \$0-getcell;
#X obj 13 377 route current row column all;
#X obj 196 407 route row column;
#X obj 196 447 v \$0-lines;
#X obj 196 467 until;
#X obj 196 487 f+;
#X obj 196 427 t b b;
#X obj 266 467 until;
#X obj 266 487 f+;
#X obj 266 427 t b b;
#X obj 266 447 v \$0-columns;
#X connect 0 0 6 1;
#X connect 0 1 2 1;
#X connect 1 0 5 0;
#X connect 2 0 4 0;
#X connect 3 0 14 0;
#X connect 4 0 0 0;
#X connect 5 0 0 0;
#X connect 6 0 7 0;
#X connect 7 0 10 0;
#X connect 7 0 24 0;
#X connect 7 1 9 1;
#X connect 7 1 52 0;
#X connect 8 0 2 0;
#X connect 10 0 9 0;
#X connect 11 0 6 0;
#X connect 11 1 12 0;
#X connect 12 0 8 0;
#X connect 12 1 1 0;
#X connect 12 2 13 0;
#X connect 13 0 16 0;
#X connect 14 0 15 0;
#X connect 14 1 11 0;
#X connect 15 0 13 1;
#X connect 16 0 9 0;
#X connect 17 0 13 1;
#X connect 18 0 17 0;
#X connect 20 0 43 0;
#X connect 21 0 19 0;
#X connect 21 1 22 0;
#X connect 22 0 71 0;
#X connect 22 1 27 0;
#X connect 23 0 28 0;
#X connect 24 0 23 0;
#X connect 25 0 24 1;
#X connect 26 0 24 1;
#X connect 27 0 25 0;
#X connect 27 1 23 1;
#X connect 28 0 19 0;
#X connect 28 1 26 0;
#X connect 29 0 72 0;
#X connect 30 0 32 0;
#X connect 31 0 30 0;
#X connect 36 0 42 0;
#X connect 36 1 38 1;
#X connect 37 0 39 0;
#X connect 38 0 37 0;
#X connect 39 0 19 0;
#X connect 39 1 41 0;
#X connect 40 0 70 0;
#X connect 41 0 40 0;
#X connect 42 0 38 0;
#X connect 42 1 41 1;
#X connect 42 2 41 1;
#X connect 42 3 40 1;
#X connect 43 0 36 0;
#X connect 43 1 44 0;
#X connect 43 2 21 0;
#X connect 44 0 50 0;
#X connect 44 1 46 1;
#X connect 45 0 47 0;
#X connect 46 0 45 0;
#X connect 47 0 19 0;
#X connect 47 1 49 0;
#X connect 48 0 51 0;
#X connect 49 0 48 0;
#X connect 50 0 46 0;
#X connect 50 1 49 1;
#X connect 50 2 49 1;
#X connect 50 3 48 1;
#X connect 51 0 69 0;
#X connect 53 0 31 1;
#X connect 54 0 19 1;
#X connect 55 0 31 0;
#X connect 55 1 56 0;
#X connect 57 0 14 0;
#X connect 58 0 59 0;
#X connect 59 0 60 0;
#X connect 60 0 62 0;
#X connect 61 0 58 0;
#X connect 61 1 60 1;
#X connect 61 2 62 1;
#X connect 62 0 63 0;
#X connect 63 0 55 0;
#X connect 64 0 65 0;
#X connect 65 0 67 0;
#X connect 66 0 68 0;
#X connect 66 1 65 1;
#X connect 66 2 67 1;
#X connect 67 0 55 0;
#X connect 68 0 64 0;
#X connect 72 0 31 0;
#X connect 72 1 66 0;
#X connect 72 2 61 0;
#X connect 72 3 73 0;
#X connect 72 4 55 0;
#X connect 73 0 77 0;
#X connect 73 1 80 0;
#X connect 74 0 75 0;
#X connect 75 0 76 0;
#X connect 76 0 66 0;
#X connect 77 0 74 0;
#X connect 77 1 76 1;
#X connect 78 0 79 0;
#X connect 79 0 61 0;
#X connect 80 0 81 0;
#X connect 80 1 79 1;
#X connect 81 0 78 0;
#X restore 187 148 pd select+set+get;
#N canvas 408 154 287 184 query 0;
#X obj 28 13 inlet;
#X obj 28 33 t b b;
#X obj 28 73 v \$0-columns;
#X obj 55 53 v \$0-lines;
#X obj 28 93 pack;
#X msg 28 113 grid \$1 \$2;
#X obj 28 133 s \$0-outlet;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 1 1 3 0;
#X connect 2 0 4 0;
#X connect 3 0 4 1;
#X connect 4 0 5 0;
#X connect 5 0 6 0;
#X restore 387 108 pd query;
#N canvas 0 50 455 396 read+save 0;
#X obj 23 36 inlet;
#X obj 72 116 text define \$0-file;
#X msg 72 96 read -c \$1;
#X obj 72 76 symbol;
#X obj 23 56 t b b a;
#X obj 23 196 until;
#X obj 23 216 f+;
#X obj 23 256 text get \$0-file;
#X obj 23 276 route bang;
#X text 23 16 read;
#X obj 23 236 t f f;
#X obj 80 316 list prepend set row;
#X obj 80 336 list trim;
#X obj 80 296 list prepend;
#X obj 80 356 s \$0-messages;
#X obj 282 36 inlet;
#X text 282 16 save;
#X obj 282 106 symbol;
#X obj 282 56 t a b b;
#X msg 282 126 write -c \$1;
#X obj 282 156 text define \$0-save;
#X msg 372 126 clear;
#X obj 23 176 t b b;
#N canvas 239 226 294 220 size 0;
#X obj 26 19 inlet;
#X obj 53 119 text size \$0-file;
#X obj 26 139 pack;
#X obj 26 179 s \$0-messages;
#X msg 26 159 cellblock \$1 \$2;
#X obj 26 39 t b b;
#X obj 26 79 text get \$0-file;
#X obj 26 59 1;
#X obj 26 99 list length;
#X connect 0 0 5 0;
#X connect 1 0 2 1;
#X connect 2 0 4 0;
#X connect 4 0 3 0;
#X connect 5 0 7 0;
#X connect 5 1 1 0;
#X connect 6 0 8 0;
#X connect 7 0 6 0;
#X connect 8 0 2 0;
#X restore 42 146 pd size;
#N canvas 0 50 322 559 collect-rows 0;
#X obj 82 525 text set \$0-save;
#X obj 63 405 get \$0-cell value;
#X obj 63 385 pointer;
#X obj 63 215 t b a;
#X obj 63 155 until;
#X obj 63 175 f+;
#X obj 63 195 pack;
#X obj 63 135 v \$0-columns;
#X obj 46 55 v \$0-lines;
#X obj 46 75 until;
#X obj 46 95 f+;
#X obj 46 35 t b b;
#X obj 163 335 pointer;
#X obj 163 295 \$0;
#X obj 123 295 until;
#X msg 123 315 next;
#X msg 163 315 traverse pd-\$1-chart;
#X obj 90 365 element \$0-cellblock cellblock;
#X obj 123 275 + 1;
#X obj 90 235 unpack;
#X obj 123 255 t f b b;
#X obj 63 435 list prepend;
#X obj 63 455 t l;
#X obj 42 475 list;
#X obj 42 495 list trim;
#X obj 15 405 t b b;
#X obj 46 115 t b b b f f;
#X obj 46 15 inlet;
#X connect 1 0 21 0;
#X connect 2 0 1 0;
#X connect 3 0 2 0;
#X connect 3 1 19 0;
#X connect 4 0 5 0;
#X connect 5 0 6 0;
#X connect 6 0 3 0;
#X connect 7 0 4 0;
#X connect 8 0 9 0;
#X connect 9 0 10 0;
#X connect 10 0 26 0;
#X connect 11 0 8 0;
#X connect 11 1 10 1;
#X connect 12 0 17 1;
#X connect 12 1 14 1;
#X connect 13 0 16 0;
#X connect 14 0 15 0;
#X connect 15 0 12 0;
#X connect 16 0 12 0;
#X connect 17 0 2 1;
#X connect 18 0 14 0;
#X connect 19 0 17 0;
#X connect 19 1 20 0;
#X connect 20 0 18 0;
#X connect 20 1 13 0;
#X connect 21 0 22 0;
#X connect 22 0 21 1;
#X connect 22 0 23 1;
#X connect 23 0 24 0;
#X connect 24 0 0 0;
#X connect 25 0 21 1;
#X connect 25 1 23 0;
#X connect 26 0 25 0;
#X connect 26 1 7 0;
#X connect 26 2 5 1;
#X connect 26 3 6 1;
#X connect 26 4 0 1;
#X connect 27 0 11 0;
#X restore 301 76 pd collect-rows;
#X connect 0 0 4 0;
#X connect 2 0 1 0;
#X connect 3 0 2 0;
#X connect 4 0 22 0;
#X connect 4 1 23 0;
#X connect 4 2 3 0;
#X connect 5 0 6 0;
#X connect 6 0 10 0;
#X connect 7 0 8 0;
#X connect 8 0 5 1;
#X connect 8 1 13 0;
#X connect 10 0 7 0;
#X connect 10 1 13 1;
#X connect 11 0 12 0;
#X connect 12 0 14 0;
#X connect 13 0 11 0;
#X connect 15 0 18 0;
#X connect 17 0 19 0;
#X connect 18 0 17 0;
#X connect 18 1 24 0;
#X connect 18 2 21 0;
#X connect 19 0 20 0;
#X connect 21 0 20 0;
#X connect 22 0 5 0;
#X connect 22 1 6 1;
#X restore 372 148 pd read+save;
#X obj 74 38 r \$0-messages;
#X obj 64 58 route cellblock icolor iwidth color-b color-g color-t
width select set grid-t column row height get query load save;
#X connect 0 0 13 0;
#X connect 7 0 8 0;
#X connect 7 1 1 0;
#X connect 12 0 13 0;
#X connect 13 0 7 0;
#X connect 13 1 1 1;
#X connect 13 2 1 2;
#X connect 13 3 3 0;
#X connect 13 4 3 1;
#X connect 13 5 3 2;
#X connect 13 6 2 0;
#X connect 13 7 9 1;
#X connect 13 8 9 2;
#X connect 13 9 3 3;
#X connect 13 10 4 0;
#X connect 13 11 4 1;
#X connect 13 12 5 0;
#X connect 13 12 3 4;
#X connect 13 13 9 0;
#X connect 13 14 10 0;
#X connect 13 15 11 0;
#X connect 13 16 11 1;
#X restore 375 61 pd messages;
#N canvas 470 59 314 392 init 0;
#X obj 15 17 declare -path jmmmp;
#X obj 34 117 pdcontrol;
#X msg 34 97 args;
#X obj 15 57 loadbang;
#X obj 34 137 route bang;
#X obj 15 207 list;
#X obj 15 77 t b b b;
#X obj 15 227 list split 2;
#X msg 15 327 cellblock \$1 \$2;
#X obj 55 357 outlet;
#X msg 49 307 iwidth \$1;
#X obj 101 187 pack f f f f f f f;
#X obj 49 247 list split 1;
#X obj 83 267 list prepend icolor;
#X obj 79 53 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X obj 83 287 list trim;
#X obj 101 97 list 4 4 60 897 0 0 1 14;
#X obj 101 157 unpack f f f f f f f f;
#X obj 230 187 v \$0-height;
#X connect 1 0 4 0;
#X connect 2 0 1 0;
#X connect 3 0 6 0;
#X connect 4 1 17 0;
#X connect 5 0 7 0;
#X connect 6 0 5 0;
#X connect 6 1 2 0;
#X connect 6 2 16 0;
#X connect 7 0 8 0;
#X connect 7 1 12 0;
#X connect 8 0 9 0;
#X connect 10 0 9 0;
#X connect 11 0 5 1;
#X connect 12 0 10 0;
#X connect 12 1 13 0;
#X connect 13 0 15 0;
#X connect 14 0 6 0;
#X connect 15 0 9 0;
#X connect 16 0 17 0;
#X connect 17 0 11 0;
#X connect 17 1 11 1;
#X connect 17 2 11 2;
#X connect 17 3 11 3;
#X connect 17 4 11 4;
#X connect 17 5 11 5;
#X connect 17 6 11 6;
#X connect 17 7 18 0;
#X restore 385 41 pd init;
#X msg 572 20 clear;
#X obj 572 40 s pd-\$0-chart;
#X obj 374 81 namecanvas \$0-cellblock-cnv;
#N canvas 0 50 424 338 zutun 0;
#X text 18 147 bugs \; - quando fecha ficheiro \, mensagem "plot: pd-1149-cell:
no canvas for this template". O plot é fechado demasiado tarde?;
#X text 18 97 features que nao sao possíveis \; - clickar envia dados
de célula (quando data-s melhorar);
#X text 18 17 a fazer \; - nao mostra conteudo até haver algo escrito
na célula \; - set + sel nao observam limite da tabela - escrevem
na última célula. melhorar?;
#X text 18 197 próximas features \; - row x - nao funciona quando
tem que acrescentar linhas \; - cor de célula escolhida \; - adicionar
menu para escolher cores \; - gravar/carregar ficheiro de scalars (quando
carrega \, actualiza pointer e variáveis v) \; - carregar e exportar
matrix de iemmatrix? \; - fazer versao diferente para símbolos?;
#X restore 572 70 pd zutun;
#X obj 275 61 r \$0-outlet;
#X obj 275 81 outlet;
#X text 14 61 Always clear window before saving;
#N canvas 0 50 448 416 license 0;
#X text 8 47 All rights reserved.;
#X text 8 227 The names of its contributors may not be used to endorse
or promote products derived from this software without specific prior
written permission.;
#X text 8 87 Redistribution and use in source and binary forms \, with
or without modification \, are permitted provided that the following
conditions are met:;
#X text 8 127 Redistributions of source code must retain the above
copyright notice \, this list of conditions and the following disclaimer.
;
#X text 8 297 THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND
CONTRIBUTORS "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES \, INCLUDING
\, BUT NOT LIMITED TO \, THE IMPLIED WARRANTIES OF MERCHANTABILITY
AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL
THE COPYRIGHT OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT \, INDIRECT
\, INCIDENTAL \, SPECIAL \, EXEMPLARY \, OR CONSEQUENTIAL DAMAGES (INCLUDING
\, BUT NOT LIMITED TO \, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES
;
#X text 8 167 Redistributions in binary form must reproduce the above
copyright notice \, this list of conditions and the following disclaimer
in the documentation and/or other materials provided with the distribution.
;
#X text 8 27 jmmmpais@gmail.com;
#X text 8 7 Copyright 2019 \, Joo Pais;
#X restore 14 111 pd license;
#X text 11 93 (C) 2020 Joo Pais - jmmmpais@gmail.com;
#X text 14 41 arguments - nr columns / nr rows;
#X text 14 11 [cellblock] - numeric grid;
#X connect 3 0 4 0;
#X connect 5 0 4 0;
#X connect 6 0 7 0;
#X connect 10 0 11 0;
#X coords 0 0 240 28 240 28 2 10 140;