Fri Dec 8 08:47:51 CET 2006

Update of /cvsroot/pure-data/externals/iem/iem_spec2/help
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv11414/iem/iem_spec2/help

Added Files:
	spec2_1p1z_freq~-help.pd spec2_1p1z_time~-help.pd 
	spec2_abs~-help.pd spec2_add_scalar~-help.pd 
	spec2_add~-help.pd spec2_block_delay~-help.pd 
	spec2_clip_max~-help.pd spec2_clip_min~-help.pd 
	spec2_dbtopow~-help.pd spec2_dbtorms~-help.pd 
	spec2_matrix_bundle_stat~-help.pd spec2_mul_scalar~-help.pd 
	spec2_mul~-help.pd spec2_powtodb~-help.pd 
	spec2_rmstodb~-help.pd spec2_shift~-help.pd 
	spec2_sqrt~-help.pd spec2_stretch~-help.pd spec2_sub~-help.pd 
	spec2_sum~-help.pd spec2_tab_conv~-help.pd 
	spec2_tabreceive_enable~-help.pd spec2_tabreceive~-help.pd 
Log Message:
makefile
help
repaired spec2_sqrt~

--- NEW FILE: spec2_1p1z_time~-help.pd ---
#N canvas 20 32 712 376 10;
#X obj 42 70 dsp;
#X obj 42 47 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 1 1
;
#X floatatom 42 111 5 0 0 0 - - -;
#X floatatom 55 94 5 0 0 0 - - -;
#N canvas 0 0 450 300 graph1 0;
#X array scope 256 float 0;
#X coords 0 100 255 0 300 200 1;
#X restore 346 82 graph;
#X text 18 5 spec2_1p1z_time~;
#X text 132 20 iem_spec2 calculates only blocksize/2 + 1 samples of
block;
#N canvas 0 0 629 404 tables 0;
#N canvas 0 0 450 300 graph1 0;
#X array hann 259 float 0;
#X coords 0 1 258 -1 200 140 1;
#X restore 30 31 graph;
#X obj 246 34 loadbang;
#X msg 246 55 \; hann cosinesum 256 0.5 -0.5;
#X connect 1 0 2 0;
#X restore 149 82 pd tables;
#X obj 42 145 noise~;
#X obj 237 93 osc~ 11025;
#X msg 292 58 0;
#X obj 42 169 bpq2~ 7000 6 100;
#X msg 201 187 1 0 0;
#X msg 200 165 0.1 0 0.9;
#X msg 200 143 0.01 0 0.99;
#N canvas 190 113 557 449 spec_analyse_by_1p1z_time 0;
#X obj 100 51 inlet~;
#X obj 352 46 block~ 256 2;
#X obj 102 156 rfft~;
#X obj 101 108 *~;
#X obj 300 225 spec2_1p1z_time~ 0.5 0 0.5;
#X obj 298 46 inlet;
#X obj 114 86 spec2_tabreceive~ hann;
#X obj 97 186 *~;
#X obj 124 186 *~;
#X obj 104 211 +~;
#X obj 104 266 powtodb~;
#X obj 104 291 tabsend~ scope;
#X obj 180 174 /;
#X obj 101 131 *~ 0.032;
#X msg 189 149 1 32;
#X obj 188 127 loadbang;
#X connect 0 0 3 0;
#X connect 2 0 7 0;
#X connect 2 0 7 1;
#X connect 2 1 8 0;
#X connect 2 1 8 1;
#X connect 3 0 13 0;
#X connect 4 0 10 0;
#X connect 5 0 4 0;
#X connect 6 0 3 1;
#X connect 7 0 9 0;
#X connect 8 0 9 1;
#X connect 9 0 4 0;
#X connect 10 0 11 0;
#X connect 12 0 13 1;
#X connect 13 0 2 0;
#X connect 14 0 12 0;
#X connect 15 0 14 0;
#X restore 42 214 pd spec_analyse_by_1p1z_time;
#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 text 168 3 makes a feedback of the spectrum;
#X connect 0 0 2 0;
#X connect 0 1 3 0;
#X connect 1 0 0 0;
#X connect 8 0 11 0;
#X connect 10 0 9 1;
#X connect 11 0 15 0;
#X connect 12 0 15 1;
#X connect 13 0 15 1;
#X connect 14 0 15 1;

--- NEW FILE: spec2_add~-help.pd ---
#N canvas 52 28 474 268 10;
#X obj 30 52 spec2+~;
#X text 86 51 no arg;
#X text 83 169 IEM KUG;
#X text 67 157 musil;
#X text 97 157 @;
#X text 103 157 iem.at;
#X text 66 179 Graz \, Austria;
#X text 18 146 (c) Thomas Musil 2000 - 2006;
#X text 30 15 spec2+~;
#X text 183 49 like;
#X obj 234 50 +~;
#X text 106 14 add 2 signal spectras with (blocksize/2 + 1) bins;

