view examples/puredata/xtract/a_hann.pd @ 47:c20e91e86f08

xtract_magnitude_spectrum() and xtract_peaks() share format of N/2 frequency values and N/2 magnitude coefficients. 'Fixed' xtract_loudness() so that N=1 can be used for specific loudness.

#N canvas 379 192 709 463 10;
#X obj 368 85 samplerate~;
#X obj 371 153 phasor~;
#X msg 457 83 0;
#X obj 371 182 expr~ 0.5 - cos($v1 * 6.28) * 0.5;
#X obj 618 10 block~ \$1;
#X obj 368 107 /~ \$1;
#X text 43 20 Creation arg gives window size;
#X obj 346 38 t b b b b;
#X obj 490 58 float \$1;
#X obj 346 10 inlet;
#X obj 40 268 tabreceive~ \$0-hann;
#X obj 40 307 outlet~;
#X msg 491 80 resize \$1;
#X obj 493 104 s \$0-hann;
#X obj 373 308 table \$0-hann;
#X obj 371 207 tabwrite~ \$0-hann;
#X connect 0 0 5 0;
#X connect 1 0 3 0;
#X connect 2 0 1 1;
#X connect 3 0 15 0;
#X connect 5 0 1 0;
#X connect 7 0 15 0;
#X connect 7 1 2 0;
#X connect 7 2 0 0;
#X connect 7 3 8 0;
#X connect 8 0 12 0;
#X connect 9 0 7 0;
#X connect 10 0 11 0;
#X connect 12 0 13 0;