Update of /cvsroot/pure-data/abstractions/footils/list-abs In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv24178
Added Files: Tag: branch-v0-39-2-extended list-seek-help.pd list-seek.pd Log Message: brought in list-seek from head since it should be compatible and it quite useful
--- NEW FILE: list-seek.pd --- #N canvas 443 126 634 604 10; #X obj 105 76 inlet; #X obj 300 74 inlet; #X obj 135 501 outlet; #X obj 300 500 outlet; #X text 349 72 list to manipulate; #X text 298 523 bang when done or index out of range; #X text 134 522 output value; #X obj 135 416 list; #X obj 300 438 bang; #X obj 135 317 moses; #X obj 127 239 + 1; #X msg 105 191 0; #X obj 165 294 list-len; #X obj 135 440 list-idx; #X obj 135 391 t b a; #X obj 89 239 f; #X obj 89 317 moses; #X obj 300 103 t b a a; #X obj 105 109 route set; #X obj 105 139 route bang; #X text 31 23 bang for next item , float for index or set for no-output. ; #X connect 0 0 18 0; #X connect 1 0 17 0; #X connect 7 0 13 0; #X connect 8 0 3 0; #X connect 9 0 14 0; #X connect 9 1 8 0; #X connect 10 0 15 1; #X connect 11 0 15 1; #X connect 12 0 9 1; #X connect 13 0 2 0; #X connect 14 0 7 0; #X connect 14 1 13 1; #X connect 15 0 10 0; #X connect 15 0 16 0; #X connect 16 0 8 0; #X connect 16 1 9 0; #X connect 17 0 11 0; #X connect 17 1 12 0; #X connect 17 2 7 1; #X connect 18 0 19 0; #X connect 18 1 15 0; #X connect 19 0 11 0; #X connect 19 1 15 1;
--- NEW FILE: list-seek-help.pd --- #N canvas 334 289 666 505 10; #X msg 139 267 list one two three four; #X obj 139 365 bng 15 250 50 0 empty empty empty 0 -6 0 10 -262144 -1 -1; #X text 160 366 bang when done or index out of range; #X floatatom 98 151 5 0 0 0 - - -; #X msg 81 104 bang; #N canvas 0 0 450 300 show 0; #X obj 47 38 inlet; #X obj 47 115 outlet; #X obj 47 62 list prepend set; #X obj 47 85 list trim; #X connect 0 0 2 0; #X connect 2 0 3 0; #X connect 3 0 1 0; #X restore 81 403 pd show; #X msg 81 424; #X msg 89 381 bang; #X msg 165 312 0 1 2 3 4 5 6 7 8 9; #X msg 151 290 twenty three 23; #X text 322 267 Set list to seek (will also do a rewind); #X text 75 45 walk through a list element by element - similar to [textfile] and [qlist].; #X text 142 149 output item by index number (zero-based , only positive) ; #X text 63 461 2007 Hans-Christoph Steiner , Frank Barknecht; #X msg 129 221 set; #X msg 121 200 set $1; #X floatatom 121 180 5 0 0 0 - - -; #X text 175 223 just "set" is "set 0" (rewind); #X text 173 200 set start position without output; #X obj 81 334 list-seek; #X text 130 103 output one item and move to the next (takes off , where the last float , set or bang message was); #X text 63 19 [list-seek]; #N canvas 324 88 739 396 example 0; #X msg 203 170 0; #X obj 145 140 list-seek; #X obj 63 152 delay; #X obj 78 184 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X obj 203 196 spigot; #X obj 240 26 tgl 32 0 empty empty empty 17 7 0 10 -262144 -1 -1 0 1; #X obj 145 71 select 1; #X obj 145 92 t b b; #X obj 63 333 dac~; #X obj 64 309 *~ 0; #X obj 101 309 dbtorms; #X obj 104 286 hsl 128 15 0 100 0 0 empty empty empty -2 -8 0 10 -262144 -1 -1 10800 1; #X text 261 171 Caution: may generate stack overflows when [list-seek] is uninitialized!; #X obj 219 141 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X floatatom 93 105 5 0 0 0 - - -; #N canvas 0 0 397 287 plong~ 0; #X obj 112 142 vline~; #X obj 112 221 *~; #X obj 112 245 outlet~; #X obj 112 54 inlet; #X obj 127 200 osc~ 220; #X obj 113 168 *~; #X msg 112 113 1 3 , 0 100 20; #X obj 112 78 t b a; #X obj 215 112 mtof; #X connect 0 0 5 0; #X connect 0 0 5 1; #X connect 1 0 2 0; #X connect 3 0 7 0; #X connect 4 0 1 1; #X connect 5 0 1 0; #X connect 6 0 0 0; #X connect 7 0 6 0; #X connect 7 1 8 0; #X connect 8 0 4 0; #X restore 63 263 pd plong~; #X obj 63 130 * 120; #X msg 63 240 60; #X msg 203 115 0 2 2 1 2 2 2 1; #X connect 0 0 4 0; #X connect 1 0 16 0; #X connect 1 1 0 0; #X connect 1 1 13 0; #X connect 2 0 3 0; #X connect 2 0 1 0; #X connect 2 0 17 0; #X connect 4 0 1 0; #X connect 5 0 4 1; #X connect 5 0 6 0; #X connect 6 0 7 0; #X connect 7 0 1 0; #X connect 7 1 18 0; #X connect 9 0 8 0; #X connect 9 0 8 1; #X connect 10 0 9 1; #X connect 11 0 10 0; #X connect 14 0 16 1; #X connect 15 0 9 0; #X connect 16 0 2 0; #X connect 17 0 15 0; #X connect 18 0 1 1; #X restore 265 407 pd example; #X connect 0 0 19 1; #X connect 3 0 19 0; #X connect 4 0 19 0; #X connect 5 0 6 0; #X connect 7 0 5 0; #X connect 8 0 19 1; #X connect 9 0 19 1; #X connect 14 0 19 0; #X connect 15 0 19 0; #X connect 16 0 15 0; #X connect 19 0 5 0; #X connect 19 1 1 0;