From 8bd8a583f7365f898f8240747b3ad42dce5f9086 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?IOhannes=20m=20zm=C3=B6lnig?= Date: Tue, 29 Aug 2006 09:44:47 +0000 Subject: 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 --- abs/mtx_tab.pd | 180 ++++++++++++++++++++++++++++++++------------------------- 1 file 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 ...; +#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; -- cgit v1.2.1