From 897c69a165df7072806f95db2d6f5fad35a60876 Mon Sep 17 00:00:00 2001 From: Luke Iannini Date: Sat, 25 Apr 2009 05:07:28 +0000 Subject: list-grow is a different manifestation of list-extend that more closely matches how i usually end up using list-extend, list-part and list-part2 are two stabs at allowing lists of lists to be serialized with delimiters (seeds of a library for serializing data-structures into sssad) svn path=/trunk/abstractions/sfruit/; revision=11139 --- sfruit/list-grow.pd | 36 ++++++++++++++++++++++++++++++++++++ 1 file changed, 36 insertions(+) create mode 100644 sfruit/list-grow.pd (limited to 'sfruit/list-grow.pd') 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; -- cgit v1.2.1