From 44e96a0485f02f9026bfa35dcda2cdd53204577f Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?IOhannes=20m=20zm=C3=B6lnig?= 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-help.pd | 25 +++++++++++++++++++++ abs/repack.pd | 65 ++++++++++++++++++++++++++++++++++++++++++++++++++++++ 2 files changed, 90 insertions(+) create mode 100644 abs/repack-help.pd create mode 100644 abs/repack.pd (limited to 'abs') 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 " 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; -- cgit v1.2.1