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;