#N canvas 37 55 730 536 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 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 30.0803 31.4701 33.1065 52.0114 47.7819 37.9147 48.2686 46.4434
56.8785 62.0544 69.882 72.7805 61.7092 50.7736 50.1543 38.8859 37.1575
30.7779 21.1725 34.4216 22.8524 26.175 25.7124 24.2305 16.3537 15.3451
21.1758 22.2748 16.3665 19.854 13.1483 16.2424 13.3321 11.2692 8.56784
7.95922 9.50301 8.92449 8.91291 7.32026 7.23005 10.9718 9.86315 6.88172
7.91896 6.71943 9.13883 6.36199 5.4387 6.79236 5.10851 6.02639 5.03933
5.70703 5.2117 4.99047 5.84781 3.2943 4.38683 5.42658 4.37628 4.39608
3.62788 4.00139 4.00047 3.60715 3.79893 3.24658 3.32084 3.02846 2.22865
4.0697 1.93467 1.96547 2.93788 2.41314 1.18822 2.45414 0.574273 2.06282
1.70226 2.23108 0.8163 1.50167 1.52215 2.20933 1.06624 0.825411 1.56713
1.11205 0.732813 1.2046 0.211488 0.422504 0.026646 6.98e-16 0.0312144
0.0495616 0.0387051 0.0640743 0.0225274 0.0112221 0.0192458 8.95581e-16
1.98599e-16 0.0061085 0 4.90499e-17 3.81363e-16 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0;
#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 418 117 /;
#X floatatom 265 265 5 0 0 0 - - -;
#X obj 493 96 r \$0-maxfreq;
#X msg 566 48 4000;
#X obj 566 69 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 obj 418 96 samplerate~;
#X obj 417 -143 loadbang;
#X floatatom 465 166 5 0 0 0 - - -;
#X obj 417 -123 t b b b;
#X floatatom 464 142 5 0 0 0 - - -;
#X connect 0 0 21 0;
#X connect 2 0 3 0;
#X connect 3 0 1 0;
#X connect 3 0 4 0;
#X connect 3 0 33 0;
#X connect 3 0 44 0;
#X connect 4 0 5 0;
#X connect 6 0 7 1;
#X connect 7 0 32 0;
#X connect 10 0 3 0;
#X connect 12 0 7 0;
#X connect 14 0 34 0;
#X connect 14 0 13 0;
#X connect 16 0 14 0;
#X connect 17 0 18 0;
#X connect 18 0 16 0;
#X connect 18 0 19 0;
#X connect 19 0 22 0;
#X connect 21 0 12 0;
#X connect 23 0 21 1;
#X connect 24 0 25 0;
#X connect 26 0 24 0;
#X connect 26 0 28 0;
#X connect 28 0 30 0;
#X connect 29 0 28 1;
#X connect 32 0 38 0;
#X connect 32 0 43 1;
#X connect 33 0 31 0;
#X connect 33 0 60 0;
#X connect 34 0 37 0;
#X connect 35 0 36 0;
#X connect 36 0 38 1;
#X connect 37 0 42 0;
#X connect 38 0 42 1;
#X connect 39 0 35 0;
#X connect 39 0 37 1;
#X connect 41 0 51 0;
#X connect 42 0 43 0;
#X connect 43 0 13 0;
#X connect 45 0 33 1;
#X connect 45 0 62 0;
#X connect 47 0 45 1;
#X connect 47 0 46 0;
#X connect 48 0 49 0;
#X connect 51 0 40 0;
#X connect 58 0 45 0;
#X connect 59 0 61 0;
#X connect 61 0 2 0;
#X connect 61 1 58 0;
#X connect 61 2 48 0;
#X coords 0 -1 1 1 200 185 1 100 100;