--- NEW FILE: spec2_dbtorms~-help.pd ---
#N canvas 52 29 470 263 10;
#X text 120 53 no arg;
#X text 83 169 IEM KUG;
#X text 67 157 musil;
#X text 97 157 @;
#X text 103 157 iem.at;
#X text 66 179 Graz \, Austria;
#X text 18 146 (c) Thomas Musil 2000 - 2006;
#X text 211 52 like;
#X text 135 24 with (blocksize/2 + 1) bins;
#X text 29 15 spec2_dbtorms~;
#X obj 243 54 dbtorms~;
#X obj 26 53 spec2_dbtorms~;
#X text 132 13 convert dB to rms value of a signal spectrum;

--- NEW FILE: spec2_clip_min~-help.pd ---
#N canvas 52 28 546 330 10;
#X text 230 141 no arg;
#X text 81 272 IEM KUG;
#X text 65 260 musil;
#X text 95 260 @;
#X text 101 260 iem.at;
#X text 64 282 Graz \, Austria;
#X text 16 249 (c) Thomas Musil 2000 - 2006;
#X text 351 143 like;
#X obj 128 118 sig~;
#X floatatom 128 98 5 0 0 0 - - -;
#X obj 212 118 sig~;
#X floatatom 212 98 5 0 0 0 - - -;
#X obj 21 61 dsp;
#X obj 21 38 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 1 1
;
#X floatatom 21 107 5 0 0 0 - - -;
#X floatatom 34 86 5 0 0 0 - - -;
#X text 120 28 iem_spec2 calculates only blocksize/2 + 1 samples of
block;
#X text 9 6 spec2_clip_min~;
#X text 139 9 restrict a signal to lie higher than min limit;
#X obj 401 144 max~;
#X obj 128 141 spec2_clip_min~;
#X obj 84 179 print~;
#X obj 85 159 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X connect 8 0 20 0;
#X connect 9 0 8 0;
#X connect 10 0 20 1;
#X connect 11 0 10 0;
#X connect 12 0 14 0;
#X connect 12 1 15 0;
#X connect 13 0 12 0;
#X connect 20 0 21 0;
#X connect 22 0 21 0;

--- NEW FILE: spec2_stretch~-help.pd ---
#N canvas 10 8 548 293 10;
#X obj 15 90 dsp;
#X obj 15 67 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 1 1
;
#X floatatom 15 131 5 0 0 0 - - -;
#X floatatom 28 114 5 0 0 0 - - -;
#N canvas 0 0 450 300 graph2 0;
#X array array100 64 float 1;
#A 0 -0.550001 -0.750001 -0.700001 -0.600001 -0.500001 -0.400001 -0.400001
-0.350001 -0.25 -0.2 -0.15 -0.1 -0.0500001 -0.0500001 3.72529e-008
0.0500001 0.0500001 0.1 0.1 0.15 0.2 0.2 0.250001 0.250001 0.300001
0.350001 0.350001 0.400001 0.500001 0.500001 0.516668 0.533334 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 63 -1 64 40 1;
#X restore 436 66 graph;
#X text 83 210 IEM KUG;
#X text 67 198 musil;
#X text 97 198 @;
#X text 103 198 iem.at;
#X text 66 220 Graz \, Austria;
#X text 18 187 (c) Thomas Musil 2000 - 2006;
#N canvas 0 0 450 300 graph2 0;
#X array array101 64 float 0;
#X coords 0 1 63 -1 64 40 1;
#X restore 436 126 graph;
#X obj 144 131 tabsend~ array101;
#X obj 142 71 tabreceive~ array100;
#X floatatom 93 41 5 20 500 0 - - -;
#X obj 143 102 spec2_stretch~ 1;
#X obj 93 58 / 100;
#X floatatom 93 78 5 0 0 0 - - -;
#X text 16 10 spec2_stretch~;
#X text 137 6 stretch a spectrum of (blocksize/2 + 1) by a factor;
#X text 256 102 1.arg: <float> stretch factor;
#X connect 0 0 2 0;
#X connect 0 1 3 0;
#X connect 1 0 0 0;
#X connect 13 0 15 0;
#X connect 14 0 16 0;
#X connect 15 0 12 0;
#X connect 16 0 17 0;
#X connect 17 0 15 0;

