[PD-cvs] abstractions/footils/list-abs list-idx-help.pd, 1.1, 1.2 list-idx.pd, 1.1, 1.2 list-rev.pd, 1.2, 1.3 list-splat.pd, 1.1, 1.2
Frank Barknecht
fbar at users.sourceforge.net
Sun Nov 6 13:50:00 CET 2005
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;
More information about the Pd-cvs
mailing list