notescale.pd


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
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;