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

Frank Barknecht fbar at users.sourceforge.net
Sat Jul 7 11:56:14 CEST 2007


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

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


--- NEW FILE: list-unique.pd ---
#N canvas 197 380 791 465 10;
#X obj 131 240 list-find;
#X obj 309 270 t a;
#X obj 217 269 list prepend;
#X obj 131 187 t a a;
#X obj 217 240 list;
#X obj 131 162 list-drip;
#X obj 109 315 list;
#X obj 109 105 t b a b;
#X obj 252 151 t b b b;
#X text 323 151 reset everything;
#X text 156 314 result list;
#X text 108 412 2007 Frank Barknecht;
#X obj 217 196 < 1;
#X obj 217 217 select 1;
#X obj 233 76 inlet;
#X obj 109 72 inlet;
#X obj 109 343 outlet;
#X text 235 53 number of allowed repetitions (default 1);
#X text 84 51 list to uniquify;
#X text 355 232 If current item is found less often than the allowed
number of repetitions (default 1) \, then store it in [list-find] and
in result list. Else discard it.;
#X connect 0 1 12 0;
#X connect 1 0 2 1;
#X connect 2 0 1 0;
#X connect 2 0 0 1;
#X connect 2 0 6 1;
#X connect 3 0 0 0;
#X connect 3 1 4 1;
#X connect 4 0 2 0;
#X connect 5 0 3 0;
#X connect 6 0 16 0;
#X connect 7 0 6 0;
#X connect 7 1 5 0;
#X connect 7 2 8 0;
#X connect 8 0 4 0;
#X connect 8 1 4 1;
#X connect 8 2 2 1;
#X connect 12 0 13 0;
#X connect 13 0 4 0;
#X connect 14 0 12 1;
#X connect 15 0 7 0;

--- NEW FILE: list-unique-help.pd ---
#N canvas 330 98 543 489 10;
#X msg 93 366;
#N canvas 0 0 450 300 show 0;
#X obj 41 39 inlet;
#X obj 41 124 outlet;
#X obj 41 59 list prepend set;
#X obj 41 83 list trim;
#X connect 0 0 2 0;
#X connect 2 0 3 0;
#X connect 3 0 1 0;
#X restore 93 336 pd show;
#X msg 105 307 bang;
#X text 90 415 2007 Frank Barknecht;
#X text 208 246 number of allowed repetitions (default 1);
#X obj 93 270 list-unique;
#X floatatom 165 246 5 0 0 0 - - -;
#X msg 112 100 1 1 1 1 1 1 1 1;
#X msg 93 78 1 2 3 2 1;
#X text 56 27 [list-unique] - remove duplicates from a list;
#X text 90 57 list to uniquify;
#X obj 120 144 hradio 15 1 0 3 empty empty empty 0 -8 0 10 -262144
-1 -1 0;
#X obj 150 212 + 1;
#X obj 120 162 t b a;
#X msg 120 183 list H e l l o - W o r l d;
#X connect 1 0 0 0;
#X connect 2 0 1 0;
#X connect 5 0 1 0;
#X connect 6 0 5 1;
#X connect 7 0 5 0;
#X connect 8 0 5 0;
#X connect 11 0 13 0;
#X connect 12 0 6 0;
#X connect 13 0 14 0;
#X connect 13 1 12 0;
#X connect 14 0 5 0;





More information about the Pd-cvs mailing list