cleaned up a lot of hid_ cruft; renamed some hid_ objects to better names; added more objects from hid_ and wrote more curve objects

svn path=/trunk/externals/mapping/; revision=4515

9 files changed, 297 insertions, 45 deletions

diff --git a/pd/buttongate.pd b/pd/buttongate.pd
new file mode 100644
index 0000000..8797ad4
--- /dev/null
+++ b/pd/buttongate.pd
@@ -0,0 +1,42 @@
+#N canvas 367 43 525 408 10;
+#X obj 303 81 hid \$1;
+#X obj 303 24 inlet;
+#X obj 303 106 route key;
+#X obj 303 127 route \$2;
+#X obj 104 26 inlet;
+#X obj 104 295 outlet;
+#X obj 104 264 spigot;
+#X text 10 324 (C) Copyright 2004 Hans-Christoph Steiner <hans@at.or.at>
+;
+#X text 226 340 released under the GNU GPL;
+#X text 16 371 $Author: eighthave $;
+#X text 16 388 $Date: 2006-01-29 08:12:33 $;
+#X text 16 354 $Revision: 1.1 $;
+#X obj 192 16 loadbang;
+#X obj 303 147 unpack f f;
+#X text 5 6 [buttongate];
+#X obj 242 263 spigot;
+#X obj 242 295 outlet;
+#X obj 333 195 - 1;
+#X obj 333 215 abs;
+#X msg 192 50 0;
+#X msg 243 50 1;
+#X obj 303 168 t f f;
+#X connect 0 0 2 0;
+#X connect 1 0 0 0;
+#X connect 2 0 3 0;
+#X connect 3 0 13 0;
+#X connect 4 0 6 0;
+#X connect 4 0 15 0;
+#X connect 6 0 5 0;
+#X connect 12 0 19 0;
+#X connect 12 0 20 0;
+#X connect 13 0 21 0;
+#X connect 15 0 16 0;
+#X connect 17 0 18 0;
+#X connect 18 0 15 1;
+#X connect 19 0 6 1;
+#X connect 20 0 15 1;
+#X connect 20 0 0 0;
+#X connect 21 0 6 1;
+#X connect 21 1 17 0;
diff --git a/pd/curve.pd b/pd/curve.pd
new file mode 100644
index 0000000..8d09a66
--- /dev/null
+++ b/pd/curve.pd
@@ -0,0 +1,34 @@
+#N canvas 12 269 577 490 10;
+#X obj 50 36 inlet;
+#X obj 165 34 inlet;
+#X obj 165 57 symbol;
+#X obj 47 411 outlet;
+#X obj 50 150 pack float symbol;
+#X msg 50 175 \$2 \$1;
+#X obj 39 256 atan;
+#X obj 123 260 cos;
+#X obj 152 260 sin;
+#X obj 188 273 print [curve];
+#X msg 189 251 ERROR: argument not supported \$1;
+#X obj 194 96 symbol_argument \$1;
+#X obj 51 100 * 3.14159;
+#X obj 39 277 / 1.26263;
+#X obj 50 198 route atan cos sin;
+#X obj 190 225 symbol;
+#X connect 0 0 12 0;
+#X connect 1 0 2 0;
+#X connect 2 0 4 1;
+#X connect 4 0 5 0;
+#X connect 5 0 14 0;
+#X connect 6 0 13 0;
+#X connect 7 0 3 0;
+#X connect 8 0 3 0;
+#X connect 10 0 9 0;
+#X connect 11 0 4 1;
+#X connect 12 0 4 0;
+#X connect 13 0 3 0;
+#X connect 14 0 6 0;
+#X connect 14 1 7 0;
+#X connect 14 2 8 0;
+#X connect 14 3 15 0;
+#X connect 15 0 10 0;
diff --git a/pd/curve_exp.pd b/pd/curve_exp.pd
index b7ca7a4..e77d677 100644
--- a/pd/curve_exp.pd
+++ b/pd/curve_exp.pd
@@ -1,11 +1,24 @@
-#N canvas 225 325 499 325 10;
-#X obj 72 38 inlet;
-#X obj 72 258 outlet;
-#X text 120 38 input range: 0 to 1;
-#X text 128 258 output range: 0 to 1;
-#X text 7 9 [hid_exp];
-#X obj 73 142 dbtorms;
-#X obj 73 120 * 100;
-#X connect 0 0 6 0;
-#X connect 5 0 1 0;
+#N canvas 225 325 507 333 10;
+#X obj 37 25 inlet;
+#X obj 37 262 outlet;
+#X obj 38 63 moses 0;
+#X obj 22 116 abs;
+#X obj 22 189 * -1;
+#X obj 22 168 dbtorms;
+#X obj 22 142 * 100;
+#X obj 83 142 * 100;
+#X obj 83 169 dbtorms;
+#X text 85 25 input range: -1 to 1;
+#X text 93 262 output range: -1 to 1;
+#X text 248 296 released under the GNU GPL;
+#X text 31 282 (C) Copyright 2006 Hans-Christoph Steiner <hans@at.or.at>
+;
+#X connect 0 0 2 0;
+#X connect 2 0 3 0;
+#X connect 2 1 7 0;
+#X connect 3 0 6 0;
+#X connect 4 0 1 0;
+#X connect 5 0 4 0;
 #X connect 6 0 5 0;