--- NEW FILE: spec2_clip_max~-help.pd ---
#N canvas 52 28 606 339 10;
#X text 230 141 no arg;
#X text 81 272 IEM KUG;
#X text 65 260 musil;
#X text 95 260 @;
#X text 101 260 iem.at;
#X text 64 282 Graz \, Austria;
#X text 16 249 (c) Thomas Musil 2000 - 2006;
#X text 351 143 like;
#X obj 128 141 spec2_clip_max~;
#X obj 128 118 sig~;
#X floatatom 128 98 5 0 0 0 - - -;
#X obj 212 118 sig~;
#X floatatom 212 98 5 0 0 0 - - -;
#X obj 401 144 min~;
#X text 9 6 spec2_clip_max~;
#X obj 21 61 dsp;
#X obj 21 38 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1
;
#X floatatom 21 107 5 0 0 0 - - -;
#X floatatom 34 86 5 0 0 0 - - -;
#X text 120 28 iem_spec2 calculates only blocksize/2 + 1 samples of
block;
#X text 139 9 restrict a signal to lie lower than max limit;
#X obj 84 179 print~;
#X obj 85 159 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X connect 8 0 21 0;
#X connect 9 0 8 0;
#X connect 10 0 9 0;
#X connect 11 0 8 1;
#X connect 12 0 11 0;
#X connect 15 0 17 0;
#X connect 15 1 18 0;
#X connect 16 0 15 0;
#X connect 22 0 21 0;

--- NEW FILE: spec2_powtodb~-help.pd ---
#N canvas 52 29 470 263 10;
#X text 120 53 no arg;
#X text 83 169 IEM KUG;
#X text 67 157 musil;
#X text 97 157 @;
#X text 103 157 iem.at;
#X text 66 179 Graz \, Austria;
#X text 18 146 (c) Thomas Musil 2000 - 2006;
#X text 211 52 like;
#X text 135 24 with (blocksize/2 + 1) bins;
#X obj 26 53 spec2_powtodb~;
#X text 29 15 spec2_powtodb~;
#X obj 243 54 powtodb~;
#X text 133 13 convert power to db of a signal spectrum;

--- NEW FILE: spec2_tabreceive_enable~-help.pd ---
#N canvas 22 17 939 438 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 371 240 graph;
#X obj 121 178 tabwrite~ scope;
#X obj 211 47 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#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 502 -33 graph;
#X obj 136 91 del 100;
#X msg 781 2 \; filter const 0;
#X text 14 -28 spec2_tabreceive_enable~;
#X obj 278 47 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1
;
#X text 295 47 enable;
#X text 209 -15 and enables/disables reading the table;
#N canvas 63 41 965 587 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 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 text 351 190 1.arg: <symbol> table-name;
#X obj 291 54 inlet;
#X obj 101 131 rfft~;
#X obj 102 280 rifft~;
#X obj 158 260 spec2+~;
#X obj 40 257 spec2-~;
#X obj 32 212 spec2*~;
#X obj 85 215 spec2*~;
#X obj 146 214 spec2*~;
#X obj 205 214 spec2*~;
#X obj 247 149 spec2_tabreceive_enable~ real 0;
#X obj 263 174 spec2_tabreceive_enable~ imag 0;
#X text 352 205 2.arg: <float> enable-state;
#X obj 697 102 tab_rfft filter real imag 256;
#X connect 0 0 11 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 1 0;
#X connect 11 0 19 0;
#X connect 12 0 11 1;
#X connect 15 0 16 0;
#X connect 16 0 30 0;
#X connect 18 0 27 0;
#X connect 18 0 28 0;
#X connect 19 0 23 0;
#X connect 19 0 25 0;
#X connect 19 1 24 0;
#X connect 19 1 26 0;
#X connect 20 0 10 0;
#X connect 21 0 20 1;
#X connect 22 0 20 0;
#X connect 23 0 22 0;
#X connect 24 0 22 1;
#X connect 25 0 21 0;
#X connect 26 0 21 1;
#X connect 27 0 23 1;
#X connect 27 0 26 1;
#X connect 28 0 24 1;
#X connect 28 0 25 1;
#X restore 158 141 pd spec2_blockfilter~ using spec2_tabreceive_enable~
;
#X text 749 122 1.arg: <symbol> table-name;
#X msg 561 99 symbol filter;
#X text 749 134 2.arg: <float> enable-state;
#X obj 536 129 spec2_tabreceive_enable~ filter 1;
#X msg 496 89 1;
#X msg 524 89 0;
#X obj 159 117 dirac~;
#X text 150 2 iem_spec2 calculates only (blocksize/2 + 1) samples;
#X text 180 -27 receives spectrum from table with (blocksize/2 + 1)
;
#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 connect 0 0 2 0;
#X connect 0 1 3 0;
#X connect 1 0 0 0;
#X connect 6 0 14 2;
#X connect 6 0 8 0;
#X connect 8 0 5 0;
#X connect 8 0 21 0;
#X connect 11 0 14 1;
#X connect 14 0 5 0;
#X connect 16 0 18 0;
#X connect 19 0 18 0;
#X connect 20 0 18 0;
#X connect 21 0 14 0;

