plotspectrum~.pd

#N canvas 0 39 612 701 10;
#X obj 98 -70 powspec~;
#X obj 99 -44 sqrt~;
#X obj 98 -97 inlet~;
#X obj 303 1 /~ 1.5708;
#X obj 597 -7 s \$0-blocksize;
#X obj 532 -65 \$1;
#X obj 532 -37 expr if($i1 > 0 \, $i1 \, 1024);
#X msg 532 -7 set \$1;
#X obj 532 18 block~;
#X obj 117 -22 r \$0-blocksize;
#X obj 99 2 /~;
#X text 20 -168 Plot the magnitude and phase spectra of input signal.
Optional creation argument specifies FFT length (defaults to 1024).
;
#X text 530 -114 Set the FFT block size.;
#X text 95 -116 Compute spectra.;
#X text 326 -18 pi / 2;
#X obj 532 -93 loadbang;
#X obj 497 55 / 2;
#X obj 484 -93 inlet;
#X obj 100 115 plot~;
#X obj 304 115 plot~;
#X text 236 99 magnitude;
#X text 467 99 phase;
#X connect 0 0 1 0;
#X connect 0 1 3 0;
#X connect 1 0 10 0;
#X connect 2 0 0 0;
#X connect 3 0 19 0;
#X connect 5 0 6 0;
#X connect 6 0 4 0;
#X connect 6 0 7 0;
#X connect 6 0 16 0;
#X connect 7 0 8 0;
#X connect 9 0 10 1;
#X connect 10 0 18 0;
#X connect 15 0 5 0;
#X connect 16 0 19 1;
#X connect 16 0 18 1;
#X connect 17 0 6 0;
#X coords 0 -1 1 1 404 185 1 100 100;