Okee\\, remade list-zip from memory. No longer mourning yesterday morning. (by the way\, I'm checking this in using [pdsvndir] (found in pure-data/abstractions/senderfruit/pdsvn)\, and if you're reading this it means it's probably stable enough to try out :) )

svn path=/trunk/abstractions/senderfruit/; revision=9511

2 files changed, 211 insertions, 0 deletions

diff --git a/core/list-zip-help.pd b/core/list-zip-help.pd
new file mode 100644
index 0000000..79e61d5
--- /dev/null
+++ b/core/list-zip-help.pd
@@ -0,0 +1,41 @@
+#N canvas 640 313 578 372 10;
+#X obj 31 181 list-zip;
+#X text 406 329 2008 Luke Iannini;
+#X obj 406 344 pddplink http://proyekto.net;
+#X text 25 9 [list-zip] "zips" or interweaves the elements of 2 or
+more lists.;
+#X obj 183 216 list-zip 4;
+#X msg 76 147 a b c d e f g;
+#X msg 31 112 A B C D E F G;
+#X obj 31 88 t b b;
+#X obj 31 207 prepent set;
+#X obj 31 59 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
+-1;
+#X msg 221 157 a b c d e f g;
+#X msg 202 134 A B C D E F G;
+#X msg 183 111 1 2 3 4 5 6 7;
+#X obj 183 240 prepent set;
+#X msg 31 235;
+#X obj 183 84 t b b b b;
+#X msg 240 180 animal broom climb drive egg flange green;
+#X obj 183 58 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
+-1;
+#X msg 183 268;
+#X connect 0 0 8 0;
+#X connect 4 0 13 0;
+#X connect 5 0 0 1;
+#X connect 6 0 0 0;
+#X connect 7 0 6 0;
+#X connect 7 1 5 0;
+#X connect 8 0 14 0;
+#X connect 9 0 7 0;
+#X connect 10 0 4 2;
+#X connect 11 0 4 1;
+#X connect 12 0 4 0;
+#X connect 13 0 18 0;
+#X connect 15 0 12 0;
+#X connect 15 1 11 0;
+#X connect 15 2 10 0;
+#X connect 15 3 16 0;
+#X connect 16 0 4 3;
+#X connect 17 0 15 0;
diff --git a/core/list-zip.pd b/core/list-zip.pd
new file mode 100644
index 0000000..06a1302
--- /dev/null
+++ b/core/list-zip.pd
@@ -0,0 +1,170 @@
+#N canvas 372 122 667 644 10;
+#N canvas 566 25 818 707 creator 1;
+#X obj 282 19 initbang;
+#X obj 282 43 t b b b;
+#X obj 723 60 \$1;
+#X obj 723 84 < 3;
+#X obj 723 105 sel 0 1;
+#X obj 723 127 \$1;
+#X obj 723 178 v \$0arg;
+#X obj 20 107 until;
+#X obj 20 132 f;
+#X obj 50 132 + 1;
+#X msg 60 106 0;
+#X obj 20 83 v \$0arg;
+#X obj 20 60 t b b;
+#X obj 20 160 t a a;
+#X obj 174 394 s \$0self;
+#X obj 174 349 pack f f;
+#X obj 124 494 sel 9;
+#X msg 124 514 6;
+#X obj 97 539 pack f f;
+#X msg 352 104 obj 40 10 inlet \, obj 40 30 t a b \, obj 40 50 list-drip
+;
+#N canvas 925 401 189 317 make-trigger 0;
+#X obj 33 31 inlet;
+#X obj 50 89 v \$0arg;
+#X obj 50 124 until;
+#X obj 64 186 list-extend;
+#X obj 33 212 list;
+#X obj 33 54 t b b b b;
+#X msg 79 146 t a;
+#X msg 50 145 b;
+#X obj 33 236 list prepend obj 40 70;
+#X obj 33 281 outlet;
+#X obj 33 258 list trim;
+#X connect 0 0 5 0;
+#X connect 1 0 2 0;
+#X connect 2 0 7 0;
+#X connect 3 0 4 1;
+#X connect 4 0 8 0;
+#X connect 5 0 4 0;
+#X connect 5 1 1 0;
+#X connect 5 2 6 0;
+#X connect 5 3 3 1;
+#X connect 6 0 3 0;
+#X connect 7 0 3 0;
+#X connect 8 0 10 0;
+#X connect 10 0 9 0;
+#X restore 335 127 pd make-trigger;
+#X obj 301 249 s \$0self;
+#X text 696 196 arg < 3 becomes 2;
+#X msg 318 150 obj 40 400 list append \, obj 40 420 list-extend \,
+obj 10 440 list \, obj 10 460 outlet;
+#X obj 301 82 t b b b b;
+#X msg 301 187 connect 2 0 3 0 \, connect 3 0 4 0 \, connect 3 1 7
+1 \, connect 4 0 5 0 \, connect 4 1 8 0 \, connect 5 0 6 0 \, connect
+6 0 7 0 \, connect 7 0 8 1 \, connect 8 0 9 0;
+#X obj 20 302 + 10;
+#X obj 20 278 * 3;
+#X obj 47 213 s \$0idx;
+#X obj 351 406 r \$0idx;
+#X msg 378 536 obj \$1 10 inlet;
+#X msg 351 557 obj \$1 200 list-dripslow \, obj \$1 400 list append
+;
+#X obj 351 487 t a a;
+#X obj 351 584 s \$0self;
+#X obj 35 560 r \$0idx;
+#X obj 20 583 f;
+#X obj 20 539 t b a;
+#X obj 47 583 + 1;
+#X obj 351 462 + 130;
+#X obj 351 436 * 100;
+#X obj 378 512 + 50;
+#X obj 124 472 - 1;
+#X obj 174 530 s \$0self;
+#X obj 174 482 pack f f;
+#X msg 174 371 connect \$1 0 \$2 1;
+#X obj 20 325 t a a a a;
+#X obj 174 304 t a a;
+#X obj 97 448 t a a;
+#X obj 174 427 t a a;
+#X obj 201 325 + 1;
+#X obj 174 456 + 1;
+#X obj 201 456 + 2;
+#X msg 174 507 connect \$1 0 \$2 0;
+#X obj 97 489 + 2;
+#X msg 97 564 connect \$1 0 \$2 1;
+#X obj 97 590 s \$0self;
+#X obj 20 628 pack f f;
+#X obj 20 606 + 1;
+#X msg 20 653 connect 5 \$1 \$2 0;
+#X obj 20 676 s \$0self;
+#X obj 255 19 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
+-1;
+#X obj 723 154 - 1;
+#X msg 749 127 2;
+#X connect 0 0 1 0;
+#X connect 1 0 12 0;
+#X connect 1 1 24 0;
+#X connect 1 2 2 0;
+#X connect 2 0 3 0;
+#X connect 3 0 4 0;
+#X connect 4 0 5 0;
+#X connect 4 1 62 0;
+#X connect 5 0 61 0;
+#X connect 7 0 8 0;
+#X connect 8 0 9 0;
+#X connect 8 0 13 0;
+#X connect 9 0 8 1;
+#X connect 10 0 8 1;
+#X connect 11 0 7 0;
+#X connect 12 0 11 0;
+#X connect 12 1 10 0;
+#X connect 13 0 27 0;
+#X connect 13 1 28 0;
+#X connect 15 0 44 0;
+#X connect 16 0 17 0;
+#X connect 16 1 18 1;
+#X connect 17 0 18 1;
+#X connect 18 0 54 0;
+#X connect 19 0 21 0;
+#X connect 20 0 21 0;
+#X connect 23 0 21 0;
+#X connect 24 0 25 0;
+#X connect 24 1 23 0;
+#X connect 24 2 20 0;
+#X connect 24 3 19 0;
+#X connect 25 0 21 0;
+#X connect 26 0 45 0;
+#X connect 27 0 26 0;
+#X connect 29 0 39 0;
+#X connect 30 0 33 0;
+#X connect 31 0 33 0;
+#X connect 32 0 31 0;
+#X connect 32 1 40 0;
+#X connect 34 0 35 1;
+#X connect 35 0 57 0;
+#X connect 36 0 35 0;
+#X connect 36 1 37 0;
+#X connect 37 0 56 1;
+#X connect 38 0 32 0;
+#X connect 39 0 38 0;
+#X connect 40 0 30 0;
+#X connect 41 0 16 0;
+#X connect 43 0 52 0;
+#X connect 44 0 14 0;
+#X connect 45 0 36 0;
+#X connect 45 1 47 0;
+#X connect 45 2 48 0;
+#X connect 45 3 46 0;
+#X connect 46 0 15 0;
+#X connect 46 1 49 0;
+#X connect 47 0 53 0;
+#X connect 47 1 41 0;
+#X connect 48 0 50 0;
+#X connect 48 1 51 0;
+#X connect 49 0 15 1;
+#X connect 50 0 43 0;
+#X connect 51 0 43 1;
+#X connect 52 0 42 0;
+#X connect 53 0 18 0;
+#X connect 54 0 55 0;
+#X connect 56 0 58 0;
+#X connect 57 0 56 0;
+#X connect 58 0 59 0;
+#X connect 60 0 1 0;
+#X connect 61 0 6 0;
+#X connect 62 0 61 0;
+#X restore 109 604 pd creator;
+#X obj 2 604 namecanvas \$0self;