[PD-cvs] abstractions/footils/list-abs last-x.pd, 1.2, 1.2.2.1 list-delete-help.pd, 1.1, 1.1.2.1 list-delete.pd, 1.1, 1.1.2.1 list-emath.pd, 1.1, 1.1.2.1 list-len.pd, 1.1, 1.1.2.1 list-math.pd, 1.4, 1.4.2.1 list-minmax.pd, 1.1, 1.1.2.1 list-rot-help.pd, 1.1, 1.1.2.1 list-rot.pd, 1.4, 1.4.2.1

Frank Barknecht fbar at users.sourceforge.net
Mon May 28 14:28:24 CEST 2007 

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

Modified Files:
      Tag: branch-v0-39-2-extended
	last-x.pd list-delete-help.pd list-delete.pd list-emath.pd 
	list-len.pd list-math.pd list-minmax.pd list-rot-help.pd 
	list-rot.pd 
Log Message:
bugfixes to list abs added to pd-ext branch

Index: list-emath.pd
===================================================================
RCS file: /cvsroot/pure-data/abstractions/footils/list-abs/list-emath.pd,v
retrieving revision 1.1
retrieving revision 1.1.2.1
diff -C2 -d -r1.1 -r1.1.2.1
*** list-emath.pd	14 Nov 2005 09:54:35 -0000	1.1
--- list-emath.pd	28 May 2007 12:28:22 -0000	1.1.2.1
***************
*** 21,25 ****
  #X obj 341 76 symbol \$1;
  #X obj 325 232 f;
! #X obj 78 322 expr $f1 \$1 $f2;
  #X connect 0 0 14 0;
  #X connect 1 0 4 1;
--- 21,25 ----
  #X obj 341 76 symbol \$1;
  #X obj 325 232 f;
! #X obj 78 322 \$1;
  #X connect 0 0 14 0;
  #X connect 1 0 4 1;

Index: list-rot.pd
===================================================================
RCS file: /cvsroot/pure-data/abstractions/footils/list-abs/list-rot.pd,v
retrieving revision 1.4
retrieving revision 1.4.2.1
diff -C2 -d -r1.4 -r1.4.2.1
*** list-rot.pd	15 Nov 2005 12:24:03 -0000	1.4
--- list-rot.pd	28 May 2007 12:28:22 -0000	1.4.2.1
***************
*** 1,20 ****
! #N canvas 158 147 575 357 10;
! #X obj 173 193 list prepend;
  #X obj 151 44 inlet;
! #X obj 259 115 inlet;
! #X text 311 115 how often to rotate;
! #X obj 151 220 list;
! #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;
--- 1,28 ----
! #N canvas 336 258 575 357 10;
! #X obj 170 253 list prepend;
  #X obj 151 44 inlet;
! #X obj 256 47 inlet;
! #X text 257 25 how often to rotate;
! #X obj 151 280 list;
! #X text 146 24 list to rotate;
! #X obj 151 310 outlet;
! #X text 278 232 move right part of list to left.;
! #X obj 256 174 mod \$1;
! #X obj 256 152 f \$1;
! #X obj 170 212 list split \$1;
! #X obj 151 70 t b a b b a;
! #X obj 293 153 list-len;
  #X connect 0 0 4 1;
! #X connect 1 0 11 0;
! #X connect 2 0 9 0;
  #X connect 4 0 6 0;
! #X connect 8 0 10 1;
! #X connect 9 0 8 0;
! #X connect 10 0 0 0;
! #X connect 10 1 0 1;
! #X connect 11 0 4 0;
! #X connect 11 1 10 0;
! #X connect 11 2 0 1;
! #X connect 11 3 9 0;
! #X connect 11 4 12 0;
! #X connect 12 0 8 1;

Index: list-minmax.pd
===================================================================
RCS file: /cvsroot/pure-data/abstractions/footils/list-abs/list-minmax.pd,v
retrieving revision 1.1
retrieving revision 1.1.2.1
diff -C2 -d -r1.1 -r1.1.2.1
*** list-minmax.pd	1 Nov 2005 12:41:16 -0000	1.1
--- list-minmax.pd	28 May 2007 12:28:22 -0000	1.1.2.1
***************
*** 1,12 ****
! #N canvas 499 299 571 374 10;
! #X obj 128 37 list-drip;
! #X obj 128 60 route float;
! #X obj 128 204 f;
! #X obj 112 284 outlet;
! #X obj 171 259 f;
! #X obj 171 286 outlet;
! #X obj 40 198 t b b;
! #X obj 128 13 inlet;
! #X obj 112 256 f;
  #N canvas 0 0 450 300 once 0;
  #X obj 110 75 inlet;
