[PD-cvs] abstractions/footils/list-abs list-idx-help.pd, NONE, 1.1 list-idx.pd, NONE, 1.1 list-splat-help.pd, NONE, 1.1 list-splat.pd, NONE, 1.1 README, 1.3, 1.4 list-rev.pd, 1.1, 1.2 list-rot.pd, 1.1, 1.2

Wed Nov 2 10:59:50 CET 2005

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

Modified Files:
	README list-rev.pd list-rot.pd 
Added Files:
	list-idx-help.pd list-idx.pd list-splat-help.pd list-splat.pd 
Log Message:
added splat, idx. Fixes to rot and rev.

--- NEW FILE: list-idx-help.pd ---
#N canvas 424 409 450 300 10;
#X obj 136 121 t b f;
#X symbolatom 136 222 10 0 0 0 - - -;
#X obj 136 98 hradio 15 1 0 8 empty empty empty 0 -6 0 8 -262144 -1
-1 7;
#X msg 136 166 a b c d e f g h;
#X obj 136 193 list-idx 2;
#X text 86 52 list-idx: Get element at position idx.;
#X connect 0 0 3 0;
#X connect 0 1 4 1;
#X connect 2 0 0 0;
#X connect 3 0 4 0;
#X connect 4 0 1 0;

Index: list-rot.pd
===================================================================
RCS file: /cvsroot/pure-data/abstractions/footils/list-abs/list-rot.pd,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** list-rot.pd	1 Nov 2005 12:41:16 -0000	1.1
--- list-rot.pd	2 Nov 2005 09:59:48 -0000	1.2
***************
*** 1,45 ****
! #N canvas 489 301 701 467 10;
! #X obj 322 283 list split 1;
! #X obj 322 324 list prepend;
! #X obj 367 216 until;
! #X text 416 325 move first element to back;
! #X obj 322 251 list;
! #X obj 267 277 t l;
! #X obj 323 170 f \$1;
! #X obj 323 194 moses 1;
! #X obj 302 54 inlet;
! #X obj 406 83 inlet;
! #X text 457 83 how often to rotate;
! #X obj 221 268 list;
! #X obj 221 231 b;
! #X text 74 191 pass unchanged \, if rot# < 1;
! #X floatatom 397 140 5 0 0 0 - - -;
! #X obj 302 80 t b b l;
! #X obj 299 388 list;
! #X obj 238 116 s \$0-out;
! #X obj 211 351 r \$0-out;
! #X text 349 53 list to rotate;
! #X msg 135 37 0 1 2 3 4 5 6 7;
! #X obj 299 418 outlet;
! #X connect 0 0 1 0;
! #X connect 0 1 1 1;
! #X connect 1 0 5 0;
! #X connect 1 0 16 1;
! #X connect 2 0 4 0;
! #X connect 4 0 0 0;
! #X connect 5 0 4 1;
! #X connect 6 0 7 0;
! #X connect 7 0 12 0;
! #X connect 7 1 2 0;
! #X connect 8 0 15 0;
! #X connect 9 0 6 1;
! #X connect 11 0 16 1;
! #X connect 12 0 11 0;
! #X connect 14 0 6 1;
! #X connect 15 0 17 0;
! #X connect 15 1 6 0;
! #X connect 15 2 4 1;
! #X connect 15 2 11 1;
! #X connect 16 0 21 0;
! #X connect 18 0 16 0;
! #X connect 20 0 15 0;
--- 1,20 ----
! #N canvas 158 147 575 357 10;
! #X obj 173 193 list prepend;
! #X obj 151 44 inlet;
! #X obj 252 115 inlet;
! #X text 304 115 how often to rotate;
! #X obj 151 220 list;
! #X text 198 43 list to rotate;
! #X obj 151 250 outlet;
! #X obj 173 152 list-splat 1;
! #X obj 151 70 t b l b;
! #X text 267 194 move right part of list to left.;
! #X connect 0 0 4 1;
! #X connect 1 0 8 0;
! #X connect 2 0 7 1;
! #X connect 4 0 6 0;
! #X connect 7 0 0 0;
! #X connect 7 1 0 1;
! #X connect 8 0 4 0;
! #X connect 8 1 7 0;
! #X connect 8 2 0 1;

