Update of /cvsroot/pure-data/abstractions/footils/list-abs
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv31341
Modified Files:
list-fifo.pd list-lifo.pd
Log Message:
some fixes and optimizations to fifo/lifo
Index: list-lifo.pd
===================================================================
RCS file: /cvsroot/pure-data/abstractions/footils/list-abs/list-lifo.pd,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** list-lifo.pd 30 May 2007 19:07:46 -0000 1.2
--- list-lifo.pd 8 Jun 2007 18:59:21 -0000 1.3
***************
*** 1,3 ****
! #N canvas 300 195 692 556 10;
#X obj 268 56 inlet;
#X obj 268 184 t a a;
--- 1,3 ----
! #N canvas 300 195 729 624 10;
#X obj 268 56 inlet;
#X obj 268 184 t a a;
***************
*** 6,21 ****
#X obj 366 325 list;
#X obj 143 379 list;
! #X obj 247 431 list split 1;
! #X obj 143 401 t a a;
! #X obj 182 462 list split;
! #X obj 182 498 outlet;
#X obj 71 56 inlet;
#X text 380 252 prepend size of list;
! #X obj 326 494 outlet;
#X obj 347 217 list-len;
#X obj 366 55 inlet;
- #X obj 143 431 list split 1;
#X text 419 304 store lists;
! #X text 348 430 get length of next stored list and split it off.;
#X text 270 34 push;
#X text 365 35 reset stack;
--- 6,19 ----
#X obj 366 325 list;
#X obj 143 379 list;
! #X obj 143 407 list split 1;
! #X obj 143 492 list split;
! #X obj 143 527 outlet;
#X obj 71 56 inlet;
#X text 380 252 prepend size of list;
! #X obj 222 528 outlet;
#X obj 347 217 list-len;
#X obj 366 55 inlet;
#X text 419 304 store lists;
! #X text 256 445 get length of next stored list and split it off.;
#X text 270 34 push;
#X text 365 35 reset stack;
***************
*** 24,31 ****
#X obj 143 164 b;
#X text 69 34 pop (or clear);
#X obj 268 301 list append;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
! #X connect 1 1 13 0;
#X connect 2 0 24 0;
#X connect 3 0 4 0;
--- 22,32 ----
#X obj 143 164 b;
#X text 69 34 pop (or clear);
+ #X obj 143 441 t b a;
+ #X obj 143 467 list append;
#X obj 268 301 list append;
+ #X obj 71 164 b;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
! #X connect 1 1 12 0;
#X connect 2 0 24 0;
#X connect 3 0 4 0;
***************
*** 33,50 ****
#X connect 4 0 5 1;
#X connect 4 0 24 1;
! #X connect 5 0 7 0;
! #X connect 6 0 8 1;
! #X connect 6 2 12 0;
! #X connect 7 0 15 0;
! #X connect 7 1 6 0;
! #X connect 8 0 9 0;
! #X connect 8 1 3 0;
! #X connect 10 0 21 0;
! #X connect 13 0 2 1;
! #X connect 14 0 20 0;
! #X connect 15 1 8 0;
! #X connect 20 0 3 0;
! #X connect 21 0 3 0;
! #X connect 21 1 22 0;
! #X connect 22 0 5 0;
#X connect 24 0 3 0;
--- 34,53 ----
#X connect 4 0 5 1;
#X connect 4 0 24 1;
! #X connect 5 0 6 0;
! #X connect 6 0 22 0;
! #X connect 6 1 23 1;
! #X connect 6 2 11 0;
! #X connect 7 0 8 0;
! #X connect 7 1 3 0;
! #X connect 9 0 19 0;
! #X connect 12 0 2 1;
! #X connect 13 0 18 0;
! #X connect 18 0 3 0;
! #X connect 19 0 25 0;
! #X connect 19 1 20 0;
! #X connect 20 0 5 0;
! #X connect 22 0 23 0;
! #X connect 22 1 7 1;
! #X connect 23 0 7 0;
#X connect 24 0 3 0;
+ #X connect 25 0 3 0;
Index: list-fifo.pd
===================================================================
RCS file: /cvsroot/pure-data/abstractions/footils/list-abs/list-fifo.pd,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** list-fifo.pd 30 May 2007 19:07:46 -0000 1.3
--- list-fifo.pd 8 Jun 2007 18:59:21 -0000 1.4
***************
*** 1,22 ****
! #N canvas 300 195 692 556 10;
#X obj 268 56 inlet;
#X obj 268 184 t a a;
#X obj 268 250 list prepend;
- #X obj 268 301 list prepend;
#X obj 366 302 t b a;
#X obj 366 325 list;
#X obj 143 379 list;
! #X obj 247 431 list split 1;
! #X obj 143 401 t a a;
! #X obj 182 462 list split;
! #X obj 182 498 outlet;
#X obj 71 56 inlet;
#X text 380 252 prepend size of list;
! #X obj 326 494 outlet;
#X obj 347 217 list-len;
#X obj 366 55 inlet;
- #X obj 143 431 list split 1;
#X text 419 304 store lists;
! #X text 348 430 get length of next stored list and split it off.;
#X text 270 34 push;
#X text 365 35 reset stack;
--- 1,19 ----
! #N canvas 300 195 729 624 10;
#X obj 268 56 inlet;
#X obj 268 184 t a a;
#X obj 268 250 list prepend;
#X obj 366 302 t b a;
#X obj 366 325 list;
#X obj 143 379 list;
! #X obj 143 407 list split 1;
! #X obj 143 492 list split;
! #X obj 143 527 outlet;
#X obj 71 56 inlet;
#X text 380 252 prepend size of list;
! #X obj 222 528 outlet;
#X obj 347 217 list-len;
#X obj 366 55 inlet;
#X text 419 304 store lists;
! #X text 256 445 get length of next stored list and split it off.;
#X text 270 34 push;
#X text 365 35 reset stack;
***************
*** 25,50 ****
#X obj 143 164 b;
#X text 69 34 pop (or clear);
#X connect 0 0 1 0;
#X connect 1 0 2 0;
! #X connect 1 1 14 0;
! #X connect 2 0 3 0;
#X connect 3 0 4 0;
! #X connect 4 0 5 0;
! #X connect 4 1 5 1;
! #X connect 5 0 3 1;
! #X connect 5 0 6 1;
! #X connect 6 0 8 0;
! #X connect 7 0 9 1;
! #X connect 7 2 13 0;
! #X connect 8 0 16 0;
! #X connect 8 1 7 0;
! #X connect 9 0 10 0;
! #X connect 9 1 4 0;
! #X connect 11 0 22 0;
! #X connect 14 0 2 1;
! #X connect 15 0 21 0;
! #X connect 16 1 9 0;
! #X connect 21 0 4 0;
! #X connect 22 0 4 0;
! #X connect 22 1 23 0;
! #X connect 23 0 6 0;
--- 22,53 ----
#X obj 143 164 b;
#X text 69 34 pop (or clear);
+ #X obj 143 441 t b a;
+ #X obj 143 467 list append;
+ #X obj 71 164 b;
+ #X obj 268 301 list prepend;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
! #X connect 1 1 12 0;
! #X connect 2 0 25 0;
#X connect 3 0 4 0;
! #X connect 3 1 4 1;
! #X connect 4 0 5 1;
! #X connect 4 0 25 1;
! #X connect 5 0 6 0;
! #X connect 6 0 22 0;
! #X connect 6 1 23 1;
! #X connect 6 2 11 0;
! #X connect 7 0 8 0;
! #X connect 7 1 3 0;
! #X connect 9 0 19 0;
! #X connect 12 0 2 1;
! #X connect 13 0 18 0;
! #X connect 18 0 3 0;
! #X connect 19 0 24 0;
! #X connect 19 1 20 0;
! #X connect 20 0 5 0;
! #X connect 22 0 23 0;
! #X connect 22 1 7 1;
! #X connect 23 0 7 0;
! #X connect 24 0 3 0;
! #X connect 25 0 3 0;