--- NEW FILE: spec2_sqrt~-help.pd ---
#N canvas 52 28 437 304 10;
#X text 218 120 no arg;
#X text 89 234 IEM KUG;
#X text 73 222 musil;
#X text 103 222 @;
#X text 109 222 iem.at;
#X text 72 244 Graz \, Austria;
#X text 24 211 (c) Thomas Musil 2000 - 2006;
#X text 327 115 like;
#X text 109 25 with (blocksize/2 + 1) bins;
#X text 17 13 spec2_sqrt~;
#X obj 144 120 spec2_sqrt~;
#X obj 359 116 sqrt~;
#X obj 143 98 sig~ 16;
#X obj 143 148 print~;
#X obj 111 119 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 29 97 dsp;
#X obj 29 71 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1
;
#X floatatom 143 79 5 0 0 0 - - -;
#X floatatom 29 142 5 0 0 0 - - -;
#X floatatom 42 122 5 0 0 0 - - -;
#X text 106 14 take square root value of a signal spectrum;
#X connect 10 0 13 0;
#X connect 12 0 10 0;
#X connect 14 0 13 0;
#X connect 15 0 18 0;
#X connect 15 1 19 0;
#X connect 16 0 15 0;
#X connect 17 0 12 0;

--- NEW FILE: spec2_rmstodb~-help.pd ---
#N canvas 52 29 470 263 10;
#X text 120 53 no arg;
#X text 83 169 IEM KUG;
#X text 67 157 musil;
#X text 97 157 @;
#X text 103 157 iem.at;
#X text 66 179 Graz \, Austria;
#X text 18 146 (c) Thomas Musil 2000 - 2006;
#X text 211 52 like;
#X text 135 24 with (blocksize/2 + 1) bins;
#X text 29 15 spec2_rmstodb~;
#X text 132 13 convert rms value to db of a signal spectrum;
#X obj 26 53 spec2_rmstodb~;
#X obj 243 54 rmstodb~;