--- NEW FILE: list-splat.pd ---
#N canvas 628 149 479 392 10;
#X obj 84 29 inlet;
#X obj 162 29 inlet;
#X obj 84 226 outlet;
#X obj 171 227 outlet;
#X obj 267 228 outlet;
#N canvas 112 19 601 430 negatives 0;
#X obj 316 97 inlet;
#X obj 381 96 inlet;
#X obj 316 249 list-rev;
#X obj 316 279 outlet;
#X obj 384 281 outlet;
#X obj 455 283 outlet;
#X obj 316 125 list-rev;
#X obj 384 250 list-rev;
#X obj 455 252 list-rev;
#X obj 316 205 list;
#X obj 316 180 t b a;
#X obj 316 157 list split;
#X text 54 192 keep execution order right to left:;
#X connect 0 0 6 0;
#X connect 1 0 11 1;
#X connect 2 0 3 0;
#X connect 6 0 11 0;
#X connect 7 0 4 0;
#X connect 8 0 5 0;
#X connect 9 0 2 0;
#X connect 10 0 9 0;
#X connect 10 1 7 0;
#X connect 11 0 10 0;
#X connect 11 1 9 1;
#X connect 11 2 8 0;
#X restore 188 169 pd negatives;
#X obj 135 113 < 0;
#N canvas 235 272 450 300 route 0;
#X obj 76 76 inlet;
#X obj 155 74 inlet;
#X obj 76 123 list prepend;
#X obj 76 158 route 0 1;
#X obj 76 231 outlet;
#X obj 105 192 outlet;
#X connect 0 0 2 0;
#X connect 1 0 2 1;
#X connect 2 0 3 0;
#X connect 3 0 4 0;
#X connect 3 1 5 0;
#X restore 84 137 pd route;
#X obj 162 63 f \$1;
#X obj 210 29 loadbang;
#X obj 162 85 t f f f;
#X obj 267 134 * -1;
#X obj 84 168 list split;
#X connect 0 0 7 0;
#X connect 1 0 8 0;
#X connect 5 0 2 0;
#X connect 5 1 3 0;
#X connect 5 2 4 0;
#X connect 6 0 7 1;
#X connect 7 0 12 0;
#X connect 7 1 5 0;
#X connect 8 0 10 0;
#X connect 9 0 8 0;
#X connect 10 0 6 0;
#X connect 10 1 12 1;
#X connect 10 2 11 0;
#X connect 11 0 5 1;
#X connect 12 0 2 0;
#X connect 12 1 3 0;
#X connect 12 2 4 0;

--- NEW FILE: list-splat-help.pd ---
#N canvas 489 156 597 355 10;
#X floatatom 197 104 5 0 0 0 - - -;
#X msg 118 105 0 1 2 3 4;
#X obj 197 163 print shorter;
#N canvas 130 18 600 416 rot 0;
#X obj 173 193 list prepend;
#X obj 151 44 inlet;
#X obj 252 115 inlet;
#X text 304 115 how often to rotate;
#X obj 151 220 list;
#X text 198 43 list to rotate;
#X obj 151 250 outlet;
#X obj 151 70 t b l b;
#X text 267 194 move right part of list to left.;
#X obj 173 152 list-splat 1;
#X connect 0 0 4 1;
#X connect 1 0 7 0;
#X connect 2 0 9 1;
#X connect 4 0 6 0;
#X connect 7 0 4 0;
#X connect 7 1 9 0;
#X connect 7 2 0 1;
#X connect 9 0 0 0;
#X connect 9 1 0 1;
#X restore 374 156 pd rot;
#X msg 374 126 0 1 2 3 4;
#X floatatom 456 127 5 0 0 0 - - -;
#X obj 374 184 print;
#X obj 118 138 list-splat 2;
#X text 72 37 list-splat: an advanced [list split] which also accepts
negative indices to split of elements from the back of a list.;
#X obj 118 219 print head;
#X obj 157 192 print tail;
#X connect 0 0 7 1;
#X connect 1 0 7 0;
#X connect 3 0 6 0;
#X connect 4 0 3 0;
#X connect 5 0 3 1;
#X connect 7 0 9 0;
#X connect 7 1 10 0;
#X connect 7 2 2 0;

