aboutsummaryrefslogtreecommitdiff
path: root/abs/repack.pd
blob: 780e36f66bfdfed5047ee2c31a1ee12c627c4db7 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
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;