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

[Frank Barknecht]

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;