1 files changed, 62 insertions, 26 deletions
diff --git a/open.pd b/open.pd
index c872aac..7d6dd15 100644
--- a/open.pd
+++ b/open.pd
@@ -1,30 +1,66 @@
-#N canvas 416 398 124 30 10;
-#X obj 107 2 inlet;
-#X msg 86 225 \; pd open \$1.pd \$2;
-#X obj 86 192 pack s s;
-#X obj 86 137 symbol;
-#X obj 108 111 t a b;
-#X obj 46 0 bng 18 250 50 0 \$0- \$0- empty 0 -6 0 8 -44926 -1 -1;
-#X obj 0 61 symbol \$1;
-#X obj 58 40 symbol;
-#X text 313 346 released under the GNU GPL;
-#X text 98 318 (C) Copyright 2005 Hans-Christoph Steiner <hans@at.or.at>
+#N canvas 663 95 578 431 10;
+#X obj 200 -3 inlet;
+#X msg 112 265 \; pd open \$1.pd \$2;
+#X obj 47 0 bng 17 250 50 0 \$0- \$0- empty 0 -6 0 8 -44926 -1 -1;
+#X obj 40 61 symbol \$1;
+#X obj 98 40 symbol;
+#X text 315 370 released under the GNU GPL;
+#X text 98 358 (C) Copyright 2005 Hans-Christoph Steiner <hans@at.or.at>
 ;
-#X text 90 63 <-- store the last value so that the GOP bang will open
+#X text 111 61 <-- store the last value so that the GOP bang will open
 it;
-#X text 20 287 This patch opens a patch either from the first argument
+#X text 20 327 This patch opens a patch either from the first argument
 or sent in as a message.;
-#X obj 0 0 cnv 16 45 18 empty empty open: 6 9 0 14 -233017 -1 0;
-#X text 279 176 GOP: 168x18;
-#X obj 137 166 getdir;
-#X connect 0 0 4 0;
-#X connect 0 0 7 0;
-#X connect 2 0 1 0;
-#X connect 3 0 2 0;
-#X connect 4 0 3 0;
-#X connect 4 1 14 0;
-#X connect 5 0 6 0;
-#X connect 6 0 4 0;
+#X obj 0 0 cnv 16 46 18 empty empty open: 6 9 0 14 -233017 -1 0;
+#X text 20 174 GOP: 168x18;
+#X obj 289 123 getdir;
+#X obj 112 232 pack symbol symbol;
+#X msg 289 162 set \$1;
+#X obj 233 208 makefilename;
+#X obj 112 101 trigger symbol symbol bang;
+#X obj 289 143 makefilename %s/%%s;
+#X obj 112 209 ext13/strippath;
+#N canvas 178 406 458 308 splitfilename 0;
+#X obj 124 58 inlet;
+#X obj 173 253 outlet;
+#X text 21 8 this is a kludge to work around a bug in [splitfilename]
+which makes it output a filename with no slashes as a folder rather
+than a file.;
+#X obj 210 155 select symbol;
+#X obj 297 133 symbol;
+#X obj 210 105 trigger symbol bang;
+#X obj 173 207 spigot;
+#X msg 359 162 1;
+#X msg 190 182 0;
+#X obj 124 84 splitfilename;
+#X msg 249 207 symbol /;
+#X connect 0 0 9 0;
+#X connect 3 0 8 0;
+#X connect 3 0 10 0;
+#X connect 4 0 3 1;
+#X connect 5 0 3 0;
+#X connect 5 1 4 0;
+#X connect 5 1 7 0;
+#X connect 6 0 1 0;
 #X connect 7 0 6 1;
-#X connect 14 0 2 1;
-#X coords 0 0 1 1 124 18 1;
+#X connect 8 0 6 1;
+#X connect 9 0 6 0;
+#X connect 9 1 5 0;
+#X connect 10 0 1 0;
+#X restore 154 151 pd splitfilename;
+#X connect 0 0 4 0;
+#X connect 0 0 15 0;
+#X connect 2 0 3 0;
+#X connect 3 0 15 0;
+#X connect 4 0 3 1;
+#X connect 11 0 16 0;
+#X connect 12 0 1 0;
+#X connect 13 0 14 0;
+#X connect 14 0 12 1;
+#X connect 15 0 17 0;
+#X connect 15 1 18 0;
+#X connect 15 2 11 0;
+#X connect 16 0 13 0;
+#X connect 17 0 12 0;
+#X connect 18 0 14 0;
+#X coords 0 0 1 1 124 17 1 0 0;