implemented object to use in mapping curve help files, but it ended up fighting with the interaction with the array. Could be useful elsewhere tho.

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

2 files changed, 217 insertions, 0 deletions

diff --git a/mouse_region-help.pd b/mouse_region-help.pd
new file mode 100644
index 0000000..3b866be
--- /dev/null
+++ b/mouse_region-help.pd
@@ -0,0 +1,22 @@
+#N canvas 227 186 598 404 10;
+#X obj 33 173 pointer_position;
+#X obj 33 145 tgl 15 1 empty empty empty 0 -6 0 10 -262144 -1 -1 1
+1;
+#X msg 52 144 bang;
+#X obj 342 136 cnv 15 100 60 empty empty empty 20 12 0 14 -233017 -66577
+0;
+#X obj 48 84 keyup;
+#X obj 48 105 select 32;
+#X text 124 41 give mouse coordinates only after clicking and dragging
+in a region.;
+#X obj 145 295 unpack float float;
+#X floatatom 144 325 5 0 0 0 - - -;
+#X floatatom 252 326 5 0 0 0 - - -;
+#X obj 146 248 mouse_region 342 443 137 194;
+#X connect 1 0 0 0;
+#X connect 2 0 0 0;
+#X connect 4 0 5 0;
+#X connect 5 0 2 0;
+#X connect 7 0 8 0;
+#X connect 7 1 9 0;
+#X connect 10 0 7 0;
diff --git a/mouse_region.pd b/mouse_region.pd
new file mode 100644
index 0000000..331d0ab
--- /dev/null
+++ b/mouse_region.pd
@@ -0,0 +1,195 @@
+#N canvas 138 197 732 550 10;
+#N canvas 224 109 399 332 constrain 0;
+#X obj 15 12 inlet;
+#X obj 112 254 outlet;
+#X obj 15 52 unpack float float float float;
+#X obj 45 116 receive \$0-xmin;
+#X obj 75 137 receive \$0-xmax;
+#X obj 15 137 moses;
+#X obj 45 157 moses;
+#X obj 112 225 pack float float;
+#X obj 200 137 moses;
+#X obj 230 157 moses;
+#X obj 260 137 receive \$0-ymax;
+#X obj 230 116 receive \$0-ymin;
+#X connect 0 0 2 0;
+#X connect 2 0 5 0;
+#X connect 2 1 8 0;
+#X connect 3 0 5 1;
+#X connect 4 0 6 1;
+#X connect 5 1 6 0;
+#X connect 6 0 7 0;
+#X connect 7 0 1 0;
+#X connect 8 1 9 0;
+#X connect 9 0 7 1;
+#X connect 10 0 9 1;
+#X connect 11 0 8 1;
+#X restore 100 461 pd constrain mouse messages;
+#N canvas 0 22 470 320 set 0;
+#X obj 75 26 inlet;
+#X obj 108 115 send \$0-xmax;
+#X obj 19 115 send \$0-xmin;
+#X obj 200 114 send \$0-ymin;
+#X obj 291 114 send \$0-ymax;
+#X obj 74 52 unpack float float float float;
+#X connect 0 0 5 0;
+#X connect 5 0 2 0;
+#X connect 5 1 1 0;
+#X connect 5 2 3 0;
+#X connect 5 3 4 0;
+#X restore 93 437 pd set xmin xmax ymin ymax;
+#X text 173 396 xmin xmax ymin ymax;
+#X msg 84 410 273 103 473 303;
+#X obj 83 15 inlet xmin;
+#X obj 234 14 inlet xmax;
+#X obj 385 14 inlet ymin;
+#X obj 536 14 inlet ymax;
+#X obj 448 436 outlet events;
+#X obj 83 83 unpack float float float float;
+#X obj 83 137 purepd/float_argument \$1;
+#X obj 234 137 purepd/float_argument \$2;
+#X obj 398 83 loadbang;
+#X obj 83 58 route list;
+#X obj 385 137 purepd/float_argument \$3;
+#X obj 536 137 purepd/float_argument \$4;
+#N canvas 0 22 601 552 constrain 0;
+#X obj 10 24 inlet data;
+#X obj 101 24 inlet xmin;
+#X obj 182 24 inlet xmax;
+#X obj 293 24 inlet ymin;
+#X obj 404 24 inlet ymax;
+#X obj 91 343 outlet;
+#X obj 61 110 unpack float float float float;
+#X obj 61 155 moses;
+#X obj 91 175 moses;
+#X obj 91 293 pack float float;
+#X obj 194 155 moses;
+#X obj 224 175 moses;
+#X obj 251 198 bang;
+#X obj 251 220 float;
+#X obj 191 198 bang;
+#X obj 191 220 float;
+#X obj 118 198 bang;
+#X obj 118 220 float;
+#X obj 51 198 bang;
+#X obj 51 220 float;
+#X connect 0 0 6 0;
+#X connect 1 0 7 1;
+#X connect 1 0 19 1;
+#X connect 2 0 8 1;
+#X connect 2 0 17 1;
+#X connect 3 0 10 1;
+#X connect 3 0 15 1;
+#X connect 4 0 11 1;
+#X connect 4 0 13 1;
+#X connect 6 0 7 0;
+#X connect 6 1 10 0;
+#X connect 7 0 18 0;
+#X connect 7 1 8 0;
+#X connect 8 0 9 0;
+#X connect 8 1 16 0;
+#X connect 9 0 5 0;
+#X connect 10 0 14 0;
+#X connect 10 1 11 0;
+#X connect 11 0 9 1;
+#X connect 11 1 12 0;
+#X connect 12 0 13 0;
+#X connect 13 0 9 1;
+#X connect 14 0 15 0;
+#X connect 15 0 9 1;
+#X connect 16 0 17 0;
+#X connect 17 0 9 0;
+#X connect 18 0 19 0;
+#X connect 19 0 9 0;
+#X restore 448 383 pd constrain mouse messages;
+#N canvas 0 22 351 249 get 0;
+#X obj 139 110 outlet;
+#X msg 89 54 capture 1;
+#X obj 89 33 loadbang;
+#X obj 89 75 toxy/tot .top;
+#X connect 1 0 3 0;
+#X connect 2 0 1 0;
+#X connect 3 2 0 0;
+#X restore 35 222 pd get events;
+#X obj 86 275 bang;
+#X obj 37 332 spigot;
+#N canvas 95 390 538 391 constrain 0;
+#X obj 113 352 outlet;
+#X obj 10 24 inlet data;
+#X obj 101 24 inlet xmin;
+#X obj 182 24 inlet xmax;
+#X obj 293 24 inlet ymin;
+#X obj 404 24 inlet ymax;
+#X obj 61 110 unpack float float float float;
+#X obj 61 155 moses;
+#X obj 91 175 moses;
+#X obj 214 155 moses;
+#X obj 244 175 moses;
+#X obj 204 212 bang;
+#X obj 113 330 &&;
+#X obj 238 212 bang;
+#X msg 238 235 1;
+#X msg 204 235 0;
+#X obj 58 212 bang;
+#X obj 92 212 bang;
+#X msg 92 235 1;
+#X msg 58 235 0;
+#X connect 1 0 6 0;
+#X connect 2 0 7 1;
+#X connect 3 0 8 1;
+#X connect 4 0 9 1;
+#X connect 5 0 10 1;
+#X connect 6 0 7 0;
+#X connect 6 1 9 0;
+#X connect 7 0 16 0;
+#X connect 7 1 8 0;
+#X connect 8 0 17 0;
+#X connect 8 1 16 0;
+#X connect 9 0 11 0;
+#X connect 9 1 10 0;
+#X connect 10 0 13 0;
+#X connect 10 1 11 0;
+#X connect 11 0 15 0;
+#X connect 12 0 0 0;
+#X connect 13 0 14 0;
+#X connect 14 0 12 1;
+#X connect 15 0 12 1;
+#X connect 16 0 19 0;
+#X connect 17 0 18 0;
+#X connect 18 0 12 0;
+#X connect 19 0 12 0;
+#X restore 137 290 pd constrain mousedown;
+#X obj 35 253 route motion mouseup mouse;
+#X msg 86 296 0;
+#X connect 3 0 1 0;
+#X connect 4 0 13 0;
+#X connect 5 0 11 0;
+#X connect 6 0 14 0;
+#X connect 7 0 15 0;
+#X connect 9 0 10 0;
+#X connect 9 1 11 0;
+#X connect 9 2 14 0;
+#X connect 9 3 15 0;
+#X connect 10 0 16 1;
+#X connect 10 0 20 1;
+#X connect 11 0 16 2;
+#X connect 11 0 20 2;
+#X connect 12 0 11 0;
+#X connect 12 0 10 0;
+#X connect 12 0 14 0;
+#X connect 12 0 15 0;
+#X connect 13 0 9 0;
+#X connect 13 1 10 0;
+#X connect 14 0 16 3;
+#X connect 14 0 20 3;
+#X connect 15 0 16 4;
+#X connect 15 0 20 4;
+#X connect 16 0 8 0;
+#X connect 17 0 21 0;
+#X connect 18 0 22 0;
+#X connect 19 0 16 0;
+#X connect 20 0 19 1;
+#X connect 21 0 19 0;
+#X connect 21 1 18 0;
+#X connect 21 2 20 0;
+#X connect 22 0 19 1;