1 files changed, 57 insertions, 0 deletions
diff --git a/sfruit/trimdirs.pd b/sfruit/trimdirs.pd
new file mode 100644
index 0000000..a73998a
--- /dev/null
+++ b/sfruit/trimdirs.pd
@@ -0,0 +1,57 @@
+#N canvas 694 125 471 382 10;
+#X declare -lib zexy -lib list-abs;
+#X obj 185 137 symbol2list /;
+#X obj 185 176 list-splat -1;
+#X obj 156 282 list2symbol /;
+#X obj 185 202 list split 1;
+#X obj 21 181 symbol2list;
+#X obj 21 208 list prepend /;
+#X obj 21 272 list2symbol;
+#X msg 84 160 symbol;
+#X obj 84 139 loadbang;
+#X msg 84 250 symbol;
+#X obj 84 229 loadbang;
+#X obj 156 251 list append;
+#X obj 344 54 \$1;
+#X obj 344 31 loadbang;
+#X obj 344 109 * -1;
+#X obj 402 21 inlet;
+#X obj 185 20 inlet;
+#X obj 156 343 outlet;
+#X obj 344 137 sel 0;
+#X obj 185 87 demultiplex;
+#X obj 371 159 t a b;
+#X msg 376 198 1;
+#X msg 344 198 0;
+#X obj 185 110 s \$0passthrough;
+#X obj 170 314 r \$0passthrough;
+#X obj 344 82 abs;
+#X obj 303 253 import zexy list-abs;
+#X connect 0 0 1 0;
+#X connect 1 0 3 0;
+#X connect 2 0 17 0;
+#X connect 3 0 4 0;
+#X connect 3 1 11 1;
+#X connect 4 0 5 0;
+#X connect 5 0 6 0;
+#X connect 6 0 11 0;
+#X connect 7 0 4 1;
+#X connect 8 0 7 0;
+#X connect 9 0 6 1;
+#X connect 10 0 9 0;
+#X connect 11 0 2 0;
+#X connect 12 0 25 0;
+#X connect 13 0 12 0;
+#X connect 14 0 18 0;
+#X connect 15 0 25 0;
+#X connect 16 0 19 0;
+#X connect 18 0 22 0;
+#X connect 18 1 20 0;
+#X connect 19 0 23 0;
+#X connect 19 1 0 0;
+#X connect 20 0 1 1;
+#X connect 20 1 21 0;
+#X connect 21 0 19 1;
+#X connect 22 0 19 1;
+#X connect 24 0 17 0;
+#X connect 25 0 14 0;