[PD-cvs] abstractions/footils/list-abs list-abs-help.pd, NONE, 1.1 list-abs.pd, NONE, 1.1 list-equalize-help.pd, NONE, 1.1 list-equalize.pd, NONE, 1.1 list-normalize-help.pd, NONE, 1.1 list-normalize.pd, NONE, 1.1 README, 1.1, 1.2

Tue Nov 1 19:20:16 CET 2005

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

Modified Files:
	README 
Added Files:
	list-abs-help.pd list-abs.pd list-equalize-help.pd 
	list-equalize.pd list-normalize-help.pd list-normalize.pd 
Log Message:
Some new additions: list-abs (finally!): do absolute on list. list-normalize:
norm. a list, list-equalize: scale, so that the sum of all floats in a list is
1.


--- NEW FILE: list-normalize.pd ---
#N canvas 306 264 642 393 10;
#X obj 209 202 list-minmax;
#X obj 209 170 list-abs;
#X obj 179 77 inlet;
#X obj 179 99 t a a;
#X obj 209 286 list-math /;
#X obj 209 319 outlet;
#X text 135 41 list-normalize: normalize a list inside (-1 \, 1);
#X connect 0 1 4 1;
#X connect 1 0 0 0;
#X connect 2 0 3 0;
#X connect 3 0 4 0;
#X connect 3 1 1 0;
#X connect 4 0 5 0;

--- NEW FILE: list-abs.pd ---
#N canvas 228 307 502 424 10;
#X obj 130 59 inlet;
#X obj 130 86 t b a b;
#X obj 152 145 list-drip;
#X obj 152 190 abs;
#X obj 152 168 route float;
#X obj 152 244 list prepend;
#X obj 245 244 t l;
#X obj 129 274 list;
#X obj 129 302 outlet;
#X text 92 30 list-abs: apply abs() on float elements of a list.;
#X connect 0 0 1 0;
#X connect 1 0 7 0;
#X connect 1 1 2 0;
#X connect 1 2 5 1;
#X connect 2 0 4 0;
#X connect 3 0 5 0;
#X connect 4 0 3 0;
#X connect 4 1 5 0;
#X connect 5 0 6 0;
#X connect 5 0 7 1;
#X connect 6 0 5 1;
#X connect 7 0 8 0;

--- NEW FILE: list-equalize-help.pd ---
#N canvas 485 298 612 548 10;
#X obj 93 283 list-equalize;
#X obj 93 71 vsl 15 128 0 127 0 0 empty empty empty 0 -8 0 8 -262144
-1 -1 2400 1;
#X obj 93 248 pack 0 0 0;
#X obj 115 209 t b f;
#X obj 161 212 t b f;
#X obj 93 310 unpack 0 0 0;
#X obj 128 71 vsl 15 128 0 127 0 0 empty empty empty 0 -8 0 8 -262144
-1 -1 7300 1;
#X obj 161 71 vsl 15 128 0 127 0 0 empty empty empty 0 -8 0 8 -262144
-1 -1 2500 1;
#X floatatom 93 341 5 0 0 0 - - -;
#X floatatom 132 341 5 0 0 0 - - -;
#X floatatom 172 341 5 0 0 0 - - -;
#X obj 93 367 vsl 15 128 0 1 0 0 empty empty empty 0 -8 0 8 -262144
-1 -1 2498 1;
#X obj 132 367 vsl 15 128 0 1 0 0 empty empty empty 0 -8 0 8 -262144
-1 -1 7599 1;
#X obj 172 367 vsl 15 128 0 1 0 0 empty empty empty 0 -8 0 8 -262144
-1 -1 2602 1;
#X text 207 34 list-equalize:;
#X text 227 53 scale a list so that all float elements sum up to 1
;
#X text 227 77 L_result = L_input / sum(L_input);
#X obj 306 253 list-equalize;
#X obj 306 280 print;
#X text 258 177 Also handles non-float elements gracefully.;
#X msg 306 226 90 plus 10 is 100;
#X text 40 138 0-127;
#X text 42 427 0-1;
#X connect 0 0 5 0;
#X connect 1 0 2 0;
#X connect 2 0 0 0;
#X connect 3 0 2 0;
#X connect 3 1 2 1;
#X connect 4 0 2 0;
#X connect 4 1 2 2;
#X connect 5 0 8 0;
#X connect 5 1 9 0;
#X connect 5 2 10 0;
#X connect 6 0 3 0;
#X connect 7 0 4 0;
#X connect 8 0 11 0;
#X connect 9 0 12 0;
#X connect 10 0 13 0;
#X connect 17 0 18 0;
#X connect 20 0 17 0;