--- NEW FILE: spec2_matrix_bundle_stat~-help.pd ---
#N canvas 106 40 882 682 10;
#X obj 18 44 dsp;
#X obj 18 14 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1
;
#X floatatom 18 100 5 0 0 0 - - -;
#X floatatom 33 74 5 0 0 0 - - -;
#X obj 46 322 sig~ 1;
#X obj 96 353 sig~ 2;
#X obj 145 377 sig~ 4;
#X obj 195 402 sig~ 8;
#X obj 234 431 sig~ 16;
#X obj 47 488 unsig~;
#X floatatom 47 512 5 0 0 0 - - -;
#X obj 245 491 unsig~;
#X floatatom 245 515 5 0 0 0 - - -;
#X obj 298 442 any;
#X msg 298 154 bundle 0 0 0 0 0;
#X msg 298 180 bundle 1 1 1 1 1;
#X msg 298 201 bundle 2 2 2 2 2;
#X msg 298 227 bundle 1 0 0 0 0;
#X msg 298 247 bundle 0 1 0 0 0;
#X msg 298 267 bundle 0 0 1 0 0;
#X msg 298 287 bundle 0 0 0 1 0;
#X msg 298 307 bundle 0 0 0 0 1;
#X msg 298 333 bundle 2 0 0 0 0;
#X msg 298 353 bundle 0 2 0 0 0;
#X msg 298 373 bundle 0 0 2 0 0;
#X msg 298 393 bundle 0 0 0 2 0;
#X msg 298 413 bundle 0 0 0 0 2;
#X obj 432 442 pp element;
#X obj 432 419 pack 0 0;
#X obj 432 397 f;
#X floatatom 475 368 4 1 5 0 - - -;
#X floatatom 445 368 4 0 2 0 - - -;
#X obj 422 375 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X text 706 15 SIG_OUT = A * SIG_IN;
#X text 234 14 multiplies a n-dimensional signal-in-vector with a dynamic
static (like sig~) signal-matrix to a n-dimensional signal-out-vector
;
#X text 725 33 A is quadratic;
#X text 662 50 dim(SIG_OUT) = dim(SIG_IN) = n;
#X text 234 51 each matrix-column has only one one \, the other elements
are zero;
#X text 301 475 2.arg <float> Nr. of outlets = rows;
#X text 301 464 1.arg <float> Nr. of inlets = columns;
#X text 517 336 message "element";
#X text 531 365 2.) item <float> column_index (1 .. nr_columns);
#X text 531 353 1.) item <float> row_index (0 .. nr_rows);
#X text 446 111 message "bundle";
#X text 556 381 where the single one of the column will be placed;
#X text 557 393 if (row-index == 0) -> the column has only zeros;
#X text 449 126 (nr_inlets = nr_columns) <float> row-indices (0 ..
nr_row);
#X text 454 162 if (row-index == 0) -> the column has only zeros;
#X text 453 150 where the single one of each column will be placed
;
#N canvas 176 206 818 475 block_______________________ 0;
#X obj 564 88 block~ 128 2;
#X obj 48 29 inlet~;
#X obj 51 260 outlet~;
#X obj 103 30 inlet~;
#X obj 159 29 inlet~;
#X obj 214 30 inlet~;
#X obj 272 30 inlet~;
#X obj 246 257 outlet~;
#X obj 51 209 spec2_matrix_bundle_stat~ 5 2;
#X obj 350 30 inlet;
#X obj 586 308 for++ 0 127 0.1;
#X obj 586 332 moses 64;
#X msg 586 359 1 \$1;
#X msg 637 358 0 \$1;
#X obj 586 287 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 586 267 loadbang;
#X obj 540 240 table \$0_rect 128;
#X obj 586 385 tabwrite \$0_rect;
#X obj 64 57 tabreceive~ \$0_rect;
#X obj 48 79 *~;
#X obj 116 81 tabreceive~ \$0_rect;
#X obj 100 103 *~;
#X obj 170 103 tabreceive~ \$0_rect;
#X obj 154 125 *~;
#X obj 220 124 tabreceive~ \$0_rect;
#X obj 204 146 *~;
#X obj 270 146 tabreceive~ \$0_rect;
#X obj 254 168 *~;
#X connect 1 0 19 0;
#X connect 3 0 21 0;
#X connect 4 0 23 0;
#X connect 5 0 25 0;
#X connect 6 0 27 0;
#X connect 8 0 2 0;
#X connect 8 1 7 0;
#X connect 9 0 8 0;
#X connect 10 0 11 0;
#X connect 11 0 12 0;
#X connect 11 1 13 0;
#X connect 12 0 17 0;
#X connect 13 0 17 0;
#X connect 14 0 10 0;
#X connect 15 0 14 0;
#X connect 18 0 19 1;
#X connect 19 0 8 0;
#X connect 20 0 21 1;
#X connect 21 0 8 1;
#X connect 22 0 23 1;
#X connect 23 0 8 2;
#X connect 24 0 25 1;
#X connect 25 0 8 3;
#X connect 26 0 27 1;
#X connect 27 0 8 4;
#X restore 48 463 pd block_______________________;
#X text 50 13 spec2_matrix_bundle_stat~;
#X text 90 575 IEM KUG;
#X text 74 563 musil;
#X text 104 563 @;
#X text 110 563 iem.at;
#X text 73 585 Graz \, Austria;
#X text 25 552 (c) Thomas Musil 2000 - 2006;
#X text 234 83 it calculates matrix only with (blocksize/2 + 1) samples
per signalvector;
#X connect 0 0 2 0;
#X connect 0 1 3 0;
#X connect 1 0 0 0;
#X connect 4 0 49 0;
#X connect 5 0 49 1;
#X connect 6 0 49 2;
#X connect 7 0 49 3;
#X connect 8 0 49 4;
#X connect 9 0 10 0;
#X connect 11 0 12 0;
#X connect 13 0 49 5;
#X connect 14 0 13 0;
#X connect 15 0 13 0;
#X connect 16 0 13 0;
#X connect 17 0 13 0;
#X connect 18 0 13 0;
#X connect 19 0 13 0;
#X connect 20 0 13 0;
#X connect 21 0 13 0;
#X connect 22 0 13 0;
#X connect 23 0 13 0;
#X connect 24 0 13 0;
#X connect 25 0 13 0;
#X connect 26 0 13 0;
#X connect 28 0 27 0;
#X connect 29 0 28 0;
#X connect 30 0 28 1;
#X connect 31 0 29 1;
#X connect 32 0 29 0;
#X connect 49 0 9 0;
#X connect 49 1 11 0;

--- NEW FILE: spec2_dbtopow~-help.pd ---
#N canvas 52 29 470 263 10;
#X text 120 53 no arg;
#X text 83 169 IEM KUG;
#X text 67 157 musil;
#X text 97 157 @;
#X text 103 157 iem.at;
#X text 66 179 Graz \, Austria;
#X text 18 146 (c) Thomas Musil 2000 - 2006;
#X text 211 52 like;
#X text 135 24 with (blocksize/2 + 1) bins;
#X obj 243 54 dbtopow~;
#X obj 26 53 spec2_dbtopow~;
#X text 29 15 spec2_dbtopow~;
#X text 132 13 convert dB to power of a signal spectrum;

--- NEW FILE: spec2_mul_scalar~-help.pd ---
#N canvas 52 28 591 268 10;
#X text 83 169 IEM KUG;
#X text 67 157 musil;
#X text 97 157 @;
#X text 103 157 iem.at;
#X text 66 179 Graz \, Austria;
#X text 18 146 (c) Thomas Musil 2000 - 2006;
#X text 361 51 like;
#X text 30 14 spec2*s~;
#X text 107 26 with (blocksize/2 + 1) bins;
#X text 106 14 multiply a value with a signal spectrum;
#X text 134 53 1.arg: <float> value to multiply;
#X obj 30 52 spec2*s~ 0;
#X obj 412 52 *~ 0;

