#N canvas 216 116 681 699 10;
#X obj 31 87 fiddle~;
#X obj 131 32 adc~;
#X floatatom 31 124 5 0 0 0 - - -;
#X obj 31 149 mtof;
#X floatatom 31 179 5 0 0 0 - - -;
#X text 74 124 MIDI note number;
#X text 77 179 frequency in Hertz;
#X text 166 32 signal input;
#X text 90 88 pitch estimate;
#X obj 349 91 env~ 1024;
#X text 417 91 RMS amplitude estimate;
#X floatatom 349 126 5 0 0 0 - - -;
#X obj 349 159 moses 60;
#X obj 400 184 moses 80;
#X floatatom 349 186 5 0 0 0 - - -;
#X floatatom 400 210 5 0 0 0 - - -;
#X floatatom 451 210 5 0 0 0 - - -;
#X text 494 209 > 80 dB;
#X text 293 186 < 60 dB;
#X obj 31 271 line~;
#X obj 31 199 t f b;
#X msg 61 221 1;
#X obj 31 247 pack;
#X obj 31 452 +~;
#X obj 31 507 osc~;
#X obj 31 566 *~;
#X obj 47 547 line~;
#X text 72 271 set carrier frequency;
#X obj 451 255 * 0.05;
#X obj 451 279 t f b;
#X obj 451 319 pack;
#X msg 481 298 5;
#X text 485 231 = 0-20;
#X text 501 256 = 0-1;
#X text 489 319 output amplitude;
#X obj 31 601 dac~;
#X obj 354 243 t f b;
#X obj 354 283 pack;
#X msg 384 262 5;
#X obj 354 305 line~;
#X obj 308 334 osc~;
#X obj 338 361 *~;
#X text 162 528 highly experimental patch;
#X text 162 541 (wear protective clothing!);
#X text 166 556 pitch estimate controls FM carrier frequency;
#X text 166 571 amplitude estimates between 60 and 80 dB control volume
;
#X text 158 587 amplitude estimates greater than 80 dB control FM mod
freq;
#X obj 451 231 - 60;
#X connect 0 0 2 0;
#X connect 1 0 0 0;
#X connect 1 1 9 0;
#X connect 2 0 3 0;
#X connect 3 0 4 0;
#X connect 4 0 20 0;
#X connect 9 0 11 0;
#X connect 11 0 12 0;
#X connect 12 0 14 0;
#X connect 12 1 13 0;
#X connect 13 0 15 0;
#X connect 13 1 16 0;
#X connect 15 0 47 0;
#X connect 16 0 36 0;
#X connect 19 0 23 0;
#X connect 20 0 22 0;
#X connect 20 1 21 0;
#X connect 21 0 22 1;
#X connect 22 0 19 0;
#X connect 23 0 24 0;
#X connect 24 0 25 0;
#X connect 25 0 35 0;
#X connect 25 0 35 1;
#X connect 26 0 25 1;
#X connect 28 0 29 0;
#X connect 29 0 30 0;
#X connect 29 1 31 0;
#X connect 30 0 26 0;
#X connect 31 0 30 1;
#X connect 36 0 37 0;
#X connect 36 1 38 0;
#X connect 37 0 39 0;
#X connect 38 0 37 1;
#X connect 39 0 40 0;
#X connect 39 0 41 1;
#X connect 40 0 41 0;
#X connect 41 0 23 1;
#X connect 47 0 28 0;