+#X connect 7 0 8 0;
+#X connect 8 0 1 0;
diff --git a/pd/curve_log.pd b/pd/curve_log.pd
index 297f5f8..f3946f1 100644
--- a/pd/curve_log.pd
+++ b/pd/curve_log.pd
@@ -1,11 +1,24 @@
-#N canvas 297 485 422 322 10;
-#X obj 31 45 inlet;
-#X obj 31 282 outlet;
-#X text 79 45 input range: 0 to 1;
-#X text 87 282 output range: 0 to 1;
-#X text 9 5 [hid_log];
-#X obj 30 145 rmstodb;
-#X obj 30 175 / 100;
-#X connect 0 0 5 0;
+#N canvas 236 31 428 321 10;
+#X obj 31 8 inlet;
+#X obj 31 245 outlet;
+#X obj 77 122 rmstodb;
+#X obj 77 152 / 100;
+#X obj 32 46 moses 0;
+#X obj 16 99 abs;
+#X obj 16 123 rmstodb;
+#X obj 16 151 / 100;
+#X obj 16 172 * -1;
+#X text 79 8 input range: -1 to 1;
+#X text 87 245 output range: -1 to 1;
+#X text 225 284 released under the GNU GPL;
+#X text 8 270 (C) Copyright 2006 Hans-Christoph Steiner <hans@at.or.at>
+;
+#X connect 0 0 4 0;
+#X connect 2 0 3 0;
+#X connect 3 0 1 0;
+#X connect 4 0 5 0;
+#X connect 4 1 2 0;
 #X connect 5 0 6 0;
-#X connect 6 0 1 0;
+#X connect 6 0 7 0;
+#X connect 7 0 8 0;
+#X connect 8 0 1 0;
diff --git a/pd/curve_power.pd b/pd/curve_power.pd
index 0332375..116f7b8 100644
--- a/pd/curve_power.pd
+++ b/pd/curve_power.pd
@@ -1,14 +1,33 @@
-#N canvas 612 444 456 373 10;
-#X obj 42 53 inlet;
-#X obj 42 230 outlet;
-#X text 5 14 input range: -1 to 1;
-#X obj 43 182 pow;
-#X text 98 229 output range: -1 to 1;
-#X obj 138 53 inlet;
-#X obj 146 106 float_argument \$1 1;
-#X obj 146 84 loadbang;
-#X connect 0 0 3 0;
-#X connect 3 0 1 0;
-#X connect 5 0 3 1;
-#X connect 6 0 3 1;
-#X connect 7 0 6 0;
+#N canvas 529 139 460 377 10;
+#X obj 40 32 inlet;
+#X obj 40 299 outlet;
+#X obj 40 74 min 1;
+#X text 5 6 input range: -1 to 1;
+#X obj 40 94 max -1;
+#X obj 41 231 pow;
+#X text 96 298 output range: -1 to 1;
+#X obj 178 30 inlet;
+#X obj 207 106 float_argument \$1 1;
+#X obj 207 85 loadbang;
+#X text 245 344 released under the GNU GPL;
+#X text 28 330 (C) Copyright 2006 Hans-Christoph Steiner <hans@at.or.at>
+;
+#X obj 39 121 moses 0;
+#X obj 41 207 abs;
+#X obj 115 232 pow;
+#X obj 41 257 * -1;
+#X obj 177 156 float;
+#X connect 0 0 2 0;
+#X connect 2 0 4 0;
+#X connect 4 0 12 0;
+#X connect 5 0 15 0;
+#X connect 7 0 16 0;
+#X connect 8 0 16 0;
+#X connect 9 0 8 0;
+#X connect 12 0 13 0;
+#X connect 12 1 14 0;
+#X connect 13 0 5 0;
+#X connect 14 0 1 0;
+#X connect 15 0 1 0;
+#X connect 16 0 14 1;
+#X connect 16 0 5 1;
diff --git a/pd/curve_root.pd b/pd/curve_root.pd
index a75bdc2..81aa3a6 100644
--- a/pd/curve_root.pd
+++ b/pd/curve_root.pd
@@ -1,22 +1,35 @@
-#N canvas 295 229 460 377 10;
+#N canvas 295 229 464 381 10;
 #X obj 40 32 inlet;
 #X obj 40 299 outlet;