--- NEW FILE: spec2_sub~-help.pd ---
#N canvas 52 28 466 260 10;
#X text 86 51 no arg;
#X text 83 169 IEM KUG;
#X text 67 157 musil;
#X text 97 157 @;
#X text 103 157 iem.at;
#X text 66 179 Graz \, Austria;
#X text 18 146 (c) Thomas Musil 2000 - 2006;
#X text 183 49 like;
#X obj 30 52 spec2-~;
#X text 30 15 spec2-~;
#X obj 234 50 -~;
#X text 106 14 subtract 2 signal spectras with (blocksize/2 + 1) bins
;

--- NEW FILE: spec2_mul~-help.pd ---
#N canvas 52 28 474 268 10;
#X text 86 51 no arg;
#X text 83 169 IEM KUG;
#X text 67 157 musil;
#X text 97 157 @;
#X text 103 157 iem.at;
#X text 66 179 Graz \, Austria;
#X text 18 146 (c) Thomas Musil 2000 - 2006;
#X text 183 49 like;
#X text 30 15 spec2*~;
#X obj 30 52 spec2*~;
#X obj 234 50 *~;
#X text 106 14 multiply 2 signal spectras with (blocksize/2 + 1) bins
;

--- NEW FILE: spec2_block_delay~-help.pd ---
#N canvas 90 35 769 482 10;
#X obj 42 70 dsp;
#X obj 42 47 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 1 1
;
#X floatatom 42 111 5 0 0 0 - - -;
#X floatatom 55 94 5 0 0 0 - - -;
#N canvas 0 0 450 300 graph1 0;
#X array array101 192 float 0;
#X coords 0 1 191 -1 382 128 1;
#X restore 319 224 graph;
#X obj 46 156 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X text 19 4 spec2_block_delay~;
#X text 202 216 no arguments;
#X text 90 402 IEM KUG;
#X text 74 390 musil;
#X text 104 390 @;
#X text 110 390 iem.at;
#X text 73 412 Graz \, Austria;
#X text 25 379 (c) Thomas Musil 2000 - 2006;
#X obj 84 217 spec2_block_delay~;
#X text 146 21 but copy only (blocksize/2 + 1) samples;
#N canvas 0 0 470 320 init 0;
#X obj 52 43 t f f;
#X obj 50 -10 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 43 77 + 0.5;
#X obj 52 -36 loadbang;
#X obj 50 11 for++ -64 63;
#X obj 56 107 / 64;
#X obj 101 105 + 64;
#X obj 57 147 tabwrite array100;
#X msg 161 -9 \; array100 xticks 0 32 2;
#X msg 174 75 \; array101 xticks 0 32 2;
#X msg 177 125 \; array101 xlabel -1.1 0 32 64 96 128 160 192;
#X msg 165 30 \; array100 xlabel -1.1 0 32 64 96 128;
#X connect 0 0 2 0;
#X connect 0 1 6 0;
#X connect 1 0 4 0;
#X connect 2 0 5 0;
#X connect 3 0 1 0;
#X connect 3 0 8 0;
#X connect 3 0 11 0;
#X connect 3 0 9 0;
#X connect 3 0 10 0;
#X connect 4 0 0 0;
#X connect 5 0 7 0;
#X connect 6 0 7 1;
#X restore 323 394 pd init;
#N canvas 0 0 450 300 graph1 0;
#X array array100 128 float 0;
#X coords 0 1 127 -1 256 128 1;
#X restore 319 62 graph;
#X obj 84 192 tabplay~ array100;
#X obj 46 252 tabwrite~ array101;
#X text 161 4 delay spectrum around blocksize samples;
#X text 484 372 0 .. 32: preceding signal (== 0);
#X text 480 385 33 .. 63: ignored input ramp;
#X text 481 399 64 .. 96: delayed ramp signal;
#X text 477 412 97 .. 127: ignored input ramp;
#X text 473 425 128 .. 160: delayed ramp signal;
#X text 471 438 161 .. 191: ignored input signal (== 0);
#X connect 0 0 2 0;
#X connect 0 1 3 0;
#X connect 1 0 0 0;
#X connect 5 0 18 0;
#X connect 5 0 19 0;
#X connect 14 0 19 0;
#X connect 18 0 14 0;