--- 1,12 ----
! #N canvas 385 204 676 470 10;
! #X obj 128 97 list-drip;
! #X obj 128 120 route float;
! #X obj 159 256 f;
! #X obj 106 394 outlet;
! #X obj 165 369 f;
! #X obj 165 396 outlet;
! #X obj 106 305 t b b;
! #X obj 106 10 inlet;
! #X obj 106 366 f;
  #N canvas 0 0 450 300 once 0;
  #X obj 110 75 inlet;
***************
*** 24,60 ****
  #X connect 4 0 1 1;
  #X connect 5 0 4 0;
! #X restore 218 112 pd once;
! #X obj 128 90 t f f f;
! #X obj 218 59 s \$0-end;
! #X obj 262 87 r \$0-end;
! #X obj 40 174 r \$0-end;
! #X obj 128 146 <=;
! #X obj 128 168 select 1;
! #X obj 244 205 f;
! #X obj 244 169 select 1;
! #X obj 244 147 >=;
  #X connect 0 0 1 0;
! #X connect 0 1 11 0;
! #X connect 1 0 10 0;
! #X connect 2 0 8 1;
! #X connect 2 0 14 1;
  #X connect 4 0 5 0;
  #X connect 6 0 8 0;
  #X connect 6 1 4 0;
! #X connect 7 0 0 0;
  #X connect 8 0 3 0;
! #X connect 9 0 14 1;
! #X connect 9 0 18 1;
! #X connect 10 0 14 0;
! #X connect 10 0 18 0;
! #X connect 10 1 16 1;
! #X connect 10 1 2 1;
! #X connect 10 2 9 0;
! #X connect 12 0 9 1;
! #X connect 13 0 6 0;
! #X connect 14 0 15 0;
! #X connect 15 0 2 0;
! #X connect 16 0 4 1;
! #X connect 16 0 18 1;
! #X connect 17 0 16 0;
! #X connect 18 0 17 0;
--- 24,53 ----
  #X connect 4 0 1 1;
  #X connect 5 0 4 0;
! #X restore 260 183 pd once;
! #X obj 275 258 f;
! #X obj 244 257 max;
! #X obj 128 256 min;
! #X obj 128 150 t a a a;
! #X obj 106 30 t b a b;
! #X text 321 183 prime [min] and [max] with first item once;
  #X connect 0 0 1 0;
! #X connect 1 0 13 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 14 0;
  #X connect 8 0 3 0;
! #X connect 9 0 11 1;
! #X connect 9 0 12 1;
! #X connect 10 0 11 1;
! #X connect 11 0 10 0;
! #X connect 11 0 4 1;
! #X connect 12 0 2 0;
! #X connect 12 0 8 1;
! #X connect 13 0 12 0;
! #X connect 13 1 11 0;
! #X connect 13 2 9 0;
! #X connect 14 0 6 0;
! #X connect 14 1 0 0;
! #X connect 14 2 9 1;

Index: list-math.pd
===================================================================
RCS file: /cvsroot/pure-data/abstractions/footils/list-abs/list-math.pd,v
retrieving revision 1.4
retrieving revision 1.4.2.1
diff -C2 -d -r1.4 -r1.4.2.1
*** list-math.pd	13 Sep 2006 18:40:41 -0000	1.4
--- list-math.pd	28 May 2007 12:28:22 -0000	1.4.2.1
***************
*** 1,40 ****
! #N canvas 424 89 624 640 10;
! #X msg 119 113 1 2 3 4 a b c;
! #X text 251 117 <- click to test;
! #X obj 196 386 list;
! #X obj 77 499 list;
! #X obj 100 271 route float;
! #X obj 100 385 list prepend;
! #X floatatom 248 273 5 0 0 0 - - -;
! #X obj 78 150 t b a b;
! #X text 254 314 Do math only on float elements;
! #X text 260 177 clear result list;
! #X text 175 242 "Drip" (serialize) the list;
! #X text 258 389 Repack the list (think of the counter);
! #X text 124 496 Final result is built here;
! #X obj 78 81 inlet;
! #X obj 100 307 expr $f1 \$1 $f2;
! #X obj 200 273 inlet;
! #X obj 77 530 outlet;
! #X text 182 32 Use as "list-math operator" where operator is some binary
  operator \, expr can understand.;
! #X obj 290 266 loadbang;
! #X obj 290 287 f \$2;
! #X obj 100 242 list-drip;
! #X connect 0 0 7 0;
! #X connect 2 0 5 1;
! #X connect 3 0 16 0;
! #X connect 4 0 14 0;
! #X connect 4 1 5 0;
! #X connect 5 0 2 0;
! #X connect 5 0 3 1;
! #X connect 6 0 14 1;
! #X connect 7 0 3 0;
! #X connect 7 1 20 0;
! #X connect 7 2 5 1;
! #X connect 13 0 7 0;
! #X connect 14 0 5 0;
! #X connect 15 0 14 1;
! #X connect 18 0 19 0;
! #X connect 19 0 14 1;
! #X connect 20 0 4 0;
--- 1,16 ----
! #N canvas 424 89 462 324 10;
! #X obj 55 58 inlet;
! #X obj 55 235 outlet;
! #X text 44 16 Use as "list-math operator" where operator is some binary
  operator \, expr can understand.;
