an object to debounce a switch, don't remember when I wrote it, its been sitting around so long.

svn path=/trunk/externals/hcs/; revision=4432

1 files changed, 28 insertions, 0 deletions

diff --git a/debounce.pd b/debounce.pd
new file mode 100644
index 0000000..09092c3
--- /dev/null
+++ b/debounce.pd
@@ -0,0 +1,28 @@
+#N canvas 132 316 478 432 10;
+#X obj 38 43 inlet;
+#X obj 252 108 f \$1;
+#X obj 252 85 loadbang;
+#X obj 226 33 inlet;
+#X obj 251 132 select 0;
+#X text 274 34 delay between state change;
+#X obj 62 381 outlet;
+#X obj 61 325 f;
+#X text 298 152 set default;
+#X obj 246 189 send \$0-delay;
+#X obj 157 271 delay;
+#X obj 187 248 receive \$0-delay;
+#X text 80 31 float input;
+#X text 120 378 debounced float output;
+#X msg 250 152 10;
+#X obj 100 103 change;
+#X connect 0 0 7 1;
+#X connect 0 0 15 0;
+#X connect 1 0 4 0;
+#X connect 2 0 1 0;
+#X connect 3 0 9 0;
+#X connect 4 0 14 0;
+#X connect 4 1 9 0;
+#X connect 7 0 6 0;
+#X connect 10 0 7 0;
+#X connect 11 0 10 1;
+#X connect 14 0 9 0;