aboutsummaryrefslogtreecommitdiff
path: root/sfruit/s2l-shorten.pd
diff options
context:
space:
mode:
Diffstat (limited to 'sfruit/s2l-shorten.pd')
-rw-r--r--sfruit/s2l-shorten.pd36
1 files changed, 36 insertions, 0 deletions
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;