simple abstraction implementation of [repack]; needs more work

svn path=/trunk/externals/zexy/; revision=6070

2 files changed, 90 insertions, 0 deletions

diff --git a/abs/repack-help.pd b/abs/repack-help.pd
new file mode 100644
index 0000000..49fb81b
--- /dev/null
+++ b/abs/repack-help.pd
@@ -0,0 +1,25 @@
+#N canvas 364 364 739 549 10;
+#X obj 78 35 repack;
+#X obj 73 303 print;
+#X floatatom 73 120 0 0 0 0 - - -;
+#X msg 73 138 1 2 3 4 5 6 7 8 9 10;
+#X obj 73 265 repack 7;
+#X msg 73 157 hallo;
+#X text 149 33 (re)packs (packages of) floats/symbols/pointers/anythings
+to packages of a (given) size;
+#X msg 120 187 bang;
+#X floatatom 116 235 0 0 0 0 - - -;
+#X text 172 236 set the package-size;
+#X text 173 191 output the currently made package immediately;
+#X obj 56 501 repack 1;
+#X text 118 502 unfolds packages to atoms \; see also;
+#X obj 337 503 drip;
+#X text 72 407 creation:;
+#X text 140 408 "repack <n>" create packages of the length n;
+#X text 582 11 part of zexy;
+#X connect 2 0 4 0;
+#X connect 3 0 4 0;
+#X connect 4 0 1 0;
+#X connect 5 0 4 0;
+#X connect 7 0 4 0;
+#X connect 8 0 4 1;
diff --git a/abs/repack.pd b/abs/repack.pd
new file mode 100644
index 0000000..780e36f
--- /dev/null
+++ b/abs/repack.pd
@@ -0,0 +1,65 @@
+#N canvas 95 448 450 362 10;
+#X obj 38 162 inlet;
+#X obj 93 333 outlet;
+#X obj 319 211 inlet;
+#X obj 93 294 list append;
+#X obj 93 253 until;
+#X obj 93 230 t b a;
+#X obj 93 312 list split \$1;
+#X obj 154 276 list prepend;
+#X obj 166 330 t b l;
+#X obj 248 232 i \$1;
+#X obj 248 213 loadbang;
+#X obj 248 250 moses 1;
+#X msg 248 268 2;
+#X text 29 15 (re)packs (packages of) floats/symbols/pointers/anythings
+to packages of a (given) size;
+#X text 57 86 (c) 2006 IOhannes m zmoelnig \, IEM;
+#X text 58 106 part of zexy;
+#X obj 38 202 route bang;
+#X obj 38 267 list;
+#X obj 38 285 t l b;
+#X text 34 52 note: this is not yet fully compatible with zexy's binary
+[repack];
+#N canvas 0 0 450 300 warning 0;
+#X obj 28 95 loadbang;
+#X obj 28 239 print warning;
+#X msg 28 222 [repack] abstraction not fully compatible with zexy's
+repack;
+#X text 57 66 LATER: think about saying this only once;
+#X obj 28 117 value repack_warning_instance=counter_long_name_to_make_it_less-likely:to-already-exist
+;
+#X obj 28 161 t f f;
+#X obj 28 204 select 0;
+#X obj 53 179 + 1;
+#X connect 0 0 4 0;
+#X connect 2 0 1 0;
+#X connect 4 0 5 0;
+#X connect 5 0 6 0;
+#X connect 5 1 7 0;
+#X connect 6 0 2 0;
+#X connect 7 0 4 0;
+#X restore 338 156 pd warning;
+#X connect 0 0 16 0;
+#X connect 2 0 9 0;
+#X connect 3 0 6 0;
+#X connect 4 0 3 0;
+#X connect 5 0 4 0;
+#X connect 5 1 7 0;
+#X connect 6 0 1 0;
+#X connect 6 1 3 1;
+#X connect 6 2 8 0;
+#X connect 7 0 3 1;
+#X connect 8 0 4 1;
+#X connect 8 1 7 1;
+#X connect 8 1 17 1;
+#X connect 9 0 11 0;
+#X connect 10 0 9 0;
+#X connect 11 0 12 0;
+#X connect 11 1 6 1;
+#X connect 12 0 6 1;
+#X connect 16 0 17 0;
+#X connect 16 1 5 0;
+#X connect 17 0 18 0;
+#X connect 18 0 1 0;
+#X connect 18 1 8 0;