diff options
Diffstat (limited to 'sfruit/list-grow.pd')
| -rw-r--r-- | sfruit/list-grow.pd | 36 |
1 files changed, 36 insertions, 0 deletions
diff --git a/sfruit/list-grow.pd b/sfruit/list-grow.pd new file mode 100644 index 0000000..8777492 --- /dev/null +++ b/sfruit/list-grow.pd @@ -0,0 +1,36 @@ +#N canvas 62 84 450 300 10; +#X obj 80 40 inlet; +#X obj 248 208 outlet; +#X obj 248 39 inlet; +#X obj 248 114 list prepend; +#X obj 248 177 spigot; +#X obj 80 77 route clear; +#X msg 182 142 1; +#X msg 143 142 0; +#X obj 362 67 == 0; +#X obj 317 63 t a; +#X obj 317 92 spigot 1; +#X obj 286 39 t b; +#X text 43 225 this is an attempt at avoiding unnecessary list copies +a la mathieu's fast list-drip (but i don't actually remember if that +was the mechanism for speed : )) oh well \, hopefully it's fast; +#X obj 143 118 t b b b b; +#X connect 0 0 5 0; +#X connect 2 0 3 0; +#X connect 3 0 4 0; +#X connect 3 0 9 0; +#X connect 4 0 1 0; +#X connect 5 0 11 0; +#X connect 5 1 13 0; +#X connect 6 0 4 1; +#X connect 6 0 8 0; +#X connect 7 0 4 1; +#X connect 7 0 8 0; +#X connect 8 0 10 1; +#X connect 9 0 10 0; +#X connect 10 0 3 1; +#X connect 11 0 3 1; +#X connect 13 0 11 0; +#X connect 13 1 7 0; +#X connect 13 2 3 0; +#X connect 13 3 6 0; |