! #X obj 55 136 list-map;
! #X obj 152 208 \$1 \$2;
! #X obj 182 134 inlet;
! #X obj 152 97 route float;
! #X connect 0 0 3 0;
! #X connect 3 0 1 0;
! #X connect 3 1 6 0;
! #X connect 4 0 3 1;
! #X connect 5 0 4 1;
! #X connect 6 0 4 0;
! #X connect 6 1 3 1;

Index: list-delete.pd
===================================================================
RCS file: /cvsroot/pure-data/abstractions/footils/list-abs/list-delete.pd,v
retrieving revision 1.1
retrieving revision 1.1.2.1
diff -C2 -d -r1.1 -r1.1.2.1
*** list-delete.pd	6 Nov 2005 11:48:18 -0000	1.1
--- list-delete.pd	28 May 2007 12:28:22 -0000	1.1.2.1
***************
*** 1,11 ****
! #N canvas 0 0 450 300 10;
  #X obj 151 149 list-splat \$1;
! #X obj 237 52 inlet;
! #X text 235 32 pos;
! #X obj 151 53 inlet;
! #X text 135 31 orig. list;
! #X obj 194 177 list split 1;
! #X obj 151 216 list;
! #X obj 151 245 outlet;
  #X connect 0 0 6 0;
  #X connect 0 1 5 0;
--- 1,17 ----
! #N canvas 18 49 525 309 10;
  #X obj 151 149 list-splat \$1;
! #X obj 237 50 inlet;
! #X text 235 30 pos;
! #X obj 151 51 inlet;
! #X text 135 29 orig. list;
! #X obj 194 217 list split 1;
! #X obj 151 256 list;
! #X obj 151 285 outlet;
! #X obj 302 127 moses 1;
! #X obj 302 50 inlet;
! #X obj 327 78 loadbang;
! #X text 299 30 how many items to delete;
! #X obj 302 106 f \$2;
! #X msg 302 149 1;
  #X connect 0 0 6 0;
  #X connect 0 1 5 0;
***************
*** 15,16 ****
--- 21,28 ----
  #X connect 5 1 6 1;
  #X connect 6 0 7 0;
+ #X connect 8 0 13 0;
+ #X connect 8 1 5 1;
+ #X connect 9 0 12 0;
+ #X connect 10 0 12 0;
+ #X connect 12 0 8 0;
+ #X connect 13 0 5 1;

Index: last-x.pd
===================================================================
RCS file: /cvsroot/pure-data/abstractions/footils/list-abs/last-x.pd,v
retrieving revision 1.2
retrieving revision 1.2.2.1
diff -C2 -d -r1.2 -r1.2.2.1
*** last-x.pd	8 Nov 2005 09:15:45 -0000	1.2
--- last-x.pd	28 May 2007 12:28:22 -0000	1.2.2.1
***************
*** 1,10 ****
  #N canvas 417 318 464 379 10;
! #X obj 244 149 inlet;
  #X obj 179 149 inlet;
  #X obj 179 253 outlet;
- #X obj 179 206 list-lastx;
  #X text 54 77 This is just a backwards compatibility wrapper around
  list-lastx;
! #X connect 0 0 3 1;
! #X connect 1 0 3 0;
! #X connect 3 0 2 0;
--- 1,10 ----
  #N canvas 417 318 464 379 10;
! #X obj 265 147 inlet;
  #X obj 179 149 inlet;
  #X obj 179 253 outlet;
  #X text 54 77 This is just a backwards compatibility wrapper around
  list-lastx;
! #X obj 179 206 list-lastx \$1;
! #X connect 0 0 4 1;
! #X connect 1 0 4 0;
! #X connect 4 0 2 0;

Index: list-len.pd
===================================================================
RCS file: /cvsroot/pure-data/abstractions/footils/list-abs/list-len.pd,v
retrieving revision 1.1
retrieving revision 1.1.2.1
diff -C2 -d -r1.1 -r1.1.2.1
*** list-len.pd	1 Nov 2005 12:41:16 -0000	1.1
--- list-len.pd	28 May 2007 12:28:22 -0000	1.1.2.1
***************
*** 1,25 ****
  #N canvas 0 0 534 321 10;
  #X obj 126 70 inlet;