Index: list-rev.pd
===================================================================
RCS file: /cvsroot/pure-data/abstractions/footils/list-abs/list-rev.pd,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** list-rev.pd	1 Nov 2005 12:41:16 -0000	1.1
--- list-rev.pd	2 Nov 2005 09:59:48 -0000	1.2
***************
*** 1,3 ****
! #N canvas 575 483 566 351 10;
  #X obj 92 29 inlet;
  #N canvas 0 0 533 407 drip 0;
--- 1,3 ----
! #N canvas 575 449 566 351 10;
  #X obj 92 29 inlet;
  #N canvas 0 0 533 407 drip 0;
***************
*** 25,34 ****
  #X obj 92 141 list;
  #X obj 136 207 list;
- #X obj 92 54 t l b;
  #X obj 136 259 outlet;
  #X text 174 95 drip list;
  #X text 174 210 intermediate store \, bang'd on list end.;
  #X text 178 140 repack in reverse order;
! #X connect 0 0 5 0;
  #X connect 1 0 3 0;
  #X connect 1 1 4 0;
--- 25,34 ----
  #X obj 92 141 list;
  #X obj 136 207 list;
  #X obj 136 259 outlet;
  #X text 174 95 drip list;
  #X text 174 210 intermediate store \, bang'd on list end.;
  #X text 178 140 repack in reverse order;
! #X obj 92 54 t l b b;
! #X connect 0 0 9 0;
  #X connect 1 0 3 0;
  #X connect 1 1 4 0;
***************
*** 36,40 ****
  #X connect 3 0 2 0;
  #X connect 3 0 4 1;
! #X connect 4 0 6 0;
! #X connect 5 0 1 0;
! #X connect 5 1 3 1;
--- 36,41 ----
  #X connect 3 0 2 0;
  #X connect 3 0 4 1;
! #X connect 4 0 5 0;
! #X connect 9 0 1 0;
! #X connect 9 1 3 1;
! #X connect 9 2 4 1;

Index: README
===================================================================
RCS file: /cvsroot/pure-data/abstractions/footils/list-abs/README,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** README	1 Nov 2005 19:08:45 -0000	1.3
--- README	2 Nov 2005 09:59:48 -0000	1.4
***************
*** 70,74 ****
  list-rot.pd

!   rotate a list (move X elements from front to back)

  list-sieve.pd
--- 70,74 ----
  list-rot.pd

!   rotate a list (move X elements from front to back). 

  list-sieve.pd
***************
*** 76,79 ****
--- 76,85 ----
    let only those incoming floats pass, that have been found in a test list.

+ list-splat.pd
+ 
+   an advanced [list split] which also accepts negative indices to split off
+   elements from the back of a list. Otherwise compatible to [list split] so it
+   can be used as a drop-in replacement.
+ 
  sroute.pd

--- NEW FILE: list-idx.pd ---
#N canvas 0 0 450 300 10;
#X obj 122 108 inlet;
#X obj 197 69 loadbang;
#X obj 122 139 list split;
#X obj 187 95 f \$1;
#X obj 154 210 outlet;
#X obj 187 47 inlet;
#X obj 154 176 list split 1;
#X connect 0 0 2 0;
#X connect 1 0 3 0;
#X connect 2 1 6 0;
#X connect 3 0 2 1;
#X connect 5 0 3 0;
#X connect 6 0 4 0;