-#X obj 40 94 min 1;
+#X obj 40 74 min 1;
 #X text 5 6 input range: -1 to 1;
-#X obj 40 114 max -1;
-#X obj 41 271 pow;
+#X obj 40 94 max -1;
+#X obj 41 231 pow;
 #X text 96 298 output range: -1 to 1;
-#X obj 58 246 /;
-#X msg 58 226 1 \$1;
-#X obj 142 33 inlet;
-#X obj 155 107 float_argument \$1 1;
-#X obj 155 86 loadbang;
+#X obj 177 156 /;
+#X msg 177 136 1 \$1;
+#X obj 178 30 inlet;
+#X obj 207 106 float_argument \$1 1;
+#X obj 207 85 loadbang;
+#X text 245 344 released under the GNU GPL;
+#X text 28 330 (C) Copyright 2006 Hans-Christoph Steiner <hans@at.or.at>
+;
+#X obj 39 121 moses 0;
+#X obj 40 161 abs;
+#X obj 115 232 pow;
+#X obj 41 257 * -1;
 #X connect 0 0 2 0;
 #X connect 2 0 4 0;
-#X connect 4 0 5 0;
-#X connect 5 0 1 0;
+#X connect 4 0 14 0;
+#X connect 5 0 17 0;
 #X connect 7 0 5 1;
+#X connect 7 0 16 1;
 #X connect 8 0 7 0;
 #X connect 9 0 8 0;
 #X connect 10 0 8 0;
 #X connect 11 0 10 0;
