[PD-cvs] externals/zexy/abs repack-help.pd, NONE, 1.1 repack.pd, NONE, 1.1

[IOhannes m zmölnig]

Update of /cvsroot/pure-data/externals/zexy/abs
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv24028

Added Files:
	repack-help.pd repack.pd 
Log Message:
simple abstraction implementation of [repack]; needs more work


--- NEW FILE: repack-help.pd ---
#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;

--- NEW FILE: repack.pd ---
#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;