--- NEW FILE: spec2_shift~-help.pd ---
#N canvas 10 8 548 293 10;
#X obj 15 90 dsp;
#X obj 15 67 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1
;
#X floatatom 15 131 5 0 0 0 - - -;
#X floatatom 28 114 5 0 0 0 - - -;
#N canvas 0 0 450 300 graph2 0;
#X array array100 64 float 1;
#A 0 -0.550001 -0.750001 -0.700001 -0.600001 -0.500001 -0.400001 -0.400001
-0.350001 -0.25 -0.2 -0.15 -0.1 -0.0500001 -0.0500001 3.72529e-008
0.0500001 0.0500001 0.1 0.1 0.15 0.2 0.2 0.250001 0.250001 0.300001
0.350001 0.350001 0.400001 0.500001 0.500001 0.516668 0.533334 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 63 -1 64 40 1;
#X restore 436 66 graph;
#X text 83 210 IEM KUG;
#X text 67 198 musil;
#X text 97 198 @;
#X text 103 198 iem.at;
#X text 66 220 Graz \, Austria;
#X text 18 187 (c) Thomas Musil 2000 - 2006;
#N canvas 0 0 450 300 graph2 0;
#X array array101 64 float 0;
#X coords 0 1 63 -1 64 40 1;
#X restore 436 126 graph;
#X obj 143 102 spec2_shift~ 10;
#X obj 144 131 tabsend~ array101;
#X obj 142 71 tabreceive~ array100;
#X floatatom 105 51 5 -32 32 0 - - -;
#X text 15 10 spec2_shift~;
#X text 248 101 1.arg: <float> shift width;
#X text 136 6 shift a spectrum of (blocksize/2 + 1) to the left or
right about n bins (+- blocksize/2);
#X text 80 37 shift width;
#X connect 0 0 2 0;
#X connect 0 1 3 0;
#X connect 1 0 0 0;
#X connect 12 0 13 0;
#X connect 14 0 12 0;
#X connect 15 0 12 0;

--- NEW FILE: spec2_abs~-help.pd ---
#N canvas 52 28 470 264 10;
#X text 102 53 no arg;
#X text 83 169 IEM KUG;
#X text 67 157 musil;
#X text 97 157 @;
#X text 103 157 iem.at;
#X text 66 179 Graz \, Austria;
#X text 18 146 (c) Thomas Musil 2000 - 2006;
#X text 183 49 like;
#X obj 29 52 spec2_abs~;
#X text 30 16 spec2_abs~;
#X obj 226 52 abs~;
#X text 109 25 with (blocksize/2 + 1) bins;
#X text 106 14 take absolute value of a signal spectrum;

--- NEW FILE: spec2_tab_conv~-help.pd ---
#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;

--- NEW FILE: spec2_1p1z_freq~-help.pd ---
#N canvas 20 32 724 388 10;
#X obj 42 70 dsp;
#X obj 42 47 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 1 1
;
#X floatatom 42 111 5 0 0 0 - - -;
#X floatatom 55 94 5 0 0 0 - - -;
#N canvas 0 0 450 300 graph1 0;
#X array scope 256 float 0;
#X coords 0 100 255 0 300 200 1;
#X restore 346 82 graph;
#X text 130 39 iem_spec2 calculates only blocksize/2 + 1 samples of
block;
#N canvas 0 0 633 408 tables 0;
#N canvas 0 0 450 300 graph1 0;
#X array hann 259 float 0;
#X coords 0 1 258 -1 200 140 1;
#X restore 30 31 graph;
#X obj 246 34 loadbang;
#X msg 246 55 \; hann cosinesum 256 0.5 -0.5;
#X connect 1 0 2 0;
#X restore 149 82 pd tables;
#X obj 42 145 noise~;
#X obj 237 93 osc~ 11025;
#X msg 292 58 0;
#X obj 42 169 bpq2~ 7000 6 100;
#X msg 206 187 1 0 0;
#X msg 205 121 0.1 0 0.9;
#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 text 18 5 spec2_1p1z_freq~;
#N canvas 190 113 569 461 spec_analyse_by_1p1z_freq 0;
#X obj 100 51 inlet~;
#X obj 352 46 block~ 256 2;
#X obj 102 156 rfft~;
#X obj 101 108 *~;
#X obj 298 46 inlet;
#X obj 114 86 spec2_tabreceive~ hann;
#X obj 97 186 *~;
#X obj 124 186 *~;
#X obj 104 211 +~;
#X obj 104 266 powtodb~;
#X obj 104 291 tabsend~ scope;
#X obj 180 174 /;
#X obj 101 131 *~ 0.032;
#X msg 189 149 1 32;
#X obj 188 127 loadbang;
#X obj 300 225 spec2_1p1z_freq~ 0.5 0 0.5;
#X connect 0 0 3 0;
#X connect 2 0 6 0;
#X connect 2 0 6 1;
#X connect 2 1 7 0;
#X connect 2 1 7 1;
#X connect 3 0 12 0;
#X connect 4 0 15 0;
#X connect 5 0 3 1;
#X connect 6 0 8 0;
#X connect 7 0 8 1;
#X connect 8 0 15 0;
#X connect 9 0 10 0;
#X connect 11 0 12 1;
#X connect 12 0 2 0;
#X connect 13 0 11 0;
#X connect 14 0 13 0;
#X connect 15 0 9 0;
#X restore 42 214 pd spec_analyse_by_1p1z_freq;
#X msg 205 143 0.3 0 0.7;
#X msg 205 165 0.5 0 0.5;
#X msg 105 123 6;
#X msg 107 143 3;
#X msg 134 122 16;
#X msg 164 121 66;
#X text 168 3 filter the spectrum with a 1p1z-IIR filter;
#X text 169 14 first time from the left to right;
#X text 169 26 second time from the right to left;
#X connect 0 0 2 0;
#X connect 0 1 3 0;
#X connect 1 0 0 0;
#X connect 7 0 10 0;
#X connect 9 0 8 1;
#X connect 10 0 20 0;
#X connect 11 0 20 1;
#X connect 12 0 20 1;
#X connect 21 0 20 1;
#X connect 22 0 20 1;
#X connect 23 0 10 2;
#X connect 24 0 10 2;
#X connect 25 0 10 2;
#X connect 26 0 10 2;

