#N canvas 156 0 749 485 12;
#X obj 15 74 inlet~;
#X obj 43 213 inlet;
#X obj 15 104 rfft~;
#X obj 15 137 *~;
#X obj 46 137 *~;
#X obj 15 167 sqrt~;
#X text 221 29 cb: here we take the real fft to get blocks (2048 len)
of real and imaginary parts which are the cosine and sine components.
;
#X text 92 84 cb: what we get is an array of coefficients (strengths)
for blocksize / 2 cosine or sine components.;
#X text 90 115 cb: then for each pair of coefficients \, we sqaure
\, sum \, square root and plot the result. so what we get is each point
y[x] = sqrt(realcoef[x]^2 + imagcoef[x]^2) where x goes from 1 to blocksize
over 2 I think that this is rms.;
#X obj 110 208 bng 15 250 50 0 empty empty empty 20 8 0 8 -262144 -1
-1;
#X graph graph5 0 1 127 1000 327 474 727 194;
#X array 0$-cbspectrum1 128 float 0;
#X pop;
#X obj 65 39 block~ 1024 1;
#X obj 260 212 vsl 15 200 0 4 0 0 empty empty Level 20 8 1 8 -261681
-1 -1 0 1;
#X obj 9 260 *~ 1;
#X obj 45 321 tabwrite~ 0$-cbspectrum1;
#X connect 0 0 2 0;
#X connect 1 0 14 0;
#X connect 2 0 3 0;
#X connect 2 0 3 1;
#X connect 2 1 4 0;
#X connect 2 1 4 1;
#X connect 3 0 5 0;
#X connect 4 0 5 0;
#X connect 5 0 13 0;
#X connect 9 0 14 0;
#X connect 12 0 13 1;
#X connect 13 0 14 0;
