From c695eba0ee35b56ce492e38accb40c35ad669448 Mon Sep 17 00:00:00 2001
From: Luke Iannini <lukeiannini@users.sourceforge.net>
Date: Sun, 7 Jun 2009 17:47:28 +0000
Subject: 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
---
 sfruit/symbol-shorten.pd | 32 ++++++++++++++++++++++++++++++++
 1 file changed, 32 insertions(+)
 create mode 100644 sfruit/symbol-shorten.pd

(limited to 'sfruit/symbol-shorten.pd')

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;
-- 
cgit v1.2.1