1 files changed, 78 insertions, 0 deletions
diff --git a/gswitch.pd b/gswitch.pd
new file mode 100755
index 0000000..9142a8e
--- /dev/null
+++ b/gswitch.pd
@@ -0,0 +1,78 @@
+#N struct 1029-gswitch float a float b float c;
+#N canvas 0 0 450 300 12;
+#N canvas 185 101 812 463 gswitch 1;
+#X obj 75 35 route click;
+#X obj 75 61 unpack p;
+#X obj 75 91 t b a;
+#X obj 75 150 == 0;
+#X obj 8 7 inlet;
+#X obj 8 234 outlet;
+#X obj 349 416 pointer;
+#X obj 303 276 loadbang;
+#X obj 303 301 list prepend pd- \$0;
+#X obj 303 326 t a b a a;
+#X msg 349 391 traverse \$1\$2-gop \, bang;
+#X msg 372 350 \; \$1\$2-gop clear;
+#X msg 303 466 \; \$1\$2-gop donecanvasdialog 0 -1 2 0 0 44 35 44 35
+0 0 \;;
+#X obj 75 123 f 1;
+#X obj 75 178 sel 0 1;
+#X msg 200 415 0;
+#X msg 75 204 14;
+#X msg 129 203 0;
+#X obj 75 5 struct \$0-gswitch float a;
+#X obj 200 441 append \$0-gswitch a;
+#X obj 75 234 set \$0-gswitch a;
+#X obj 225 110 filledpolygon 555 555 7 5 5 39 5 39 30 5 30;
+#X obj 226 60 filledcurve 999 999 1 34 6 38 6 38 10 34 10;
+#X obj 226 85 filledcurve 999 999 1 20 6 24 6 24 10 20 10;
+#X obj 225 135 drawpolygon 0 2 8 34 8 2 8 18 23 18 a(0:14)(23:37) 18
+a(0:14)(23:37) 11;
+#X obj 226 35 filledcurve 999 999 1 6 25 10 25 10 29 6 29;
+#X obj 225 201 drawpolygon 0 2 37 6 37 2;
+#X obj 225 176 drawpolygon 0 2 23 6 23 2;
+#X obj 225 226 drawpolygon 555 2 7 5 11 5 11 9 5 9 5 13 11 13;
+#X connect 0 0 1 0;
+#X connect 1 0 2 0;
+#X connect 2 0 13 0;
+#X connect 3 0 5 0;
+#X connect 3 0 13 1;
+#X connect 3 0 14 0;
+#X connect 4 0 13 0;
+#X connect 6 0 19 1;
+#X connect 7 0 8 0;
+#X connect 8 0 9 0;
+#X connect 9 0 12 0;
+#X connect 9 1 15 0;
+#X connect 9 2 10 0;
+#X connect 9 3 11 0;
+#X connect 10 0 6 0;
+#X connect 13 0 3 0;
+#X connect 14 0 16 0;
+#X connect 14 1 17 0;
+#X connect 15 0 19 0;
+#X connect 16 0 20 0;
+#X connect 17 0 20 0;
+#X connect 18 0 0 0;
+#X connect 19 0 20 1;
+#X restore 80 54 pd gswitch;
+#X obj 80 12 inlet;
+#N canvas 532 8 450 300 \$0-gop 0;
+#X scalar 1029-gswitch 0 0 0 \;;
+#X coords 0 0 44 35 44 35 1;
+#X restore 0 0 pd \$0-gop;
+#X obj 213 54 inlet;
+#X obj 309 54 inlet;
+#X obj 213 218 outlet;
+#X obj 309 142 spigot;
+#X obj 354 113 == 0;
+#X obj 213 142 spigot 1;
+#X connect 0 0 7 0;
+#X connect 0 0 8 1;
+#X connect 1 0 0 0;
+#X connect 3 0 8 0;
+#X connect 4 0 6 0;
+#X connect 6 0 5 0;
+#X connect 7 0 6 1;
+#X connect 8 0 5 0;
+#X coords 0 0 1 1 44 35 2 0 0;