From 44e96a0485f02f9026bfa35dcda2cdd53204577f Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?IOhannes=20m=20zm=C3=B6lnig?=
 <zmoelnig@users.sourceforge.net>
Date: Tue, 3 Oct 2006 14:42:47 +0000
Subject: simple abstraction implementation of [repack]; needs more work

svn path=/trunk/externals/zexy/; revision=6070
---
 abs/repack.pd | 65 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 65 insertions(+)
 create mode 100644 abs/repack.pd

(limited to 'abs/repack.pd')

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;
-- 
cgit v1.2.1