[PD-cvs] abstractions/footils/list-abs list-moses-help.pd, NONE, 1.1 list-moses.pd, NONE, 1.1 README, 1.7, 1.8 list-math-help.pd, 1.1, 1.2 list-rot.pd, 1.3, 1.4

[Frank Barknecht]

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

Modified Files:
	README list-math-help.pd list-rot.pd 
Added Files:
	list-moses-help.pd list-moses.pd 
Log Message:
some new stuff like list-moses, some bugfixes

Index: list-rot.pd
===================================================================
RCS file: /cvsroot/pure-data/abstractions/footils/list-abs/list-rot.pd,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** list-rot.pd	2 Nov 2005 19:09:44 -0000	1.3
--- list-rot.pd	15 Nov 2005 12:24:03 -0000	1.4
***************
*** 7,20 ****
  #X text 198 43 list to rotate;
  #X obj 151 250 outlet;
- #X obj 151 70 t b l b;
  #X text 267 194 move right part of list to left.;
  #X obj 173 152 list-splat \$1;
  #X connect 0 0 4 1;
! #X connect 1 0 7 0;
! #X connect 2 0 9 1;
  #X connect 4 0 6 0;
! #X connect 7 0 4 0;
! #X connect 7 1 9 0;
! #X connect 7 2 0 1;
! #X connect 9 0 0 0;
! #X connect 9 1 0 1;
--- 7,20 ----
  #X text 198 43 list to rotate;
  #X obj 151 250 outlet;
  #X text 267 194 move right part of list to left.;
  #X obj 173 152 list-splat \$1;
+ #X obj 151 70 t b a b;
  #X connect 0 0 4 1;
! #X connect 1 0 9 0;
! #X connect 2 0 8 1;
  #X connect 4 0 6 0;
! #X connect 8 0 0 0;
! #X connect 8 1 0 1;
! #X connect 9 0 4 0;
! #X connect 9 1 8 0;
! #X connect 9 2 0 1;

Index: README
===================================================================
RCS file: /cvsroot/pure-data/abstractions/footils/list-abs/README,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -d -r1.7 -r1.8
*** README	14 Nov 2005 09:54:35 -0000	1.7
--- README	15 Nov 2005 12:24:03 -0000	1.8
***************
*** 84,87 ****
--- 84,94 ----
    find minimum and maximum float in a list.
  
+ list-moses.pd
+ 
+   A [moses] for lists: Route incoming list according to how an element compares
+   against a test float. It's possible to set the position of the element to
+   compare using a zero-based index. (Not to be confused with the [listmoses]
+   external which does something completely different!)
+ 
  list-mult.pd
  

Index: list-math-help.pd
===================================================================
RCS file: /cvsroot/pure-data/abstractions/footils/list-abs/list-math-help.pd,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** list-math-help.pd	1 Nov 2005 12:41:16 -0000	1.1
--- list-math-help.pd	15 Nov 2005 12:24:03 -0000	1.2
***************
*** 11,15 ****
  #X obj 160 226 list-math *;
  #X msg 159 167 1 2 3 4 a b c \, 10 20 30 x y z;
! #X text 144 93 Use as "list-math operator" where operator is some binary
  operator \, that expr can understand \, like + \, - \, * or /;
  #X obj 406 373 print L;
--- 11,15 ----
  #X obj 160 226 list-math *;
  #X msg 159 167 1 2 3 4 a b c \, 10 20 30 x y z;
! #X text 132 87 Use as "list-math operator" where operator is some binary
  operator \, that expr can understand \, like + \, - \, * or /;
  #X obj 406 373 print L;
***************
*** 22,25 ****
--- 22,32 ----
  #X obj 164 332 list-math /;
  #X obj 406 340 list-math -;
+ #X msg 406 416 1 2 3 4 a b c;
+ #X floatatom 516 415 5 0 0 0 - - -;
+ #X obj 406 448 list-math - 2;
+ #X obj 406 481 print L-with-arg;
+ #X text 249 448 Using a default arg:;
+ #X text 131 125 A second argument is accepted to set a default scalar
+ to use.;
  #X connect 1 0 9 0;
  #X connect 2 0 9 1;
***************
*** 35,36 ****
--- 42,46 ----
  #X connect 18 0 6 0;
  #X connect 19 0 12 0;
+ #X connect 20 0 22 0;
+ #X connect 21 0 22 1;
+ #X connect 22 0 23 0;

--- NEW FILE: list-moses-help.pd ---
#N canvas 483 52 726 404 10;
#X floatatom 95 93 5 0 0 0 - - -;
#X obj 95 355 print smaller;
#X obj 141 332 print bigger-or-equal;
#X floatatom 141 227 5 0 0 2 split-value - -;
#X text 57 38 list-moses: like [moses] for lists. Additionally you
can set the element index \, at which to compare \, if it is bigger
or smaller than the stored value.;
#X text 338 217 arg1: comparison value;
#X obj 188 255 hradio 15 1 0 8 empty empty split-index 0 -6 0 10 -262144
-1 -1 2;
#X floatatom 128 148 5 0 0 0 - - -;
#X obj 95 277 list-moses 4 2;
#X text 337 252 arg2: which element to compare (zero based). Can be
negative \, too.;
#X msg 128 172 1 TEST \$1 4 5 6 7 8;
#X obj 188 306 print not-a-float;
#X msg 95 117 \$1 \$1 \$1 \$1 \$1 \$1 \$1 \$1;
#X connect 0 0 12 0;
#X connect 3 0 8 1;
#X connect 6 0 8 2;
#X connect 7 0 10 0;
#X connect 8 0 1 0;
#X connect 8 1 2 0;
#X connect 8 2 11 0;
#X connect 10 0 8 0;
#X connect 12 0 8 0;

--- NEW FILE: list-moses.pd ---
#N canvas 264 111 497 457 10;
#X obj 66 63 inlet;
#X obj 201 120 list-idx \$2;
#X obj 273 91 inlet;
#X obj 231 210 inlet;
#X obj 201 148 route float;
#X obj 66 399 outlet;
#X obj 90 369 outlet;
#X obj 201 242 >= \$1;
#X obj 66 90 t a a;
#X text 165 34 arg1: comparison value;
#X text 165 59 arg2: which element to compare (zero based);
#X obj 114 338 outlet;
#X obj 273 210 b;
#X obj 66 278 list prepend 2;
#X obj 273 242 2;
#X obj 66 308 route 0 1 2;
#X connect 0 0 8 0;
#X connect 1 0 4 0;
#X connect 2 0 1 1;
#X connect 3 0 7 1;
#X connect 4 0 7 0;
#X connect 4 1 12 0;
#X connect 7 0 13 1;
#X connect 8 0 13 0;
#X connect 8 1 1 0;
#X connect 12 0 14 0;
#X connect 13 0 15 0;
#X connect 14 0 13 1;
#X connect 15 0 5 0;
#X connect 15 1 6 0;
#X connect 15 2 11 0;