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;