--- NEW FILE: spec2_add_scalar~-help.pd ---
#N canvas 52 28 575 275 10;
#X text 83 169 IEM KUG;
#X text 67 157 musil;
#X text 97 157 @;
#X text 103 157 iem.at;
#X text 66 179 Graz \, Austria;
#X text 18 146 (c) Thomas Musil 2000 - 2006;
#X text 361 51 like;
#X obj 412 52 +~ 0;
#X text 134 53 1.arg: <float> value to add;
#X text 106 14 add a value to a signal spectrum with (blocksize/2 +
1) bins;
#X obj 30 52 spec2+s~ 0;
#X text 30 14 spec2+s~;

--- NEW FILE: spec2_tabreceive~-help.pd ---
#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;

--- NEW FILE: spec2_sum~-help.pd ---
#N canvas 90 35 781 494 10;
#X obj 42 70 dsp;
#X obj 42 47 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 1 1
;
#X floatatom 42 111 5 0 0 0 - - -;
#X floatatom 55 94 5 0 0 0 - - -;
#N canvas 0 0 450 300 graph1 0;
#X array array101 192 float 0;
#X coords 0 50 191 -50 382 128 1;
#X restore 319 224 graph;
#X obj 46 156 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X text 202 216 no arguments;
#X text 90 402 IEM KUG;
#X text 74 390 musil;
#X text 104 390 @;
#X text 110 390 iem.at;
#X text 73 412 Graz \, Austria;
#X text 25 379 (c) Thomas Musil 2000 - 2006;
#N canvas 0 0 754 332 init 0;
#X obj 52 43 t f f;
#X obj 50 -10 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 52 -36 loadbang;
#X obj 57 147 tabwrite array100;
#X msg 161 -9 \; array100 xticks 0 32 2;
#X msg 174 75 \; array101 xticks 0 32 2;
#X msg 165 30 \; array100 xlabel -1.1 0 32 64 96 128;
#X obj 50 11 for++ 0 127;
#X obj 56 107 / 128;
#X msg 431 -9 \; array100 yticks 0 0.5 2;
#X msg 435 30 \; array100 ylabel -6 -1 -0.5 0 0.5 1;
#X msg 177 125 \; array101 xlabel -55 0 32 64 96 128 160 192;
#X msg 444 75 \; array101 yticks 0 25 2;
#X msg 447 125 \; array101 ylabel -6 -50 -25 0 25 50;
#X connect 0 0 8 0;
#X connect 0 1 3 1;
#X connect 1 0 7 0;
#X connect 2 0 1 0;
#X connect 2 0 4 0;
#X connect 2 0 6 0;
#X connect 2 0 5 0;
#X connect 2 0 11 0;
#X connect 2 0 9 0;
#X connect 2 0 10 0;
#X connect 2 0 12 0;
#X connect 2 0 13 0;
#X connect 7 0 0 0;
#X connect 8 0 3 0;
#X restore 323 394 pd init;
#N canvas 0 0 450 300 graph1 0;
#X array array100 128 float 0;
#X coords 0 1 127 -1 256 128 1;
#X restore 319 62 graph;
#X obj 84 192 tabplay~ array100;
#X obj 46 252 tabwrite~ array101;
#X obj 84 218 spec2_sum~;
#X text 19 4 spec2_sum~;
#X text 400 5 (blocksize/2 + 1) bins;
#X text 161 4 accumulate the sum of the spectrum with;
#X connect 0 0 2 0;
#X connect 0 1 3 0;
#X connect 1 0 0 0;
#X connect 5 0 15 0;
#X connect 5 0 16 0;
#X connect 15 0 17 0;
#X connect 17 0 16 0;