From 8918924a8278ed198e1efb22aaad1d011e653447 Mon Sep 17 00:00:00 2001 From: Hans-Christoph Steiner Date: Tue, 10 Apr 2007 05:50:17 +0000 Subject: 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 --- mouse_region.pd | 195 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 195 insertions(+) create mode 100644 mouse_region.pd (limited to 'mouse_region.pd') 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; -- cgit v1.2.1