--- NEW FILE: list-abs-help.pd ---
#N canvas 349 434 450 300 10;
#X obj 147 158 list-abs;
#X obj 147 204 print;
#X msg 147 109 1 2 -3 -4 5 and -6;
#X text 55 66 list-abs: apply abs() on float elements of a list.;
#X connect 0 0 1 0;
#X connect 2 0 0 0;

--- NEW FILE: list-normalize-help.pd ---
#N canvas 136 269 816 502 10;
#X obj 145 295 list-normalize;
#X msg 145 183 10 100 200;
#X msg 157 204 -10 100 200;
#X msg 165 226 -10 100 and -200;
#X msg 168 251 0.1 0.01 and -0.02;
#X text 40 13 list-normalize: normalize a list.;
#X text 54 89 All the other float elements then are scaled with the
same factor.;
#X text 54 41 First it looks for the element with the largest absolute
value \, then this is scaled to be 1 or -1 preserving the sign.;
#X text 54 129 It's the same operation as the "Normalize" instruction
in many soundfile editors or the "normalize 1" method of Pd arrays.
;
#X obj 427 425 list-math *;
#X text 33 427 Hint: To normalize to values other than 1 \, you can
use:;
#X obj 499 366 loadbang;
#X floatatom 499 406 5 0 0 0 - - -;
#X msg 499 386 3;
#X obj 145 377 print Normalized;
#X obj 427 450 print Norm_to_3;
#X obj 617 28 vsl 15 128 0 127 0 0 empty empty empty 0 -8 0 8 -262144
-1 -1 5600 1;
#X obj 617 205 pack 0 0 0;
#X obj 639 166 t b f;
#X obj 685 169 t b f;
#X obj 617 267 unpack 0 0 0;
#X obj 652 28 vsl 15 128 0 127 0 0 empty empty empty 0 -8 0 8 -262144
-1 -1 7400 1;
#X obj 685 28 vsl 15 128 0 127 0 0 empty empty empty 0 -8 0 8 -262144
-1 -1 4400 1;
#X floatatom 617 298 5 0 0 0 - - -;
#X floatatom 656 298 5 0 0 0 - - -;
#X floatatom 696 298 5 0 0 0 - - -;
#X obj 617 324 vsl 15 128 0 1 0 0 empty empty empty 0 -8 0 8 -262144
-1 -1 9611 1;
#X obj 656 324 vsl 15 128 0 1 0 0 empty empty empty 0 -8 0 8 -262144
-1 -1 12700 1;
#X obj 696 324 vsl 15 128 0 1 0 0 empty empty empty 0 -8 0 8 -262144
-1 -1 7551 1;
#X text 735 94 0-127;
#X text 740 390 0-1;
#X obj 617 240 list-normalize;
#X connect 0 0 9 0;
#X connect 0 0 14 0;
#X connect 1 0 0 0;
#X connect 2 0 0 0;
#X connect 3 0 0 0;
#X connect 4 0 0 0;
#X connect 9 0 15 0;
#X connect 11 0 13 0;
#X connect 12 0 9 1;
#X connect 13 0 12 0;
#X connect 16 0 17 0;
#X connect 17 0 31 0;
#X connect 18 0 17 0;
#X connect 18 1 17 1;
#X connect 19 0 17 0;
#X connect 19 1 17 2;
#X connect 20 0 23 0;
#X connect 20 1 24 0;
#X connect 20 2 25 0;
#X connect 21 0 18 0;
#X connect 22 0 19 0;
#X connect 23 0 26 0;
#X connect 24 0 27 0;
#X connect 25 0 28 0;
#X connect 31 0 20 0;

Index: README
===================================================================
RCS file: /cvsroot/pure-data/abstractions/footils/list-abs/README,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** README	1 Nov 2005 12:41:16 -0000	1.1
--- README	1 Nov 2005 18:20:14 -0000	1.2
***************
*** 9,12 ****
--- 9,16 ----
    get a list containing the last x atoms received.
  
+ list-abs.pd
+ 
+   change floats in a lists to their absolute values.
+ 
  list-accum.pd
  
***************
*** 30,33 ****
--- 34,41 ----
    serialize a list on demand: each bang will output the next element.
  
+ list-equalize.pd
+ 
+   scale a list so that all float elements sum up to 1
+ 
  list-inter.pd
  
***************
*** 52,55 ****
--- 60,67 ----
    find minimum and maximum float in a list.
  
+ list-normalize.pd
+ 
+   normalize a list to (-1,1) like you can normalize a Pd array.
+ 
  list-rev.pd
  

--- NEW FILE: list-equalize.pd ---
#N canvas 0 0 450 300 10;
#X obj 139 43 inlet;
#X obj 139 65 t a a;
#X obj 139 166 list-math /;
#X obj 211 93 list-accum;
#X obj 139 227 outlet;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 1 1 3 0;
#X connect 2 0 4 0;
#X connect 3 0 2 1;