[PD-cvs] abstractions/footils/list-abs list-delete-help.pd, 1.1, 1.2 list-delete.pd, 1.1, 1.2

[Frank Barknecht]

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

Modified Files:
	list-delete-help.pd list-delete.pd 
Log Message:
made number of elements settable

Index: list-delete.pd
===================================================================
RCS file: /cvsroot/pure-data/abstractions/footils/list-abs/list-delete.pd,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** list-delete.pd	6 Nov 2005 11:48:18 -0000	1.1
--- list-delete.pd	27 May 2007 10:13:48 -0000	1.2
***************
*** 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: 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.2
diff -C2 -d -r1.1 -r1.2
*** list-delete-help.pd	6 Nov 2005 11:48:18 -0000	1.1
--- list-delete-help.pd	27 May 2007 10:13:48 -0000	1.2
***************
*** 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;