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;