Revision: 9511 http://pure-data.svn.sourceforge.net/pure-data/?rev=9511&view=rev Author: lukeiannini Date: 2008-02-23 08:18:57 -0800 (Sat, 23 Feb 2008)
Log Message: ----------- 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 :) )
Added Paths: ----------- trunk/abstractions/senderfruit/core/list-zip-help.pd trunk/abstractions/senderfruit/core/list-zip.pd
Added: trunk/abstractions/senderfruit/core/list-zip-help.pd =================================================================== --- trunk/abstractions/senderfruit/core/list-zip-help.pd (rev 0) +++ trunk/abstractions/senderfruit/core/list-zip-help.pd 2008-02-23 16:18:57 UTC (rev 9511) @@ -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;
Added: trunk/abstractions/senderfruit/core/list-zip.pd =================================================================== --- trunk/abstractions/senderfruit/core/list-zip.pd (rev 0) +++ trunk/abstractions/senderfruit/core/list-zip.pd 2008-02-23 16:18:57 UTC (rev 9511) @@ -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;
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.