object to see the mouse pointer position in patch coords

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

1 files changed, 65 insertions, 0 deletions

diff --git a/pointer_position.pd b/pointer_position.pd
new file mode 100644
index 0000000..8fe501b
--- /dev/null
+++ b/pointer_position.pd
@@ -0,0 +1,65 @@
+#N canvas 641 119 499 478 10;
+#X obj 99 201 cnv 15 50 18 empty \$0-Y 169) 3 11 0 16 -233017 -1 0
+;
+#X obj 51 201 cnv 15 50 18 empty \$0-X (212 3 11 0 16 -233017 -1 0
+;
+#X msg 325 357 label \$1;
+#X obj 325 381 send \$0-Y;
+#X obj 325 333 zexy/makesymbol %s);
+#X obj 229 296 unpack float float float;
+#X msg 195 357 label \$1;
+#X obj 195 333 zexy/makesymbol (%s;
+#X obj 195 381 send \$0-X;
+#X obj 124 6 inlet;
+#X obj 124 104 select 0;
+#X obj 124 31 route float bang;
+#X obj 229 221 cyclone/gate 2;
+#N canvas 0 22 454 304 capture 0;
+#X obj 216 104 loadbang;
+#X obj 250 191 route motion;
+#X obj 188 169 toxy/tot .parent;
+#X msg 188 148 capture \$1;
+#X msg 188 127 1;
+#X msg 124 127 0;
+#X obj 102 46 inlet;
+#X obj 197 46 inlet;
+#X obj 250 227 outlet;
+#X obj 197 67 bang;
+#X obj 102 70 bang;
+#X connect 0 0 4 0;
+#X connect 1 0 8 0;
+#X connect 2 2 1 0;
+#X connect 3 0 2 0;
+#X connect 4 0 3 0;
+#X connect 5 0 3 0;
+#X connect 6 0 10 0;
+#X connect 7 0 9 0;
+#X connect 9 0 4 0;
+#X connect 10 0 5 0;
+#X restore 165 159 pd capture motion;
+#X obj 124 83 trigger float bang;
+#X msg 229 104 1;
+#X obj 264 83 trigger bang bang;
+#X msg 363 103 2;
+#X connect 2 0 3 0;
+#X connect 4 0 2 0;
+#X connect 5 0 7 0;
+#X connect 5 1 4 0;
+#X connect 6 0 8 0;
+#X connect 7 0 6 0;
+#X connect 9 0 11 0;
+#X connect 10 0 13 0;
+#X connect 10 1 13 1;
+#X connect 11 0 14 0;
+#X connect 11 1 16 0;
+#X connect 12 0 5 0;
+#X connect 12 1 13 0;
+#X connect 12 1 5 0;
+#X connect 13 0 12 1;
+#X connect 14 0 10 0;
+#X connect 14 1 15 0;
+#X connect 15 0 12 0;
+#X connect 16 0 13 1;
+#X connect 16 1 17 0;
+#X connect 17 0 12 0;
+#X coords 0 -1 1 1 100 20 1 50 200;