[notescale] is basically a HID object, but not necessarily, hence no hid_ prefix

svn path=/trunk/externals/hcs/hid/; revision=2340

2 files changed, 73 insertions, 0 deletions

diff --git a/doc/notescale-help.pd b/doc/notescale-help.pd
new file mode 100644
index 0000000..053b712
--- /dev/null
+++ b/doc/notescale-help.pd
@@ -0,0 +1,44 @@
+#N canvas 577 303 460 463 10;
+#X floatatom 26 85 5 0 0 0 - - -;
+#X floatatom 26 160 0 0 0 0 - - -;
+#X obj 2 2 cnv 15 450 20 empty empty [notescale] 2 11 1 18 -233017
+-66577 0;
+#X obj 418 3 pddp;
+#X floatatom 137 266 5 0 0 0 - - -;
+#X obj 140 330 hsl 128 15 0 127 0 0 empty empty empty -2 -6 0 8 -262144
+-1 -1 0 1;
+#X text 17 393 (C) Copyright 2004 Hans-Christoph Steiner <hans@at.or.at>
+;
+#X text 234 407 released under the GNU GPL;
+#X floatatom 150 160 0 0 0 0 - - -;
+#X floatatom 297 160 0 0 0 0 - - -;
+#X obj 213 83 hsl 128 15 0 1 0 0 empty empty empty -2 -6 0 8 -262144
+-1 -1 0 0;
+#X text 17 426 $Revision: 1.1 $$Date: 2004-11-28 20:57:26 $;
+#X text 18 439 $Author: eighthave $;
+#X obj 140 244 hsl 128 15 0 1 0 0 empty empty empty -2 -6 0 8 -262144
+-1 -1 0 0;
+#X obj 26 130 notescale 30 60;
+#X floatatom 137 347 5 0 0 0 - - -;
+#X text 13 193 If you use [notescale] with no arguments \, then the
+output range defaults to 0-127.;
+#X floatatom 202 109 5 0 0 0 - - -;
+#X obj 26 105 / 100;
+#X text 18 35 [notescale] scales a stream of numbers to a MIDI note
+number. It takes an input range of 0 to 1 \, and outputs MIDI note
+numbers based on an output range set as arguments.;
+#X obj 137 297 notescale;
+#X obj 150 130 notescale 15 120;
+#X obj 297 130 notescale 24 48;
+#X connect 0 0 18 0;
+#X connect 4 0 20 0;
+#X connect 5 0 15 0;
+#X connect 10 0 17 0;
+#X connect 10 0 21 0;
+#X connect 10 0 22 0;
+#X connect 13 0 4 0;
+#X connect 14 0 1 0;
+#X connect 18 0 14 0;
+#X connect 20 0 5 0;
+#X connect 21 0 8 0;
+#X connect 22 0 9 0;
diff --git a/notescale.pd b/notescale.pd
new file mode 100644
index 0000000..8c63369
--- /dev/null
+++ b/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;