From 204cb1b74aeec62614a3de516ab67779618e9a36 Mon Sep 17 00:00:00 2001
From: Luke Iannini <lukeiannini@users.sourceforge.net>
Date: Sun, 26 Oct 2008 08:22:12 +0000
Subject: continued reorg

svn path=/trunk/abstractions/sfruit/; revision=10349
---
 sfruit/s2l-shorten.pd | 36 ++++++++++++++++++++++++++++++++++++
 1 file changed, 36 insertions(+)
 create mode 100644 sfruit/s2l-shorten.pd

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

diff --git a/sfruit/s2l-shorten.pd b/sfruit/s2l-shorten.pd
new file mode 100644
index 0000000..0991ce0
--- /dev/null
+++ b/sfruit/s2l-shorten.pd
@@ -0,0 +1,36 @@
+#N canvas 0 25 331 384 10;
+#X declare -lib list-abs;
+#X obj 41 42 inlet;
+#X obj 41 64 s2l-explode;
+#X obj 41 85 list split \$1;
+#X obj 74 247 list append;
+#X obj 74 270 list-l2s;
+#X obj 74 296 outlet;
+#X obj 137 199 loadbang;
+#X obj 137 220 list-onearg \$2 >;
+#X obj 41 137 list length;
+#X obj 41 201 list;
+#X obj 74 201 list;
+#X obj 41 107 t a a;
+#X obj 41 180 t b;
+#X obj 74 181 t b;
+#X obj 41 158 sel \$1;
+#X obj 186 68 import list-abs;
+#X connect 0 0 1 0;
+#X connect 1 0 2 0;
+#X connect 2 0 11 0;
+#X connect 2 2 4 0;
+#X connect 3 0 4 0;
+#X connect 4 0 5 0;
+#X connect 6 0 7 0;
+#X connect 7 0 3 1;
+#X connect 8 0 14 0;
+#X connect 9 0 4 0;
+#X connect 10 0 3 0;
+#X connect 11 0 8 0;
+#X connect 11 1 10 1;
+#X connect 11 1 9 1;
+#X connect 12 0 9 0;
+#X connect 13 0 10 0;
+#X connect 14 0 12 0;
+#X connect 14 1 13 0;
-- 
cgit v1.2.1