line-seq for [line]s that don't skip numbers on their way to their destination (integers only), and renamed some stuff

svn path=/trunk/abstractions/sfruit/; revision=11696

1 files changed, 32 insertions, 0 deletions

diff --git a/sfruit/symbol-shorten.pd b/sfruit/symbol-shorten.pd
new file mode 100644
index 0000000..00a7890
--- /dev/null
+++ b/sfruit/symbol-shorten.pd
@@ -0,0 +1,32 @@
+#N canvas 484 22 472 341 10;
+#X obj 41 42 inlet;
+#X obj 41 64 symbol-explode;
+#X obj 131 219 list append;
+#X obj 131 282 list-l2s;
+#X obj 131 308 outlet;
+#X obj 214 198 loadbang;
+#X obj 214 219 list-onearg \$2 >;
+#X obj 187 37 import-disabled list-abs;
+#X obj 41 90 list-decorate;
+#X obj 239 120 loadbang;
+#X obj 131 171 list split;
+#X obj 239 143 expr \$1 -1;
+#X obj 154 81 list length;
+#X obj 154 103 <= 20;
+#X obj 41 115 route 1 0;
+#X connect 0 0 1 0;
+#X connect 1 0 8 0;
+#X connect 2 0 3 0;
+#X connect 3 0 4 0;
+#X connect 5 0 6 0;
+#X connect 6 0 2 1;
+#X connect 8 0 14 0;
+#X connect 8 1 12 0;
+#X connect 9 0 11 0;
+#X connect 10 0 2 0;
+#X connect 10 2 3 0;
+#X connect 11 0 10 1;
+#X connect 12 0 13 0;
+#X connect 13 0 8 2;
+#X connect 14 0 3 0;
+#X connect 14 1 10 0;