#N canvas 9 18 777 596 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 win 50 float 0;
#X coords 0 1 49 -1 200 140 1;
#X restore 267 333 graph;
#X floatatom 64 144 7 0 0 0 - - -;
#X obj 189 188 noise~;
#X floatatom 316 170 5 2 40 0 - - -;
#X msg 316 147 8;
#X text 22 -1 spec2_tab_conv~;
#X obj 64 166 osc~ 5000;
#N canvas 148 208 734 434 gen_win 0;
#X obj 92 43 inlet;
#X obj 92 121 - 1;
#X obj 92 142 t f f;
#X obj 92 167 / 20;
#X obj 92 188 * 3.14159;
#X obj 92 211 sin;
#X msg 92 232 \$1 \$1;
#X obj 92 254 *;
#X obj 92 65 t b f b;
#X msg 253 218 1 \$1;
#X obj 253 240 /;
#X obj 224 367 outlet;
#X obj 225 315 f;
#X msg 224 337 set win \$1;
#X obj 527 33 table hwin 50;
#X obj 242 124 tab_const hwin;
#X obj 92 274 tabwrite hwin;
#X obj 191 146 tab_sum hwin;
#X obj 253 264 tab_mul_scalar hwin hwin;
#X obj 191 192 tab_copy hwin win;
#X obj 93 95 for++ 1 20;
#X connect 0 0 8 0;
#X connect 1 0 2 0;
#X connect 2 0 3 0;
#X connect 2 1 16 1;
#X connect 3 0 4 0;
#X connect 4 0 5 0;
#X connect 5 0 6 0;
#X connect 6 0 7 0;
#X connect 7 0 16 0;
#X connect 8 0 20 0;
#X connect 8 1 3 1;
#X connect 8 1 12 1;
#X connect 8 1 20 1;
#X connect 8 2 15 0;
#X connect 9 0 10 0;
#X connect 10 0 18 0;
#X connect 12 0 13 0;
#X connect 13 0 11 0;
#X connect 17 0 19 0;
#X connect 17 1 9 0;
#X connect 19 0 12 0;
#X connect 20 0 1 0;
#X connect 20 1 17 0;
#X restore 316 189 pd gen_win;
#X obj 316 124 loadbang;
#N canvas 6 92 777 603 spec2_blockfilter~ 0;
#X obj 59 29 inlet~;
#X obj 72 488 outlet~;
#X obj 61 101 rfft~;
#X obj 71 392 rifft~;
#X obj 407 22 inlet;
#X text 199 240 1.arg: <symbol> table-name;
#X obj 474 23 block~ 256 2;
#N canvas 0 0 450 300 graph1 0;
#X array hsin 256 float 0;
#X coords 0 1 255 -1 200 140 1;
#X restore 423 296 graph;
#X obj 458 140 for++ 0 255 0.1;
#X obj 458 119 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 458 160 t f f;
#X obj 457 190 / 256;
#X obj 457 210 * 3.14159;
#X obj 457 229 sin;
#X obj 457 251 tabwrite hsin;
#X obj 72 51 tabreceive~ hsin;
#X obj 60 73 *~;
#X obj 458 95 loadbang;
#X obj 241 100 rfft~;
#X obj 252 50 tabreceive~ hsin;
#X obj 240 72 *~;
#X obj 241 26 inlet~;
#X obj 84 417 tabreceive~ hsin;
#X obj 72 439 *~;
#X text 199 251 2.arg: <float> table-size;
#X obj 72 463 /~ 32768;
#X obj 59 290 spec2_dbtorms~;
#X obj 65 363 spec2*~;
#X obj 122 366 spec2*~;
#X obj 58 178 spec2+~;
#X obj 47 151 spec2*~;
#X obj 94 151 spec2*~;
#X obj 58 201 spec2_powtodb~;
#X obj 59 247 spec2_tab_conv~ win 8;
#X connect 0 0 16 0;
#X connect 2 0 30 0;
#X connect 2 0 30 1;
#X connect 2 1 31 0;
#X connect 2 1 31 1;
#X connect 3 0 23 0;
#X connect 4 0 33 0;
#X connect 8 0 10 0;
#X connect 9 0 8 0;
#X connect 10 0 11 0;
#X connect 10 1 14 1;
#X connect 11 0 12 0;
#X connect 12 0 13 0;
#X connect 13 0 14 0;
#X connect 15 0 16 1;
#X connect 16 0 2 0;
#X connect 17 0 9 0;
#X connect 18 0 27 1;
#X connect 18 1 28 1;
#X connect 19 0 20 1;
#X connect 20 0 18 0;
#X connect 21 0 20 0;
#X connect 22 0 23 1;
#X connect 23 0 25 0;
#X connect 25 0 1 0;
#X connect 26 0 27 0;
#X connect 26 0 28 0;
#X connect 27 0 3 0;
#X connect 28 0 3 1;
#X connect 29 0 32 0;
#X connect 30 0 29 0;
#X connect 31 0 29 1;
#X connect 32 0 33 0;
#X connect 33 0 26 0;
#X restore 64 211 pd spec2_blockfilter~ using spec2_tab_conv~;
#X text 550 227 1.arg: <symbol> table-name;
#X text 551 240 2.arg: <float> table-size;
#X msg 429 209 set win 8;
#X obj 408 234 spec2_tab_conv~ win 8;
#X obj 68 298 dac~;
#X obj 144 311 prvu~;
#X obj 145 339 vu 15 120 empty empty -1 -8 0 8 -66577 -1 1 0;
#X floatatom 143 505 5 0 0 0 - - -;
#X floatatom 154 479 5 0 0 0 - - -;
#X msg 156 288 reset;
#X text 146 4 convolute a spectrum of size (blocksize/2 + 1) with a
table of size n;
#X obj 69 266 *~ 0.003;
#X obj 133 255 dbtorms;
#X obj 201 252 hsl 128 15 0 127 0 0 empty empty empty -2 -6 0 8 -262144
-1 -1 0 1;
#X obj 161 131 mtof;
#X obj 165 111 hsl 137 15 0 136 0 0 empty empty empty -2 -6 0 8 -262144
-1 -1 0 1;
#X text 98 553 IEM KUG;
#X text 82 541 musil;
#X text 112 541 @;
#X text 118 541 iem.at;
#X text 81 563 Graz \, Austria;
#X text 33 530 (c) Thomas Musil 2000 - 2006;
#X connect 0 0 2 0;
#X connect 0 1 3 0;
#X connect 1 0 0 0;
#X connect 5 0 10 0;
#X connect 6 0 13 1;
#X connect 7 0 11 0;
#X connect 8 0 7 0;
#X connect 10 0 13 0;
#X connect 11 0 13 2;
#X connect 12 0 8 0;
#X connect 13 0 25 0;
#X connect 16 0 17 0;
#X connect 19 0 20 0;
#X connect 20 0 21 0;
#X connect 20 1 22 0;
#X connect 23 0 19 0;
#X connect 25 0 19 0;
#X connect 25 0 18 0;
#X connect 25 0 18 1;
#X connect 26 0 25 1;
#X connect 27 0 26 0;
#X connect 28 0 5 0;
#X connect 29 0 28 0;