+#X connect 14 0 15 0;
+#X connect 14 1 16 0;
+#X connect 15 0 5 0;
+#X connect 16 0 1 0;
+#X connect 17 0 1 0;
diff --git a/pd/keygate.pd b/pd/keygate.pd
new file mode 100644
index 0000000..2da19c5
--- /dev/null
+++ b/pd/keygate.pd
@@ -0,0 +1,43 @@
+#N canvas 326 22 530 481 10;
+#X obj 44 36 inlet;
+#X obj 44 365 outlet;
+#X obj 44 334 spigot;
+#X text 109 401 (C) Copyright 2004 Hans-Christoph Steiner <hans@at.or.at>
+;
+#X text 326 415 released under the GNU GPL;
+#X text 16 444 $Author: eighthave $;
+#X text 16 461 $Date: 2006-01-29 08:12:33 $;
+#X text 16 427 $Revision: 1.1 $;
+#X obj 132 26 loadbang;
+#X text 5 6 [keygate];
+#X obj 182 333 spigot;
+#X obj 182 365 outlet;
+#X obj 273 204 - 1;
+#X obj 273 224 abs;
+#X obj 236 27 keyname;
+#X msg 132 60 0;
+#X msg 183 60 1;
+#X obj 243 181 t f f;
+#X obj 243 157 f;
+#X obj 243 107 sel \$1;
+#X obj 243 86 symbol;
+#X obj 236 57 trigger bang float;
+#X connect 0 0 2 0;
+#X connect 0 0 10 0;
+#X connect 2 0 1 0;
+#X connect 8 0 15 0;
+#X connect 8 0 16 0;
+#X connect 10 0 11 0;
+#X connect 12 0 13 0;
+#X connect 13 0 10 1;
+#X connect 14 0 21 0;
+#X connect 14 1 20 1;
+#X connect 15 0 2 1;
+#X connect 16 0 10 1;
+#X connect 17 0 2 1;
+#X connect 17 1 12 0;
+#X connect 18 0 17 0;
+#X connect 19 0 18 0;
+#X connect 20 0 19 0;
+#X connect 21 0 20 0;
+#X connect 21 1 18 1;
diff --git a/pd/notescale.pd b/pd/notescale.pd
new file mode 100644
index 0000000..8c63369
--- /dev/null
+++ b/pd/notescale.pd
@@ -0,0 +1,29 @@
+#N canvas 37 318 444 446 10;
+#X obj 64 49 inlet;
+#X obj 64 389 outlet;
+#X obj 64 325 int;
+#X obj 64 297 expr $f1 * ($f3 - $f2) + $f2;
+#X obj 357 231 f \$2;
+#X obj 159 230 f \$1;
+#X obj 159 257 expr if ($f1 == $f2 \, 0 \, $f1) \; if ($f1 == $f2 \,
+127 \, $f2);
+#X text 10 7 [notescale];
+#X obj 229 152 loadbang;
+#X obj 229 179 t b b;
+#X text 114 49 input range: 0 to 1;
+#X obj 64 96 min 1;
+#X obj 64 116 max 0;
+#X text 123 389 output range: MIDI note #s;
+#X connect 0 0 11 0;
+#X connect 2 0 1 0;
+#X connect 3 0 2 0;
+#X connect 4 0 6 1;
+#X connect 5 0 6 0;
+#X connect 6 0 3 1;
+#X connect 6 1 3 2;
+#X connect 8 0 9 0;
+#X connect 9 0 5 0;
+#X connect 9 1 4 0;
+#X connect 11 0 12 0;
+#X connect 12 0 3 0;
+#X connect 12 0 9 0;
diff --git a/pd/spiral.pd b/pd/spiral.pd
new file mode 100644
index 0000000..24fcd8d
--- /dev/null
+++ b/pd/spiral.pd
@@ -0,0 +1,46 @@
+#N canvas 492 167 673 445 10;
+#X obj 30 58 inlet;
+#X obj 25 363 outlet;
+#X text 73 363 output range: 0 to 1;
+#X text 72 57 input range: 0 to 1;
+#X obj 232 362 outlet;
+#X obj 222 58 inlet;
+#X text 264 57 input range: 0 to 1;
+#X text 29 29 x-axis value;
+#X text 221 26 y-axis value;
+#X text 254 411 released under the GNU GPL;
+#X text 40 396 (C) Copyright 2005 Hans-Christoph Steiner <hans@at.or.at>
+;
+#X obj 309 258 +;
+#X msg 260 227 1;
+#X msg 356 227 -1;
+#X obj 232 327 +;
+#X obj 262 161 delta;
+#X obj 310 291 * 1;
+#X obj 262 185 moses -0.4;
+#X obj 312 205 moses 0.4;
+#X text 273 90 changes over 0.4 mean one rotation. I can't move fast
+enough on my joystick to get near a change of 0.4 This might not work
+on other devices \, like tablets \, but we'll cross that bridge when
+we get to it (i.e. when I get a tablet);
+#X text 280 362 output range: infinite \, one rotation = 1;
+#X obj 105 109 polar;
+#X obj 135 133 trigger float float;
+#X obj 340 258 float;
+#X connect 0 0 21 0;
+#X connect 5 0 21 1;
+#X connect 11 0 16 0;
+#X connect 11 0 23 0;
+#X connect 12 0 11 0;
+#X connect 13 0 11 0;
+#X connect 14 0 4 0;
+#X connect 15 0 17 0;
+#X connect 16 0 14 1;
+#X connect 17 0 12 0;
+#X connect 17 1 18 0;
+#X connect 18 1 13 0;
+#X connect 21 0 1 0;
+#X connect 21 1 22 0;
+#X connect 22 0 14 0;
+#X connect 22 1 15 0;
+#X connect 23 0 11 1;