oh sorry - there u are ... ;)
Georg
IOhannes m zmoelnig schrieb:
Georg Werner wrote:
this is a little workaround for not having associative arrays ... ;)
sorting 2 lists by the first one. (in this case e.g. the x-values and
ids of objects)
yes, but i don't have it... where can i find it?
don't want to do exercises that late...
fgmasdr
IOhannes
#N canvas 69 56 782 540 10;
#X obj 129 310 list split 1;
#X obj 57 266 list-len;
#X obj 163 331 list split 1;
#X obj 129 373 list append;
#X obj 57 347 list;
#X obj 57 287 > 0;
#X obj 150 472 outlet;
#X obj 57 308 sel 1 0;
#X obj 163 49 inlet;
#X obj 233 393 list prepend;
#X obj 150 450 list append;
#X obj 727 133 loadbang;
#X obj 662 45 inlet;
#N canvas 0 0 552 424 mux 0;
#X obj 40 52 inlet;
#X obj 153 52 inlet;
#X obj 255 49 inlet;
#X obj 40 266 spigot 1;
#X obj 153 266 spigot;
#X obj 255 223 unpack 0 0;
#X msg 255 177 1 0;
#X msg 306 195 0 1;
#X obj 357 92 select 0;
#X obj 255 70 select asc desc;
#X obj 40 317 outlet;
#X connect 0 0 3 0;
#X connect 1 0 4 0;
#X connect 2 0 9 0;
#X connect 3 0 10 0;
#X connect 4 0 10 0;
#X connect 5 0 3 1;
#X connect 5 1 4 1;
#X connect 6 0 5 0;
#X connect 7 0 5 0;
#X connect 8 0 6 0;
#X connect 8 1 7 0;
#X connect 9 0 6 0;
#X connect 9 1 7 0;
#X connect 9 2 8 0;
#X restore 226 236 pd mux;
#X obj 662 194 list append \$1;
#X obj 662 164 t b a;
#X obj 330 392 t a;
#N canvas 855 132 842 735 minmaxpos 0;
#X obj 128 97 list-drip;
#X obj 128 120 route float;
#X obj 159 256 f;
#X obj 106 664 outlet;
#X obj 165 639 f;
#X obj 165 666 outlet;
#X obj 106 575 t b b;
#X obj 106 10 inlet;
#X obj 106 636 f;
#N canvas 0 0 450 300 once 0;
#X obj 110 75 inlet;
#X obj 105 187 spigot 1;
#X obj 110 104 t b f;
#X msg 125 151 0;
#X msg 165 99 1;
#X obj 165 63 inlet;
#X obj 102 219 outlet;
#X connect 0 0 2 0;
#X connect 1 0 6 0;
#X connect 2 0 3 0;
#X connect 2 1 1 0;
#X connect 3 0 1 1;
#X connect 4 0 1 1;
#X connect 5 0 4 0;
#X restore 262 183 pd once;
#X obj 275 258 f;
#X obj 244 257 max;
#X obj 128 256 min;
#X text 323 183 prime [min] and [max] with first item once;
#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 168 371 pd count;
#X obj 128 470 change;
#X obj 244 472 change;
#X obj 128 527 f;
#X obj 244 525 f;
#X obj 128 495 b;
#X obj 244 496 b;
#X msg 429 356 set \$1;
#X msg 601 357 0;
#X obj 106 30 t b a b b;
#X obj 128 150 t a a b a;
#X text 637 358 reset positions;
#X text 483 356 set change;
#X text 302 475 if min or max changes \, store the new positions.;
#X text 227 24 output positions of min and max float in a list (zero-based)
;
#X connect 0 0 1 0;
#X connect 1 0 24 0;
#X connect 2 0 12 1;
#X connect 4 0 5 0;
#X connect 6 0 8 0;
#X connect 6 1 4 0;
#X connect 7 0 23 0;
#X connect 8 0 3 0;
#X connect 9 0 11 1;
#X connect 9 0 12 1;
#X connect 9 0 21 0;
#X connect 9 0 22 0;
#X connect 10 0 11 1;
#X connect 11 0 10 0;
#X connect 11 0 16 0;
#X connect 12 0 2 0;
#X connect 12 0 15 0;
#X connect 14 0 18 1;
#X connect 14 0 17 1;
#X connect 15 0 19 0;
#X connect 16 0 20 0;
#X connect 17 0 8 1;
#X connect 18 0 4 1;
#X connect 19 0 17 0;
#X connect 20 0 18 0;
#X connect 21 0 16 0;
#X connect 21 0 15 0;
#X connect 22 0 4 1;
#X connect 22 0 8 1;
#X connect 23 0 6 0;
#X connect 23 1 0 0;
#X connect 23 2 14 1;
#X connect 23 3 9 1;
#X connect 24 0 12 0;
#X connect 24 1 11 0;
#X connect 24 2 14 0;
#X connect 24 3 9 0;
#X restore 226 199 pd minmaxpos;
#X obj 163 86 list-filter;
#N canvas 0 0 677 293 checknum 0;
#X obj 131 95 route float;
#X msg 131 116 1;
#X obj 205 149 print;
#X msg 205 119 list-sort: Warning: dropped a non-number from list;
#X obj 131 70 inlet;
#X obj 131 149 outlet;
#X connect 0 0 1 0;
#X connect 0 1 3 0;
#X connect 1 0 5 0;
#X connect 3 0 2 0;
#X connect 4 0 0 0;
#X restore 252 86 pd checknum;
#X obj 495 295 list split 1;
#X obj 529 316 list split 1;
#X obj 495 358 list append;
#X obj 599 378 list prepend;
#X obj 516 435 list append;
#X obj 696 377 t a;
#X obj 163 120 t a b b;
#X obj 494 199 list;
#X obj 495 251 list;
#X obj 515 154 t l b;
#X obj 163 163 t a a b a a;
#X obj 515 45 inlet;
#X obj 516 468 outlet;
#X text 56 513 2009 Georg Werner (based on list-sort by Michal Seta)
;
#X text 11 6 [2list-sort] sort two incoming lists of numerical values
by the first list in an ascending or descending order;
#X connect 0 0 3 0;
#X connect 0 1 2 0;
#X connect 1 0 5 0;
#X connect 2 0 9 0;
#X connect 2 1 3 1;
#X connect 3 0 4 1;
#X connect 4 0 30 0;
#X connect 5 0 7 0;
#X connect 7 0 4 0;
#X connect 7 1 10 0;
#X connect 7 1 24 0;
#X connect 8 0 18 0;
#X connect 9 0 10 1;
#X connect 9 0 16 0;
#X connect 10 0 6 0;
#X connect 11 0 14 0;
#X connect 12 0 15 0;
#X connect 13 0 0 1;
#X connect 13 0 20 1;
#X connect 14 0 13 2;
#X connect 15 0 14 0;
#X connect 15 1 14 1;
#X connect 16 0 9 1;
#X connect 17 0 13 0;
#X connect 17 1 13 1;
#X connect 18 0 26 0;
#X connect 18 1 19 0;
#X connect 19 0 18 1;
#X connect 20 0 22 0;
#X connect 20 1 21 0;
#X connect 21 0 23 0;
#X connect 21 1 22 1;
#X connect 22 0 28 1;
#X connect 23 0 24 1;
#X connect 23 0 25 0;
#X connect 24 0 32 0;
#X connect 25 0 23 1;
#X connect 26 0 30 0;
#X connect 26 1 9 1;
#X connect 26 1 23 1;
#X connect 26 2 27 0;
#X connect 27 0 28 1;
#X connect 28 0 20 0;
#X connect 29 0 27 1;
#X connect 29 1 28 1;
#X connect 30 0 1 0;
#X connect 30 1 0 0;
#X connect 30 2 28 0;
#X connect 30 4 17 0;
#X connect 31 0 29 0;
_______________________________________________
Pd-dev mailing list
[email protected]
http://lists.puredata.info/listinfo/pd-dev
