cleaned up code a bit;

(removed dep on zexy's [relay];
still dependant on zexy's [tabdump]

svn path=/trunk/externals/iem/iemmatrix/; revision=5773

1 files changed, 102 insertions, 78 deletions

diff --git a/abs/mtx_tab.pd b/abs/mtx_tab.pd
index 15ec8a2..6131a11 100644
--- a/abs/mtx_tab.pd
+++ b/abs/mtx_tab.pd
@@ -1,81 +1,105 @@
-#N canvas 98 259 645 400 10;
-#X obj 33 14 inlet;
-#X obj 247 6 inlet;
-#X obj 286 354 s \$1;
-#X obj 286 331 list prepend 0;
-#X obj 247 291 t a a;
-#X obj 286 291 mtx_size;
-#X obj 347 291 *;
-#X msg 336 310 resize \$1;
-#X obj 247 272 relay matrix;
-#X obj 33 55 t a a;
-#X obj 33 348 outlet;
-#X obj 33 34 relay matrix;
-#X obj 112 203 mtx;
-#X obj 112 56 t a b;
-#X obj 142 76 tabdump \$1;
-#X obj 142 96 list prepend matrix;
-#X obj 142 116 list trim;
-#X obj 112 176 spigot;
-#X msg 162 176 0;
-#X msg 190 176 1;
-#X obj 247 310 list split 1;
-#X obj 372 291 + 2;
-#X text 356 13 \$1 ... table name;
-#X text 446 125 part of iemmatrix.;
-#X text 434 151 requires zexy [relay];
-#X text 495 187 see also:;
-#X obj 563 186 mtx;
-#X text 209 35 mtx_tab behaves just like a "mtx" object that stores
+#N canvas 60 0 784 503 10;
+#X obj 33 154 inlet;
+#X obj 108 154 inlet;
+#X obj 33 358 outlet;
+#X text 345 160 part of iemmatrix.;
+#X text 348 215 see also:;
+#X obj 431 213 mtx;
+#X text 105 56 mtx_tab behaves just like a "mtx" object that stores
 its internal matrix in a table. So this matrix can be seen as a local/global
 variable of the workspace.;
-#X text 328 355 send to table;
-#X text 226 79 get from table;
-#X text 138 158 if no output: send to table anyway;
-#X text 489 276 Franz Zotter 2006;
-#X obj 112 223 t b a;
-#X obj 112 137 t b b a b;
-#X obj 111 271 spigot;
-#X msg 152 223 0;
-#X msg 181 223 1;
-#X obj 38 176 route bang;
-#X obj 142 244 t a a;
-#X connect 0 0 11 0;
-#X connect 1 0 8 0;
+#X text 349 282 Franz Zotter 2006;
+#X text 347 250 requires zexy's [tabdump];
+#X text 105 6 [mtx_tab];
+#N canvas 0 0 657 677 mtx_tab 0;
+#X obj 33 34 inlet;
+#X obj 287 86 inlet;
+#X obj 287 624 s \$1;
+#X obj 287 601 list prepend 0;
+#X obj 287 506 t a a;
+#X obj 412 561 *;
+#X msg 412 600 resize \$1;
+#X obj 33 438 outlet;
+#X obj 156 343 mtx;
+#X obj 156 75 t a b;
+#X obj 191 156 tabdump \$1;
+#X obj 191 176 list prepend matrix;
+#X obj 191 196 list trim;
+#X obj 156 306 spigot;
+#X msg 218 305 0;
+#X msg 218 285 1;
+#X obj 412 581 + 2;
+#X text 329 625 send to table;
+#X text 298 159 get from table;
+#X obj 156 363 t b a;
+#X obj 191 411 spigot;
+#X msg 234 364 0;
+#X msg 263 364 1;
+#X obj 191 384 t a a;
+#N canvas 0 0 450 300 bang 0;
+#X obj 103 28 inlet;
+#X obj 103 59 route bang;
+#X obj 103 119 outlet;
+#X obj 103 92 b;
+#X connect 0 0 1 0;
+#X connect 1 0 3 0;
+#X connect 1 1 2 0;
 #X connect 3 0 2 0;
-#X connect 4 0 20 0;
-#X connect 4 1 5 0;
-#X connect 5 0 6 0;
-#X connect 5 1 6 1;
-#X connect 6 0 21 0;
-#X connect 7 0 2 0;
-#X connect 8 0 4 0;
-#X connect 9 0 10 0;
-#X connect 9 1 4 0;
-#X connect 11 0 9 0;
-#X connect 11 1 13 0;
-#X connect 12 0 32 0;
-#X connect 13 0 33 0;
-#X connect 13 1 14 0;
-#X connect 14 0 15 0;
-#X connect 15 0 16 0;
-#X connect 16 0 12 1;
-#X connect 17 0 12 0;
-#X connect 18 0 17 1;
-#X connect 19 0 17 1;
-#X connect 20 1 3 0;
-#X connect 21 0 7 0;
-#X connect 32 0 18 0;
-#X connect 32 1 38 0;
-#X connect 33 0 17 0;
-#X connect 33 1 35 0;
-#X connect 33 2 37 0;
-#X connect 33 3 19 0;
-#X connect 33 3 36 0;
-#X connect 34 0 10 0;
-#X connect 35 0 34 1;
-#X connect 36 0 34 1;
-#X connect 37 0 12 0;
-#X connect 37 1 12 0;
-#X connect 38 0 34 0;
-#X connect 38 1 8 0;
+#X restore 197 255 pd bang;
+#X obj 156 217 t b b a b b;
+#X text 301 485 <r> <c> ...;
+#X obj 287 467 route matrix;
+#X msg 412 542 \$1 \$2;
+#X obj 33 94 list prepend matrix;
+#X obj 33 114 list trim;
+#X obj 33 75 t a a;
+#X msg 201 135 set \$1;
+#X obj 33 56 route matrix set;
+#X obj 201 115 symbol;
+#X text 170 238 if no output: send to table anyway;
+#X connect 0 0 33 0;
+#X connect 1 0 27 0;
+#X connect 3 0 2 0;
+#X connect 4 0 3 0;
+#X connect 4 1 28 0;
+#X connect 5 0 16 0;
+#X connect 6 0 2 0;
+#X connect 8 0 19 0;
+#X connect 9 0 25 0;
+#X connect 9 1 10 0;
+#X connect 10 0 11 0;
+#X connect 11 0 12 0;
+#X connect 12 0 8 1;
+#X connect 13 0 8 0;
+#X connect 14 0 13 1;
+#X connect 15 0 13 1;
+#X connect 16 0 6 0;
+#X connect 19 0 14 0;
+#X connect 19 1 23 0;
+#X connect 20 0 7 0;
+#X connect 21 0 20 1;
+#X connect 22 0 20 1;
+#X connect 23 0 20 0;
+#X connect 23 1 27 0;
+#X connect 24 0 8 0;
+#X connect 25 0 13 0;
+#X connect 25 1 21 0;
+#X connect 25 2 24 0;
+#X connect 25 3 15 0;
+#X connect 25 4 22 0;
+#X connect 27 0 4 0;
+#X connect 28 0 5 0;
+#X connect 29 0 30 0;
+#X connect 30 0 7 0;
+#X connect 31 0 29 0;
+#X connect 31 1 27 0;
+#X connect 32 0 10 0;
+#X connect 33 0 31 0;
+#X connect 33 1 34 0;
+#X connect 33 2 9 0;
+#X connect 34 0 32 0;
+#X restore 33 327 pd mtx_tab;
+#X text 105 38 arguments: \$1 ... table name;
+#X connect 0 0 10 0;
+#X connect 1 0 10 1;
+#X connect 10 0 2 0;