[PD-cvs] abstractions/footils/list-abs list-sect-help.pd, NONE, 1.1 list-sect.pd, NONE, 1.1

[Frank Barknecht]

Update of /cvsroot/pure-data/abstractions/footils/list-abs
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv16695

Added Files:
	list-sect-help.pd list-sect.pd 
Log Message:
list-sect added

--- NEW FILE: list-sect.pd ---
#N canvas 384 285 600 467 10;
#X obj 126 173 list-find;
#X obj 184 194 > 0;
#X obj 184 215 select 1;
#X obj 126 117 list-drip;
#X obj 126 142 t a a;
#X obj 204 58 inlet;
#X obj 184 242 list;
#X obj 107 58 inlet;
#X obj 183 265 list prepend;
#X obj 278 265 t a;
#X obj 107 327 list;
#X obj 107 83 t b a b b;
#X obj 107 353 outlet;
#X text 97 18 list-sect;
#X text 134 34 outputs the elements that are common to both input lists:
;
#X connect 0 1 1 0;
#X connect 1 0 2 0;
#X connect 2 0 6 0;
#X connect 3 0 4 0;
#X connect 4 0 0 0;
#X connect 4 1 6 1;
#X connect 5 0 0 1;
#X connect 6 0 8 0;
#X connect 7 0 11 0;
#X connect 8 0 9 0;
#X connect 8 0 10 1;
#X connect 9 0 8 1;
#X connect 10 0 12 0;
#X connect 11 0 10 0;
#X connect 11 1 3 0;
#X connect 11 2 10 1;
#X connect 11 3 8 1;

--- NEW FILE: list-sect-help.pd ---
#N canvas 366 312 576 432 10;
#X text 78 26 list-sect;
#N canvas 269 263 450 300 sbow 0;
#X obj 120 85 list prepend set;
#X obj 120 109 list trim;
#X obj 120 63 inlet;
#X obj 120 131 outlet;
#X connect 0 0 1 0;
#X connect 1 0 3 0;
#X connect 2 0 0 0;
#X restore 114 236 pd sbow;
#X msg 114 261;
#X obj 114 120 t b b;
#X obj 114 101 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 114 196 list-sect;
#X obj 123 218 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X msg 172 167 5 4 foo 3 2;
#X msg 114 144 1 2 3 4 foo bar 2;
#X obj 114 318 list-unique;
#N canvas 269 263 450 300 sbow 0;
#X obj 120 85 list prepend set;
#X obj 120 109 list trim;
#X obj 120 63 inlet;
#X obj 120 131 outlet;
#X connect 0 0 1 0;
#X connect 1 0 3 0;
#X connect 2 0 0 0;
#X restore 114 361 pd sbow;
#X obj 123 343 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X msg 114 382;
#X text 113 49 outputs the elements that are common to both input lists.
Left inlet determines order and number of items in result. Duplicates
are kept!;
#X text 127 292 To remove duplicates use [list-unique];
#X connect 1 0 2 0;
#X connect 2 0 9 0;
#X connect 3 0 8 0;
#X connect 3 1 7 0;
#X connect 4 0 3 0;
#X connect 5 0 1 0;
#X connect 6 0 1 0;
#X connect 7 0 5 1;
#X connect 8 0 5 0;
#X connect 9 0 10 0;
#X connect 10 0 12 0;
#X connect 11 0 10 0;