#N canvas 487 41 685 403 12;
#X text 84 166 frequency;
#X floatatom 30 173 7 0 0 0 - - - 0;
#X floatatom 30 65 5 0 63 0 - - - 0;
#X text 84 183 in Hz.;
#X obj 30 236 rfft~;
#X obj 30 148 / 64;
#X obj 29 14 framp~;
#X text 82 13 - estimate frequency and amplitude of FFT components;
#X obj 28 270 framp~;
#X obj 103 329 print~ frequency;
#X obj 118 304 print~ amplitude;
#X obj 30 204 osc~;
#X text 75 65 frequency in bins (< 63);
#X obj 30 90 t f b;
#X obj 62 121 samplerate~;
#X obj 30 120 *;
#X text 465 369 updated for Pd version 0.47;
#X obj 103 256 bng 19 250 50 0 empty empty empty 17 7 0 10 #dfdfdf #000000 #000000;
#X obj 11 48 cnv 1 667 1 empty empty empty 8 12 0 13 #000000 #000000 0;
#N canvas 791 141 463 297 reference 0;
#X text 190 246 NONE;
#X obj 20 51 cnv 5 430 5 empty empty INLETS: 8 18 0 13 #202020 #000000 0;
#X obj 19 270 cnv 5 430 5 empty empty empty 8 18 0 13 #202020 #000000 0;
#X obj 21 146 cnv 2 430 2 empty empty OUTLETS: 8 12 0 13 #202020 #000000 0;
#X obj 18 81 cnv 1 430 1 empty empty 1st: 8 12 0 13 #9f9f9f #000000 0;
#X obj 19 169 cnv 1 430 1 empty empty 1st: 8 12 0 13 #9f9f9f #000000 0;
#X obj 18 112 cnv 1 430 1 empty empty 2nd: 8 12 0 13 #9f9f9f #000000 0;
#X obj 19 200 cnv 1 430 1 empty empty 2nd: 8 12 0 13 #9f9f9f #000000 0;
#X obj 20 238 cnv 2 430 2 empty empty ARGUMENTS: 8 12 0 13 #202020 #000000 0;
#X obj 33 17 framp~;
#X text 100 87 signal - real part of FFT.;
#X text 100 117 signal - imaginary part of FFT.;
#X text 100 176 signal - estimated frequency of bin.;
#X text 100 207 signal - estimated amplitude of bin.;
#X text 86 16 - estimate frequency and amplitude of FFT.;
#X restore 499 13 pd reference;
#X text 597 14 <= click;
#X obj 11 360 cnv 1 667 1 empty empty empty 8 12 0 13 #000000 #000000 0;
#X text 127 255 <-- print analysis;
#X text 304 87 [framp~] takes as input a rectangular-windowed FFT and outputs \, for each FFT channel \, the estimated amplitude and frequency of any component feeding that channel. A sinusoidal component should appear in four components (or three in the special case of a sinusoid exactly tuned to a bin.) Frequency output is in bins \, i.e. \, units of SR/N., f 50;
#X text 304 198 The estimation is done according to the hop-1 trick described in Puckette&Brown \, Accuracy of Frequency Estimates Using the Phase Vocoder \, using a Hann window. A more sophisticated version of this technique is used in the [sigmund~] object., f 50;
#X text 32 373 see also:;
#X obj 109 372 sigmund~;
#X msg 174 171 \; pd dsp \$1;
#X obj 174 135 set-dsp-tgl;
#X text 205 139 DSP on/off;
#X connect 1 0 11 0;
#X connect 2 0 13 0;
#X connect 4 0 8 0;
#X connect 4 1 8 1;
#X connect 5 0 1 0;
#X connect 8 0 9 0;
#X connect 8 1 10 0;
#X connect 11 0 4 0;
#X connect 13 0 15 0;
#X connect 13 1 14 0;
#X connect 14 0 15 1;
#X connect 15 0 5 0;
#X connect 17 0 9 0;
#X connect 17 0 10 0;
#X connect 28 0 27 0;
