Update of /cvsroot/pure-data/abstractions/footils/list-abs In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv568
Added Files: list-delete-help.pd list-delete.pd list-insert-help.pd list-insert.pd Log Message: added list-insert and list-delete
--- NEW FILE: list-delete.pd --- #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; #X connect 0 2 7 0; #X connect 1 0 0 1; #X connect 3 0 0 0; #X connect 5 1 6 1; #X connect 6 0 7 0;
--- NEW FILE: list-delete-help.pd --- #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;
--- NEW FILE: list-insert.pd --- #N canvas 313 86 599 614 10; #X obj 94 50 inlet; #X obj 259 133 inlet; #X obj 308 134 inlet; #X text 257 112 pos; #X text 306 113 list; #X obj 173 180 list; #X obj 94 528 outlet; #X obj 94 308 list; #X obj 94 250 list prepend; #X text 91 29 list to insert; #X obj 173 206 list-splat $1; #X obj 371 246 > 0; #X obj 292 337 route 0 1; #X obj 292 316 list prepend; #X obj 292 371 list prepend; #X obj 393 370 list; #X obj 94 75 t a b b a; #X obj 152 100 s $0-insert; #X obj 416 338 r $0-insert; #X obj 149 122 s $0-init; #X obj 190 250 r $0-init; #X obj 322 290 s $0-out-of-range; #X obj 145 350 r $0-out-of-range; #X obj 292 243 t a b; #X obj 94 374 spigot 1; #X obj 397 157 s $0-out-of-range; #X obj 397 108 r $0-init; #X obj 397 130 1; #X obj 322 266 0; #X obj 130 307 r $0-init; #X text 231 524 This is more complicated than I thought!; #X connect 0 0 16 0; #X connect 1 0 10 1; #X connect 1 0 11 0; #X connect 2 0 5 1; #X connect 5 0 10 0; #X connect 7 0 24 0; #X connect 8 0 7 0; #X connect 10 0 8 1; #X connect 10 1 7 1; #X connect 10 2 23 0; #X connect 11 0 13 1; #X connect 12 0 14 0; #X connect 12 1 15 0; #X connect 13 0 12 0; #X connect 14 0 6 0; #X connect 15 0 6 0; #X connect 16 0 8 0; #X connect 16 1 5 0; #X connect 16 2 19 0; #X connect 16 3 17 0; #X connect 18 0 15 1; #X connect 18 0 14 1; #X connect 20 0 8 1; #X connect 22 0 24 1; #X connect 23 0 13 0; #X connect 23 1 28 0; #X connect 24 0 6 0; #X connect 26 0 27 0; #X connect 27 0 25 0; #X connect 28 0 21 0; #X connect 29 0 7 1;
--- NEW FILE: list-insert-help.pd --- #N canvas 515 468 496 403 10; #X obj 125 251 list-insert 2; #X obj 168 172 hradio 15 1 0 8 empty empty POS_(zero-based) 0 -6 0 8 -262144 -1 -1 3; #X msg 233 222 0 1 2 3 4 5 6; #X text 231 203 original list; #X floatatom 168 197 5 0 0 0 - - -; #X text 68 69 Argument: default POS; #X text 67 49 POS is zerobased. Negative POS will count from the end. ; #X msg 125 132 list SOME ELEMENTS; #X msg 125 162 INS; #X text 65 12 list-insert: insert LIST before element at position POS in original list.; #X obj 125 280 print NEW_LIST; #X floatatom 125 190 5 0 0 0 - - -; #X text 125 113 LIST or element to insert; #X connect 0 0 10 0; #X connect 1 0 4 0; #X connect 2 0 0 2; #X connect 4 0 0 1; #X connect 7 0 0 0; #X connect 8 0 0 0; #X connect 11 0 0 0;