#N canvas 611 49 698 466 12; #X obj 354 23 inlet~; #X floatatom 179 103 5 435 445 0 ref_pitch #0-startup1 #0-ref_pitch ; #X obj 354 57 fiddle~ 2048; #X obj 573 23 loadbang; #X obj 573 73 s \$0-startup1; #X msg 573 48 440; #X obj 464 52 switch~; #X text 185 121 0; #X obj 188 229 cnv 15 15 15 empty \$0-note_name Eb4 -15 30 0 40 -258699 -258699 0; #X obj 187 314 tgl 15 0 \$0-switch empty on/off 17 7 0 10 -262144 -1 -1 0 1; #X obj 464 26 r \$0-switch; #X obj 115 142 knob 160 160 -0.5 0.5 0 0 empty \$0-needle -50_____tune_____+50 10 150 64 12 -262144 -33289 -1 0 1; #N canvas 0 0 450 300 math 0; #X obj 15 10 inlet; #X obj 15 178 outlet; #X obj 321 57 r \$0-ref_pitch; #X obj 15 123 expr 69 + 12*(log($f1/$f2)/log(2)); #X obj 15 63 t f b; #X obj 284 83 f 440; #X obj 15 37 expr 440 * pow (2 \, ($f1-69)/12); #X connect 0 0 6 0; #X connect 2 0 5 1; #X connect 3 0 1 0; #X connect 4 0 3 0; #X connect 4 1 5 0; #X connect 5 0 3 1; #X connect 6 0 4 0; #X restore 416 84 pd math; #N canvas 0 0 574 355 graphic 0; #X obj 97 15 inlet; #X obj 123 133 -; #X obj 150 108 i; #X obj 150 75 + 0.5; #X obj 123 185 line; #X msg 123 157 \$1 200; #X obj 97 45 t f f f; #X obj 225 153 expr if ($f1 > -0.02 && $f1 < 0.02 \, 1 \, 0); #X obj 123 210 s \$0-needle; #N canvas 0 0 450 300 symbol 0; #X obj 1 13 inlet; #X symbolatom 1 167 10 0 0 0 - - -; #X obj 1 85 i; #X obj 1 111 change; #X obj 1 56 + 0.5; #N canvas 0 0 604 438 notoname 0; #X floatatom 32 97 5 0 127 0 - - -; #X obj 390 159 int; #X msg 283 200 A; #X msg 343 200 B; #X msg 10 200 C; #X msg 73 200 D; #X msg 133 200 E; #X obj 390 198 t b f; #X symbolatom 175 356 10 0 0 0 - - -; #X obj 175 310 pack s f; #X obj 32 170 select 0 1 2 3 4 5 6 7 8 9 10 11; #X obj 32 146 mod 12; #X msg 161 200 F; #X msg 225 200 G; #X obj 390 137 / 12; #X msg 43 200 C#; #X msg 102 200 Eb; #X msg 194 200 F#; #X msg 254 200 G#; #X msg 313 200 Bb; #X obj 417 223 - 1; #X obj 32 71 inlet; #X obj 175 379 outlet; #X obj 32 120 t f f; #X text 71 95 <-- MIDI number; #X text 249 354 <-- MIDI note name; #X msg 175 333 symbol \$1\$2; #X connect 0 0 23 0; #X connect 1 0 7 0; #X connect 2 0 9 0; #X connect 3 0 9 0; #X connect 4 0 9 0; #X connect 5 0 9 0; #X connect 6 0 9 0; #X connect 7 0 9 0; #X connect 7 1 20 0; #X connect 8 0 22 0; #X connect 9 0 26 0; #X connect 10 0 4 0; #X connect 10 1 15 0; #X connect 10 2 5 0; #X connect 10 3 16 0; #X connect 10 4 6 0; #X connect 10 5 12 0; #X connect 10 6 17 0; #X connect 10 7 13 0; #X connect 10 8 18 0; #X connect 10 9 2 0; #X connect 10 10 19 0; #X connect 10 11 3 0; #X connect 11 0 10 0; #X connect 12 0 9 0; #X connect 13 0 9 0; #X connect 14 0 1 0; #X connect 15 0 9 0; #X connect 16 0 9 0; #X connect 17 0 9 0; #X connect 18 0 9 0; #X connect 19 0 9 0; #X connect 20 0 9 1; #X connect 21 0 0 0; #X connect 23 0 11 0; #X connect 23 1 14 0; #X connect 26 0 8 0; #X restore 1 138 pd notoname; #X msg 1 203 label \$1; #X obj 1 231 s \$0-note_name; #X connect 0 0 4 0; #X connect 1 0 6 0; #X connect 2 0 3 0; #X connect 3 0 5 0; #X connect 4 0 2 0; #X connect 5 0 1 0; #X connect 6 0 7 0; #X restore 6 65 pd symbol; #X obj 225 288 s \$0-note_name; #X obj 225 180 sel 0 1; #X msg 225 208 0; #X msg 261 208 13; #X msg 225 242 color \$1 13; #X connect 0 0 6 0; #X connect 1 0 5 0; #X connect 1 0 7 0; #X connect 2 0 1 1; #X connect 3 0 2 0; #X connect 4 0 8 0; #X connect 5 0 4 0; #X connect 6 0 9 0; #X connect 6 1 1 0; #X connect 6 2 3 0; #X connect 7 0 11 0; #X connect 11 0 12 0; #X connect 11 1 13 0; #X connect 12 0 14 0; #X connect 13 0 14 0; #X connect 14 0 10 0; #X restore 416 110 pd graphic; #X connect 0 0 2 0; #X connect 2 2 12 0; #X connect 3 0 5 0; #X connect 5 0 4 0; #X connect 10 0 6 0; #X connect 12 0 13 0; #X coords 0 -1 1 1 200 250 2 100 100;