1 files changed, 71 insertions, 0 deletions
diff --git a/pal/lock.pd b/pal/lock.pd
new file mode 100755
index 0000000..9402ebd
--- /dev/null
+++ b/pal/lock.pd
@@ -0,0 +1,71 @@
+#N canvas 342 105 601 459 12;
+#X msg 213 136 1;
+#X msg 113 136 0;
+#X obj 129 62 == 0;
+#X obj 55 82 spigot 1;
+#X obj 18 -11 inlet;
+#X obj 18 408 outlet;
+#X obj 113 173 s \$1-other-structs;
+#X obj 113 193 r \$1-other-structs;
+#X obj 113 266 s \$2-lock;
+#X obj 113 225 spigot;
+#X msg 158 136 0;
+#X msg 76 136 1;
+#X obj 282 265 pointer \$2;
+#X msg 239 266 next;
+#X obj 18 22 t a a;
+#X obj 55 107 t a b b b b;
+#X obj 132 324 t b a;
+#X obj 55 298 unpack s p;
+#X obj 81 25 r \$2-pappend;
+#X obj 282 290 t b b a;
+#X obj 18 47 t a;
+#X obj 226 49 list prepend click;
+#X obj 226 24 route click select;
+#X obj 296 74 list prepend select;
+#X obj 282 239 ptraverse \$1 next;
+#X obj 282 213 t b;
+#X obj 308 372 set \$2 int-c ext-c;
+#X obj 132 374 set \$2 int-c ext-c;
+#X msg 132 349 900 0;
+#X msg 308 348 888 666;
+#X connect 0 0 8 0;
+#X connect 1 0 6 0;
+#X connect 2 0 3 1;
+#X connect 3 0 15 0;
+#X connect 4 0 14 0;
+#X connect 4 0 22 0;
+#X connect 7 0 2 0;
+#X connect 7 0 9 0;
+#X connect 7 0 25 0;
+#X connect 9 0 8 0;
+#X connect 10 0 9 1;
+#X connect 11 0 9 1;
+#X connect 11 0 2 0;
+#X connect 12 0 19 0;
+#X connect 12 1 13 0;
+#X connect 13 0 12 0;
+#X connect 14 0 20 0;
+#X connect 14 1 3 0;
+#X connect 15 0 17 0;
+#X connect 15 1 11 0;
+#X connect 15 2 1 0;
+#X connect 15 3 10 0;
+#X connect 15 4 0 0;
+#X connect 16 0 28 0;
+#X connect 16 1 27 2;
+#X connect 17 1 16 0;
+#X connect 18 0 20 0;
+#X connect 18 0 15 0;
+#X connect 19 0 13 0;
+#X connect 19 1 29 0;
+#X connect 19 2 26 2;
+#X connect 20 0 5 0;
+#X connect 21 0 15 0;
+#X connect 22 0 21 0;
+#X connect 22 1 23 0;
+#X connect 23 0 15 0;
+#X connect 24 0 12 0;
+#X connect 25 0 24 0;
+#X connect 28 0 27 0;
+#X connect 29 0 26 0;