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

Frank Barknecht fbar at users.sourceforge.net
Tue Jan 2 13:13:12 CET 2007


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

Added Files:
	compare-any-help.pd compare-any.pd list-compare-help.pd 
	list-compare.pd list-find-help.pd list-find.pd 
Log Message:
Objects to compare lists added.


--- NEW FILE: list-find-help.pd ---
#N canvas 324 167 529 463 10;
#X floatatom 169 220 5 0 0 0 - - -;
#X obj 154 299 list-find;
#X obj 212 253 loadbang;
#X obj 111 409 print FOUND_AT;
#X text 69 21 [list-find];
#N canvas 516 236 450 300 collect 0;
#X obj 195 37 inlet;
#X obj 41 37 inlet;
#X obj 41 144 outlet;
#X msg 195 74 set;
#X text 143 140 1993-2004 by Karlheinz Essl;
#X text 143 160 vs. 1.1;
#X obj 41 99 list trim;
#X obj 41 74 list prepend add2;
#X connect 0 0 3 0;
#X connect 1 0 7 0;
#X connect 3 0 2 0;
#X connect 6 0 2 0;
#X connect 7 0 6 0;
#X restore 154 355 pd collect;
#X obj 154 269 t a b;
#X msg 169 197 0;
#X msg 199 197 4;
#X text 130 53 Find position(s) of a value in a list.;
#X text 130 76 Inlet0: value to search;
#X text 130 95 Inlet1: list to search in.;
#X msg 154 144 seven;
#X msg 212 276 0 1 2 3 4 5 6 seven eight 0 0;
#X msg 154 165 symbol eight;
#X msg 154 380 7;
#X connect 0 0 6 0;
#X connect 1 0 3 0;
#X connect 1 0 5 0;
#X connect 2 0 13 0;
#X connect 5 0 15 0;
#X connect 6 0 1 0;
#X connect 6 1 5 1;
#X connect 7 0 0 0;
#X connect 8 0 0 0;
#X connect 12 0 6 0;
#X connect 13 0 1 1;
#X connect 14 0 6 0;

--- NEW FILE: compare-any-help.pd ---
#N canvas 394 294 528 377 10;
#X msg 246 131 symbol x;
#X msg 255 154 symbol y;
#X msg 116 137 symbol x;
#X msg 125 160 symbol y;
#X obj 96 254 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X msg 236 109 2.3;
#X msg 106 114 2.3;
#X msg 131 180 i;
#X msg 140 201 j;
#X msg 258 175 i;
#X msg 264 196 j;
#X obj 96 278 print;
#X text 37 14 [compare-any];
#X text 81 37 Test if two anythings are the same. Out: 1 if equal \,
0 if not equal.;
#X msg 96 92 1;
#X msg 226 87 1;
#X obj 96 231 compare-any;
#X msg 221 66 0;
#X msg 86 71 0;
#X connect 0 0 16 1;
#X connect 1 0 16 1;
#X connect 2 0 16 0;
#X connect 3 0 16 0;
#X connect 4 0 11 0;
#X connect 5 0 16 1;
#X connect 6 0 16 0;
#X connect 7 0 16 0;
#X connect 8 0 16 0;
#X connect 9 0 16 1;
#X connect 10 0 16 1;
#X connect 14 0 16 0;
#X connect 15 0 16 1;
#X connect 16 0 4 0;
#X connect 17 0 16 1;
#X connect 18 0 16 0;

--- NEW FILE: list-compare-help.pd ---
#N canvas 324 167 529 463 10;
#X floatatom 149 244 5 0 0 0 - - -;
#X obj 213 244 loadbang;
#X msg 149 217 0;
#X msg 179 217 4;
#X msg 134 169 seven;
#X msg 134 196 symbol eight;
#X obj 134 316 list-compare;
#X obj 134 354 tgl 24 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X obj 134 389 print EQUAL?;
#X text 69 21 [list-compare];
#X text 108 42 Compare two lists element by element.;
#X floatatom 228 295 5 0 0 0 - - -;
#X text 134 90 Out: 1 if equal \, 0 if not equal.;
#X text 134 66 In: two lists to compare.;
#X msg 134 115 0 1 2 3 4 5 6 seven eight;
#X msg 134 142 0 1 2 3 4 5 6 seventy eight;
#X msg 213 271 0 1 2 3 4 5 6 seven eight;
#X connect 0 0 6 0;
#X connect 1 0 16 0;
#X connect 2 0 0 0;
#X connect 3 0 0 0;
#X connect 4 0 6 0;
#X connect 5 0 6 0;
#X connect 6 0 7 0;
#X connect 7 0 8 0;
#X connect 11 0 6 1;
#X connect 14 0 6 0;
#X connect 15 0 6 0;
#X connect 16 0 6 1;

