#N canvas 9 28 944 451 10;
#X obj 44 49 dsp;
#X obj 44 26 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1
;
#X floatatom 44 90 5 0 0 0 - - -;
#X floatatom 57 73 5 0 0 0 - - -;
#N canvas 0 0 450 300 graph1 0;
#X array scope 512 float 0;
#X coords 0 1 511 -1 512 100 1;
#X restore 350 236 graph;
#X obj 211 175 tabwrite~ scope;
#X obj 269 55 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X text 17 -25 spec2_tabreceive~;
#N canvas 0 0 450 300 graph2 0;
#X array filter 256 float 1;
#A 0 0 0 0 0 0 0 0 0.04 0.04 0.08 0.14 0.18 0.2 0.24 0.26 0.28 0.32
0.34 0.36 0.38 0.4 0.42 0.44 0.44 0.46 0.5 0.54 0.58 0.6 0.62 0.646667
0.673334 0.7 0.74 0.76 0.78 0 0 0 0 0 0 -0.06 -0.0866667 -0.113333
-0.14 -0.175 -0.21 -0.245 -0.28 -0.31 -0.34 -0.366667 -0.393333 -0.42
-0.45 -0.48 -0.52 -0.56 -0.58 -0.62 -0.62 -0.66 -0.67 -0.68 -0.7 -0.74
-0.76 -0.78 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0.8 0.78 0.76 0.68 0.62 0.58
0.5 0.473334 0.446667 0.42 0.38 0.34 0.3 0.266667 0.233333 0.2 0.17
0.14 0.11 0.08 0.05 0.02 0 0 0 0 0 0 -0.68 -0.68 -0.62 -0.56 -0.52
-0.48 -0.45 -0.42 -0.37 -0.32 -0.28 -0.24 -0.19 -0.14 -0.12 -0.1 -0.08
-0.02 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 1 255 -1 256 100 1;
#X restore 488 -33 graph;
#X obj 226 88 del 100;
#X msg 767 2 \; filter const 0;
#N canvas 70 41 953 575 spec2_blockfilter~ 0;
#X obj 100 51 inlet~;
#X obj 102 381 outlet~;
#X obj 271 120 block~ 256 2;
#N canvas 0 0 450 300 graph1 0;
#X array rect 256 float 0;
#X coords 0 1 255 -1 200 140 1;
#X restore 460 21 graph;
#X obj 276 459 tab_const rect;
#X obj 279 396 t b b;
#X msg 304 421 0 128 1;
#X msg 224 419 128 128 0;
#X obj 279 374 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 279 350 loadbang;
#X obj 100 135 rfft~;
#X obj 101 284 rifft~;
#X obj 101 309 /~ 256;
#X obj 101 108 *~;
#X obj 114 85 spec2_tabreceive~ rect;
#N canvas 0 0 450 300 graph1 0;
#X array real 256 float 0;
#X coords 0 1 255 -1 200 140 1;
#X restore 691 177 graph;
#N canvas 0 0 450 300 graph1 0;
#X array imag 256 float 0;
#X coords 0 1 255 -1 200 140 1;
#X restore 691 326 graph;
#X obj 697 56 inlet;
#X obj 697 80 t b;
#X obj 246 153 spec2_tabreceive~ real;
#X obj 262 178 spec2_tabreceive~ imag;
#X text 407 178 1.arg: <symbol> table-name;
#X obj 157 264 spec2+~;
#X obj 39 261 spec2-~;
#X obj 31 216 spec2*~;
#X obj 84 219 spec2*~;
#X obj 145 218 spec2*~;
#X obj 204 218 spec2*~;
#X obj 697 102 tab_rfft filter real imag 256;
#X connect 0 0 13 0;
#X connect 5 0 7 0;
#X connect 5 1 6 0;
#X connect 6 0 4 0;
#X connect 7 0 4 0;
#X connect 8 0 5 0;
#X connect 9 0 8 0;
#X connect 10 0 24 0;
#X connect 10 0 26 0;
#X connect 10 1 25 0;
#X connect 10 1 27 0;
#X connect 11 0 12 0;
#X connect 12 0 1 0;
#X connect 13 0 10 0;
#X connect 14 0 13 1;
#X connect 17 0 18 0;
#X connect 18 0 28 0;
#X connect 19 0 24 1;
#X connect 19 0 27 1;
#X connect 20 0 25 1;
#X connect 20 0 26 1;
#X connect 22 0 11 1;
#X connect 23 0 11 0;
#X connect 24 0 23 0;
#X connect 25 0 23 1;
#X connect 26 0 22 0;
#X connect 27 0 22 1;
#X restore 248 137 pd spec2_blockfilter~ using spec2_tabreceive~;
#X obj 582 122 spec2_tabreceive~ filter;
#X text 735 121 1.arg: <symbol> table-name;
#X msg 607 92 symbol filter;
#X text 90 302 IEM KUG;
#X text 74 290 musil;
#X text 104 290 @;
#X text 110 290 iem.at;
#X text 73 312 Graz \, Austria;
#X text 25 279 (c) Thomas Musil 2000 - 2006;
#X obj 249 114 dirac~;
#X text 143 -11 iem_spec2 calculates only (blocksize/2 + 1) samples
;
#X text 140 -27 receives spectrum from table with (blocksize/2 + 1)
;
#X connect 0 0 2 0;
#X connect 0 1 3 0;
#X connect 1 0 0 0;
#X connect 6 0 11 1;
#X connect 6 0 9 0;
#X connect 9 0 5 0;
#X connect 9 0 21 0;
#X connect 11 0 5 0;
#X connect 14 0 12 0;
#X connect 21 0 11 0;