Update of /cvsroot/pure-data/abstractions/footils/list-abs In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv16153
Modified Files: list-idx-help.pd list-idx.pd list-rev.pd list-splat.pd Log Message: made list-idx accept neg. indices
Index: list-rev.pd =================================================================== RCS file: /cvsroot/pure-data/abstractions/footils/list-abs/list-rev.pd,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** list-rev.pd 2 Nov 2005 09:59:48 -0000 1.2 --- list-rev.pd 6 Nov 2005 12:49:58 -0000 1.3 *************** *** 1,5 **** #N canvas 575 449 566 351 10; #X obj 92 29 inlet; ! #N canvas 0 0 533 407 drip 0; #X obj 64 206 list split 1; #X obj 64 123 until; --- 1,5 ---- #N canvas 575 449 566 351 10; #X obj 92 29 inlet; ! #N canvas 0 0 533 407 drip 1; #X obj 64 206 list split 1; #X obj 64 123 until; *************** *** 8,24 **** #X obj 64 243 outlet; #X obj 64 57 inlet; - #X obj 64 86 t b l; #X text 237 44 From list-help.pd; #X obj 143 243 outlet; #X connect 0 0 4 0; #X connect 0 1 2 1; #X connect 0 2 3 0; ! #X connect 0 2 8 0; #X connect 1 0 2 0; #X connect 2 0 0 0; #X connect 3 0 1 1; ! #X connect 5 0 6 0; ! #X connect 6 0 1 0; ! #X connect 6 1 2 1; #X restore 92 94 pd drip; #X obj 148 141 t l; --- 8,24 ---- #X obj 64 243 outlet; #X obj 64 57 inlet; #X text 237 44 From list-help.pd; #X obj 143 243 outlet; + #X obj 64 86 t b a; #X connect 0 0 4 0; #X connect 0 1 2 1; #X connect 0 2 3 0; ! #X connect 0 2 7 0; #X connect 1 0 2 0; #X connect 2 0 0 0; #X connect 3 0 1 1; ! #X connect 5 0 8 0; ! #X connect 8 0 1 0; ! #X connect 8 1 2 1; #X restore 92 94 pd drip; #X obj 148 141 t l; *************** *** 29,33 **** #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; --- 29,33 ---- #X text 174 210 intermediate store , bang'd on list end.; #X text 178 140 repack in reverse order; ! #X obj 92 54 t a b b; #X connect 0 0 9 0; #X connect 1 0 3 0;
Index: list-splat.pd =================================================================== RCS file: /cvsroot/pure-data/abstractions/footils/list-abs/list-splat.pd,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** list-splat.pd 2 Nov 2005 09:59:48 -0000 1.1 --- list-splat.pd 6 Nov 2005 12:49:58 -0000 1.2 *************** *** 8,34 **** #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; --- 8,34 ---- #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;
Index: list-idx-help.pd =================================================================== RCS file: /cvsroot/pure-data/abstractions/footils/list-abs/list-idx-help.pd,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** list-idx-help.pd 2 Nov 2005 09:59:48 -0000 1.1 --- list-idx-help.pd 6 Nov 2005 12:49:58 -0000 1.2 *************** *** 2,13 **** #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; --- 2,17 ---- #X obj 136 121 t b f; #X symbolatom 136 222 10 0 0 0 - - -; ! #X obj 136 78 hradio 15 1 0 8 empty empty empty 0 -6 0 8 -262144 -1 ! -1 1; #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 floatatom 136 102 5 0 0 0 - - -; + #X obj 136 245 print; #X connect 0 0 3 0; #X connect 0 1 4 1; ! #X connect 1 0 7 0; ! #X connect 2 0 6 0; #X connect 3 0 4 0; #X connect 4 0 1 0; + #X connect 6 0 0 0;
Index: list-idx.pd =================================================================== RCS file: /cvsroot/pure-data/abstractions/footils/list-abs/list-idx.pd,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** list-idx.pd 2 Nov 2005 09:59:48 -0000 1.1 --- list-idx.pd 6 Nov 2005 12:49:58 -0000 1.2 *************** *** 2,14 **** #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; --- 2,14 ---- #X obj 122 108 inlet; #X obj 197 69 loadbang; #X obj 187 95 f $1; #X obj 154 210 outlet; #X obj 187 47 inlet; #X obj 154 176 list split 1; ! #X obj 122 139 list-splat; ! #X connect 0 0 6 0; ! #X connect 1 0 2 0; ! #X connect 2 0 6 1; ! #X connect 4 0 2 0; #X connect 5 0 3 0; ! #X connect 6 1 5 0;