#N canvas 60 47 604 528 10;
#X obj 97 -79 inlet~;
#X obj 409 6 s \$0-blocksize;
#X obj 344 -52 \$1;
#X obj 344 -24 expr if($i1 > 0 \, $i1 \, 1024);
#X msg 344 6 set \$1;
#X obj 344 31 block~;
#X obj 113 -3 r \$0-blocksize;
#X obj 98 24 /~;
#X text 342 -101 Set the FFT block size.;
#X text 95 -102 Compute spectra.;
#X obj 344 -80 loadbang;
#X obj 296 -80 inlet;
#X text 18 -155 Plot the power spectrum of the input signal. Optional
creation argument specifies FFT length (defaults to 1024).;
#N canvas 413 270 294 194 powspec~ 0;
#X obj 103 52 rfft~;
#X obj 108 113 +~;
#X obj 93 87 *~;
#X obj 126 87 *~;
#X obj 102 24 inlet~;
#X obj 108 142 outlet~;
#X connect 0 0 2 0;
#X connect 0 0 2 1;
#X connect 0 1 3 0;
#X connect 0 1 3 1;
#X connect 1 0 5 0;
#X connect 2 0 1 0;
#X connect 3 0 1 1;
#X connect 4 0 0 0;
#X restore 97 -26 pd powspec~;
#X obj 101 76 tabwrite~ \$0-signal;
#X obj 165 25 metro 100;
#N canvas 0 22 450 300 (subpatch) 0;
#X array \$0-signal 256 float 1;
#A 0 9.63985e-11 2.45054e-11 2.61733e-11 2.83247e-11 3.32783e-11 3.97212e-11
4.85953e-11 5.86283e-11 7.01701e-11 8.38122e-11 1.01576e-10 1.4248e-10
2.05489e-10 5.31734e-10 5.59033e-10 2.04968e-10 1.38892e-10 1.0753e-10
9.24005e-11 8.04997e-11 7.07577e-11 6.25875e-11 5.56573e-11 5.08633e-11
4.88602e-11 4.79013e-11 4.95562e-11 9.55739e-11 3.86835e-11 3.44817e-11
3.22825e-11 3.09719e-11 3.02321e-11 2.98555e-11 2.97331e-11 2.984e-11
3.02272e-11 3.10497e-11 3.26755e-11 3.60469e-11 4.51355e-11 3.91537e-11
3.45115e-11 3.15781e-11 2.97222e-11 2.84189e-11 2.74426e-11 2.66844e-11
2.60877e-11 2.56251e-11 2.52907e-11 2.51056e-11 2.51518e-11 2.57593e-11
3.2332e-11 2.23308e-11 2.08394e-11 2.1434e-11 2.17649e-11 2.19973e-11
2.22177e-11 2.24722e-11 2.27956e-11 2.32258e-11 2.38166e-11 2.46598e-11
2.5937e-11 2.78446e-11 3.30817e-11 2.72477e-11 2.45787e-11 2.28238e-11
2.14958e-11 2.04222e-11 1.95267e-11 1.87751e-11 1.81598e-11 1.77004e-11
1.74619e-11 1.76147e-11 1.86562e-11 2.2325e-11 1.87736e-11 1.58599e-11
1.46724e-11 1.41729e-11 1.40222e-11 1.40925e-11 1.43343e-11 1.47331e-11
1.52973e-11 1.60627e-11 1.71164e-11 1.86729e-11 2.13736e-11 2.38959e-11
1.96928e-11 1.72416e-11 1.55606e-11 1.42593e-11 1.32587e-11 1.26682e-11
1.26842e-11 1.33265e-11 1.44059e-11 1.57859e-11 1.75038e-11 1.98391e-11
2.34789e-11 2.29626e-11 2.02548e-11 1.87298e-11 1.77508e-11 1.70719e-11
1.65897e-11 1.62572e-11 1.60572e-11 1.59945e-11 1.61003e-11 1.64506e-11
1.72199e-11 1.88219e-11 2.08436e-11 1.78507e-11 1.5505e-11 1.42711e-11
1.3667e-11 1.34189e-11 1.33833e-11 1.34955e-11 1.37368e-11 1.412e-11
1.46903e-11 1.55459e-11 1.6896e-11 1.90785e-11 1.9379e-11 1.65041e-11
1.44986e-11 1.32009e-11 1.24047e-11 1.20035e-11 1.19175e-11 1.20817e-11
1.24557e-11 1.30321e-11 1.38464e-11 1.50008e-11 1.67101e-11 1.87916e-11
1.7472e-11 1.501e-11 1.31671e-11 1.16831e-11 1.0359e-11 9.04944e-12
7.58461e-12 5.61756e-12 1.7835e-12 1.95315e-12 6.74134e-12 9.78794e-12
1.27135e-11 1.46064e-11 1.31289e-11 1.14821e-11 1.0227e-11 9.17609e-12
8.1935e-12 7.17729e-12 6.05105e-12 4.9537e-12 5.0399e-12 6.94241e-12
9.33508e-12 1.19052e-11 1.46294e-11 1.53648e-11 1.40058e-11 1.29024e-11
1.21673e-11 1.16763e-11 1.13585e-11 1.11822e-11 1.11422e-11 1.12554e-11
1.15647e-11 1.21476e-11 1.31285e-11 1.4646e-11 1.61744e-11 1.54597e-11
1.39768e-11 1.29654e-11 1.23563e-11 1.20234e-11 1.18914e-11 1.19223e-11
1.21027e-11 1.24396e-11 1.29616e-11 1.37257e-11 1.48219e-11 1.62469e-11
1.68312e-11 1.52883e-11 1.35425e-11 1.21809e-11 1.11392e-11 1.03439e-11
9.75561e-12 9.3605e-12 9.16432e-12 9.19144e-12 9.488e-12 1.01274e-11
1.11908e-11 1.24535e-11 1.2347e-11 1.08659e-11 9.57472e-12 8.69595e-12
8.14817e-12 7.85989e-12 7.78853e-12 7.91413e-12 8.23515e-12 8.76819e-12
9.5511e-12 1.06435e-11 1.20602e-11 1.32228e-11 1.26767e-11 1.13515e-11
1.02788e-11 9.53682e-12 9.0646e-12 8.81495e-12 8.76149e-12 8.89392e-12
9.21622e-12 9.74802e-12 1.05281e-11 1.16039e-11 1.28806e-11 1.34217e-11
1.23837e-11 1.10495e-11 1.00297e-11 9.35551e-12 8.99194e-12 8.90752e-12
9.07358e-12 9.46463e-12 1.00651e-11 1.08773e-11;
#X coords 0 99 255 0 200 140 1;
#X restore 100 145 graph;
#X obj 194 124 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X obj 231 44 loadbang;
#X msg 230 65 1;
#X floatatom 262 122 5 0 0 0 - - -;
#X text 220 121 yscale;
#X obj 97 -50 *~;
#X obj 315 149 s \$0-yscale;
#X obj 162 -74 r \$0-yscale;
#X msg 349 247 resize \$1;
#X obj 349 276 s \$0-signal;
#X obj 349 199 r \$0-maxx;
#X obj 435 276 s \$0-signal;
#X obj 435 223 pack 0 0;
#X obj 488 195 r \$0-minx;
#X msg 435 247 xlabel \$2 \$1;
#X obj 403 166 s \$0-maxx;
#X obj 98 49 rmstodb~;
#X obj 403 140 / 4;
#X obj -22 53 tabplay~ \$0-signal;
#X obj 38 191 * -1;
#X obj 38 215 + 1;
#X obj -7 242 *~;
#X obj 35 243 *~;
#X obj -5 163 r \$0-alpha;
#X obj -6 140 s \$0-alpha;
#X obj -6 97 loadbang;
#X obj 17 270 +~;
#X obj 17 291 max~;
#X floatatom 262 103 5 0 0 0 - - -;
#X obj 422 107 44100;
#X obj 435 142 /;
#X floatatom 265 265 5 0 0 0 - - -;
#X obj 464 107 r \$0-maxfreq;
#X obj 456 29 loadbang;
#X msg 456 48 4000;
#X obj 456 70 s \$0-maxfreq;
#X text 216 103 fftsize;
#X msg -6 118 0.5;
#X text 18 -128 Original by Ron Weiss https://github.com/ronw/pd-dafx
;
#X text 17 -116 Modified 2011-01-25 Dan Ellis dpwe@ee.columbia.edu
;
#X text -2 316 Deacying "peak hold" on spectra;
#X text -3 327 so they don't disappear in a flash;
#X text 213 264 max freq;
#X text 161 123 plot?;
#X connect 0 0 22 0;
#X connect 2 0 3 0;
#X connect 3 0 1 0;
#X connect 3 0 4 0;
#X connect 3 0 34 0;
#X connect 3 0 45 0;
#X connect 4 0 5 0;
#X connect 6 0 7 1;
#X connect 7 0 33 0;
#X connect 10 0 2 0;
#X connect 11 0 3 0;
#X connect 13 0 7 0;
#X connect 15 0 35 0;
#X connect 15 0 14 0;
#X connect 17 0 15 0;
#X connect 18 0 19 0;
#X connect 19 0 17 0;
#X connect 19 0 20 0;
#X connect 20 0 23 0;
#X connect 22 0 13 0;
#X connect 24 0 22 1;
#X connect 25 0 26 0;
#X connect 27 0 25 0;
#X connect 27 0 29 0;
#X connect 29 0 31 0;
#X connect 30 0 29 1;
#X connect 33 0 39 0;
#X connect 33 0 44 1;
#X connect 34 0 32 0;
#X connect 35 0 38 0;
#X connect 36 0 37 0;
#X connect 37 0 39 1;
#X connect 38 0 43 0;
#X connect 39 0 43 1;
#X connect 40 0 36 0;
#X connect 40 0 38 1;
#X connect 42 0 54 0;
#X connect 43 0 44 0;
#X connect 44 0 14 0;
#X connect 46 0 47 0;
#X connect 47 0 34 1;
#X connect 49 0 47 1;
#X connect 49 0 48 0;
#X connect 50 0 51 0;
#X connect 51 0 52 0;
#X connect 54 0 41 0;
#X coords 0 -1 1 1 200 185 1 100 100;