! #X obj 82 144 list-drip;
! #X obj 161 209 + 1;
! #X obj 82 172 b;
! #X obj 116 249 f;
! #X obj 116 276 outlet;
! #X obj 148 183 1;
! #X obj 132 211 f 1;
! #X obj 206 213 0;
! #X obj 126 104 t a b b;
  #X text 37 37 list-len: calculate length of a list.;
! #X connect 0 0 9 0;
! #X connect 1 0 3 0;
! #X connect 1 1 4 0;
! #X connect 2 0 7 1;
! #X connect 3 0 7 0;
! #X connect 4 0 5 0;
! #X connect 6 0 7 1;
! #X connect 7 0 2 0;
! #X connect 7 0 4 1;
! #X connect 8 0 4 1;
! #X connect 9 0 1 0;
! #X connect 9 1 6 0;
! #X connect 9 2 8 0;
--- 1,9 ----
  #N canvas 0 0 534 321 10;
  #X obj 126 70 inlet;
! #X obj 126 271 outlet;
  #X text 37 37 list-len: calculate length of a list.;
! #X obj 126 149 list length;
! #X obj 126 125 list;
! #X connect 0 0 4 0;
! #X connect 3 0 1 0;
! #X connect 4 0 3 0;

Index: list-delete-help.pd
===================================================================
RCS file: /cvsroot/pure-data/abstractions/footils/list-abs/list-delete-help.pd,v
retrieving revision 1.1
retrieving revision 1.1.2.1
diff -C2 -d -r1.1 -r1.1.2.1
*** list-delete-help.pd	6 Nov 2005 11:48:18 -0000	1.1
--- list-delete-help.pd	28 May 2007 12:28:22 -0000	1.1.2.1
***************
*** 1,15 ****
! #N canvas 395 302 450 300 10;
! #X obj 237 151 hradio 15 1 0 8 empty empty POS_(zero-based) 0 -6 0
! 8 -262144 -1 -1 0;
! #X floatatom 237 171 5 0 0 0 - - -;
! #X msg 151 109 0 1 2 3 4;
! #X obj 151 227 print;
! #X obj 151 198 list-delete 2;
! #X text 36 72 Argument: Default POS to delete.;
  #X text 36 55 Negative POS counts from the end of the list.;
  #X text 35 26 list-delete: delete element at position POS from list.
  ;
  #X connect 0 0 1 0;
! #X connect 1 0 4 1;
! #X connect 2 0 4 0;
! #X connect 4 0 3 0;
--- 1,30 ----
! #N canvas 330 168 572 423 10;
! #X obj 85 190 hradio 15 1 0 8 empty empty POS_(zero-based) 0 -6 0 8
! -262144 -1 -1 2;
! #X floatatom 85 210 5 0 0 0 - - -;
! #X msg 49 160 0 1 2 3 4;
! #X obj 49 288 print;
  #X text 36 55 Negative POS counts from the end of the list.;
  #X text 35 26 list-delete: delete element at position POS from list.
  ;
+ #X floatatom 121 239 5 0 0 1 how_many - -;
+ #X msg 293 170 0 1 2 3 4;
+ #X obj 293 288 print;
+ #X text 322 211 arguments: <pos> <bodycount>;
+ #X obj 49 258 list-delete;
+ #X text 38 79 Arguments;
+ #X text 51 102 1: Default POS to delete.;
+ #X text 51 123 2: How many items to delete (cannot be less than 1)
+ ;
+ #X floatatom 343 239 5 0 0 0 - - -;
+ #X floatatom 393 240 5 0 0 0 - - -;
+ #X obj 293 259 list-delete 2 3;
  #X connect 0 0 1 0;
! #X connect 1 0 10 1;
! #X connect 2 0 10 0;
! #X connect 6 0 10 2;
! #X connect 7 0 16 0;
! #X connect 10 0 3 0;
! #X connect 14 0 16 1;
! #X connect 15 0 16 2;
! #X connect 16 0 8 0;

Index: list-rot-help.pd
===================================================================
RCS file: /cvsroot/pure-data/abstractions/footils/list-abs/list-rot-help.pd,v
retrieving revision 1.1
retrieving revision 1.1.2.1
diff -C2 -d -r1.1 -r1.1.2.1
*** list-rot-help.pd	1 Nov 2005 12:41:16 -0000	1.1
--- list-rot-help.pd	28 May 2007 12:28:22 -0000	1.1.2.1
***************
*** 7,11 ****
  #X text 64 61 Rotate a list (move ROT# elements from front to back)
  ;
! #X text 63 81 ROT# has to be positive \, negative ROT# will not rotate!
  ;
  #X connect 0 0 3 0;
--- 7,11 ----
  #X text 64 61 Rotate a list (move ROT# elements from front to back)
  ;
! #X text 63 81 Negative ROT# will rotate elements from back to front.
  ;
  #X connect 0 0 3 0;

More information about the Pd-cvs mailing list