diff options
| -rw-r--r-- | doc/notescale-help.pd | 44 | ||||
| -rw-r--r-- | notescale.pd | 29 |
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; |