Update of /cvsroot/pure-data/abstractions/footils/list-abs In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv3195
Modified Files: list-splat.pd Log Message: list-splat now without reversal
Index: list-splat.pd =================================================================== RCS file: /cvsroot/pure-data/abstractions/footils/list-abs/list-splat.pd,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** list-splat.pd 6 Nov 2005 12:49:58 -0000 1.2 --- list-splat.pd 15 Nov 2005 18:50:07 -0000 1.3 *************** *** 5,34 **** #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 279 outlet; ! #X obj 384 281 outlet; ! #X obj 455 283 outlet; ! #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 obj 316 249 list-rev; ! #X obj 316 125 list-rev; ! #X obj 384 250 list-rev; ! #X obj 455 252 list-rev; ! #X connect 0 0 10 0; ! #X connect 1 0 7 1; ! #X connect 5 0 9 0; ! #X connect 6 0 5 0; ! #X connect 6 1 11 0; ! #X connect 7 0 6 0; ! #X connect 7 1 5 1; ! #X connect 7 2 12 0; ! #X connect 9 0 2 0; ! #X connect 10 0 7 0; ! #X connect 11 0 3 0; ! #X connect 12 0 4 0; #X restore 188 169 pd negatives; #X obj 135 113 < 0; --- 5,40 ---- #X obj 171 227 outlet; #X obj 267 228 outlet; ! #N canvas 309 114 692 535 negatives 0; ! #X obj 213 50 inlet; ! #X obj 289 121 inlet; ! #X obj 213 447 outlet; ! #X obj 245 407 outlet; ! #X obj 278 376 outlet; ! #X obj 213 325 list split; ! #X obj 243 95 list-len; ! #X text 80 20 This will only get called , if the index is negative. ! ; ! #X obj 213 74 t a a; ! #X obj 273 148 +; ! #X obj 273 171 moses; ! #X obj 243 121 t f f; ! #X msg 273 193 1; ! #X obj 227 257 +; ! #X text 66 258 this is a hack: ==>; ! #X connect 0 0 8 0; ! #X connect 1 0 9 1; ! #X connect 5 0 2 0; ! #X connect 5 1 3 0; ! #X connect 5 2 4 0; ! #X connect 6 0 11 0; ! #X connect 8 0 5 0; ! #X connect 8 1 6 0; ! #X connect 9 0 10 0; ! #X connect 10 0 12 0; ! #X connect 10 1 5 1; ! #X connect 11 0 13 1; ! #X connect 11 1 9 0; ! #X connect 12 0 13 0; ! #X connect 13 0 5 1; #X restore 188 169 pd negatives; #X obj 135 113 < 0; *************** *** 49,53 **** #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; --- 55,58 ---- *************** *** 57,69 **** #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; --- 62,73 ---- #X connect 5 2 4 0; #X connect 6 0 7 1; ! #X connect 7 0 11 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 11 1; ! #X connect 10 2 5 1; ! #X connect 11 0 2 0; ! #X connect 11 1 3 0; ! #X connect 11 2 4 0;