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;