--- NEW FILE: list-find.pd ---
#N canvas 372 65 643 444 10;
#X obj 91 359 f;
#X obj 91 51 inlet;
#X obj 183 47 inlet;
#X obj 91 396 outlet;
#X text 60 27 value to find;
#X obj 91 180 list-drip;
#X obj 91 210 t a b;
#X obj 91 158 list;
#X text 180 27 list to search in;
#X text 208 103 [list-find] Find positions of a value (symbol or float)
in a list.;
#X obj 91 293 compare-any;
#X obj 91 317 select 1;
#X obj 91 80 t b a b;
#N canvas 0 0 450 300 count 0;
#X obj 120 148 f 0;
#X obj 148 149 + 1;
#X obj 163 100 0;
#X obj 117 24 inlet;
#X obj 119 176 outlet;
#X obj 181 25 inlet;
#X obj 114 47 b;
#X connect 0 0 1 0;
#X connect 0 0 4 0;
#X connect 1 0 0 1;
#X connect 2 0 0 1;
#X connect 3 0 6 0;
#X connect 5 0 2 0;
#X connect 6 0 0 0;
#X restore 121 245 pd count;
#X connect 0 0 3 0;
#X connect 1 0 12 0;
#X connect 2 0 7 1;
#X connect 5 0 6 0;
#X connect 6 0 10 0;
#X connect 6 1 13 0;
#X connect 7 0 5 0;
#X connect 10 0 11 0;
#X connect 11 0 0 0;
#X connect 12 0 7 0;
#X connect 12 1 10 1;
#X connect 12 2 13 1;
#X connect 13 0 0 1;

--- NEW FILE: list-compare.pd ---
#N canvas 368 289 390 300 10;
#X obj 222 58 inlet;
#X obj 94 57 inlet;
#X obj 94 199 outlet;
#N canvas 380 394 492 461 compare-elements 0;
#X obj 83 135 list-dripslow;
#X obj 83 226 compare-any;
#X obj 83 157 t a b;
#X obj 264 48 inlet;
#X obj 65 36 inlet;
#X obj 241 111 list;
#X obj 83 112 until;
#X obj 83 256 select 0;
#X obj 83 288 t b b;
#X msg 83 317 0;
#X obj 65 379 outlet;
#X obj 65 356 f 1;
#X obj 65 59 t b b a b b;
#X msg 125 319 1;
#X obj 155 192 list-dripslow;
#X connect 0 0 2 0;
#X connect 0 1 6 1;
#X connect 1 0 7 0;
#X connect 2 0 1 0;
#X connect 2 1 14 0;
#X connect 3 0 5 1;
#X connect 4 0 12 0;
#X connect 5 0 14 1;
#X connect 6 0 0 0;
#X connect 7 0 8 0;
#X connect 8 0 9 0;
#X connect 8 1 6 1;
#X connect 9 0 11 1;
#X connect 11 0 10 0;
#X connect 12 0 11 0;
#X connect 12 1 6 0;
#X connect 12 2 0 1;
#X connect 12 3 5 0;
#X connect 12 4 13 0;
#X connect 13 0 11 1;
#X connect 14 0 1 1;
#X restore 94 136 pd compare-elements;
#X msg 216 167 0;
#N canvas 446 369 450 300 compare-lengths 0;
#X obj 144 68 list length;
#X obj 45 67 list length;
#X obj 45 102 ==;
#X obj 45 123 select 1 0;
#X obj 144 35 inlet;
#X obj 45 20 inlet;
#X obj 45 203 outlet;
#X obj 77 182 outlet;
#X obj 45 45 t a a;
#X obj 45 154 list;
#X text 39 237 if equal \, send list out to first outlet \, else bang
second outlet;
#X connect 0 0 2 1;
#X connect 1 0 2 0;
#X connect 2 0 3 0;
#X connect 3 0 9 0;
#X connect 3 1 7 0;
#X connect 4 0 0 0;
#X connect 5 0 8 0;
#X connect 8 0 1 0;
#X connect 8 1 9 1;
#X connect 9 0 6 0;
#X restore 94 93 pd compare-lengths;
#X connect 0 0 5 1;
#X connect 0 0 3 1;
#X connect 1 0 5 0;
#X connect 3 0 2 0;
#X connect 4 0 2 0;
#X connect 5 0 3 0;
#X connect 5 1 4 0;

--- NEW FILE: compare-any.pd ---
#N canvas 460 148 653 646 10;
#X obj 118 28 inlet;
#X obj 118 451 outlet;
#X obj 118 336 ==;
#X obj 118 358 select 1;
#N canvas 272 259 450 300 demux 0;
#X obj 76 87 inlet;
#X obj 169 86 inlet;
#X obj 76 145 list prepend 0;
#X obj 76 186 route 0 1;
#X obj 76 242 outlet;
#X obj 105 213 outlet;
#X connect 0 0 2 0;
#X connect 1 0 2 1;
#X connect 2 0 3 0;
#X connect 3 0 4 0;
#X connect 3 1 5 0;
#X restore 118 230 pd demux;
#X msg 169 207 0;
#X msg 200 206 1;
#X obj 118 295 route float;
#X obj 219 293 route symbol;
#X obj 359 199 print HUH?;
#X obj 219 272 list;
#X obj 238 164 route float symbol;
#X obj 238 136 list;
#X msg 118 423 1;
#X msg 190 418 0;
#X obj 238 28 inlet;
#X obj 219 356 select [DUMMY-SYMBOL];
#X connect 0 0 4 0;
#X connect 2 0 3 0;
#X connect 3 0 13 0;
#X connect 3 1 14 0;
#X connect 4 0 7 0;
#X connect 4 1 10 0;
#X connect 5 0 4 1;
#X connect 6 0 4 1;
#X connect 7 0 2 0;
#X connect 7 1 14 0;
#X connect 8 0 16 0;
#X connect 8 1 14 0;
#X connect 10 0 8 0;
#X connect 11 0 2 1;
#X connect 11 0 5 0;
#X connect 11 1 6 0;
#X connect 11 1 16 1;
#X connect 11 2 9 0;
#X connect 12 0 11 0;
#X connect 13 0 1 0;
#X connect 14 0 1 0;
#X connect 15 0 12 0;
#X connect 16 0 13 0;
#X connect 16 1 14 0;





More information about the Pd-cvs mailing list