#N canvas 439 11 373 512 10;
#N canvas 88 49 872 789 FFT_Analyse 0;
#X obj 101 102 inlet~;
#X obj 101 332 *~;
#X obj 132 331 *~;
#X obj 110 356 +~;
#X obj 111 377 powtodb~;
#N canvas 0 0 346 535 init_input_window 0;
#X obj 73 217 / 10;
#X obj 55 278 line 0 0.1;
#X msg 119 246 0;
#X obj 54 176 t f f b;
#X obj 54 239 pack;
#X obj 55 301 t f f;
#X obj 54 152 - 1;
#X obj 74 114 t f f;
#X obj 55 359 * 3.14159;
#X obj 55 381 sin;
#X msg 55 401 \$1 \$1;
#X obj 55 423 *;
#X text 119 334 0...0.99;
#X text 128 359 0...pi;
#X text 79 423 hanning;
#X msg 55 88 4096;
#X obj 100 88 f 4096;
#X obj 99 60 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 99 39 loadbang;
#X obj 74 333 / 4096;
#X obj 55 448 tabwrite \$0-window;
#X text 86 381 half-sine;
#X connect 0 0 4 1;
#X connect 1 0 5 0;
#X connect 2 0 1 0;
#X connect 3 0 4 0;
#X connect 3 1 0 0;
#X connect 3 2 2 0;
#X connect 4 0 1 0;
#X connect 5 0 19 0;
#X connect 5 1 20 1;
#X connect 6 0 3 0;
#X connect 7 0 6 0;
#X connect 7 1 19 1;
#X connect 8 0 9 0;
#X connect 9 0 10 0;
#X connect 10 0 11 0;
#X connect 11 0 20 0;
#X connect 15 0 7 0;
#X connect 16 0 7 0;
#X connect 17 0 16 0;
#X connect 18 0 17 0;
#X connect 19 0 8 0;
#X restore 161 276 pd init_input_window;
#N canvas 0 0 450 300 graph3 0;
#X array \$0-lin_scope 2048 float 0;
#X coords 0 100 2047 0 200 140 1;
#X restore 110 596 graph;
#N canvas 0 0 822 328 init_norm 0;
#X obj 43 230 outlet;
#X obj 43 187 - 100;
#X floatatom 43 208 9 0 0 0 - - -;
#X text 108 169 leistung -> techn. dB;
#X msg 43 69 4096;
#X obj 80 68 f 4096;
#X obj 80 47 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 80 26 loadbang;
#X obj 43 167 rmstodb;
#X obj 43 110 / 4;
#X text 74 103 faktor 2 wegen hanning;
#X text 74 114 weiterer faktor 2 \, weil wir nur die;
#X text 73 124 erste haelfte des konjungiert komplexen spektrum sehen
;
#X text 108 135 bzw. bearbeiten \, somit nur die haelfte der spektralen
energie;
#X connect 1 0 2 0;
#X connect 2 0 0 0;
#X connect 4 0 9 0;
#X connect 5 0 9 0;
#X connect 6 0 5 0;
#X connect 7 0 6 0;
#X connect 8 0 1 0;
#X connect 9 0 8 0;
#X restore 126 401 pd init_norm;
#X obj 100 231 *~;
#X obj 110 425 -~ 60.206;
#X obj 123 519 *~ 0.98;
#X obj 110 541 +~;
#X obj 111 475 *~ 0.02;
#X msg 314 481 1 \$1;
#X obj 314 502 -;
#X obj 314 458 clip 0 1;
#X obj 314 437 / 100;
#X floatatom 314 413 5 0.5 100 0 - - -;
#X obj 333 366 loadbang;
#X obj 100 277 fft~;
#X obj 463 557 line 0 0.1;
#X obj 463 602 / 2;
#X obj 463 622 mtof;
#X msg 463 536 6 \, 273 26.7;
#X obj 463 580 t f f;
#X obj 494 602 - 6;
#X obj 463 642 / 44100;
#X obj 463 663 * 4096;
#X msg 656 633 6;
#X obj 656 653 / 2;
#X obj 656 673 mtof;
#X floatatom 656 693 9 0 0 0 - - -;
#X text 723 694 Hz;
#X obj 754 654 / 2;
#X obj 754 673 mtof;
#X floatatom 754 693 9 0 0 0 - - -;
#X text 822 693 Hz;
#X msg 754 634 273;
#X obj 656 612 t b b;
#X obj 463 516 metro 1000;
#X obj 463 498 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 1
1;
#X obj 463 458 loadbang;
#X msg 463 478 1;
#X obj 656 592 loadbang;
#X obj 468 245 loadbang;
#X obj 703 102 inlet;
#X obj 130 253 table \$0-window 4096;
#X obj 137 214 tabreceive~ \$0-window;
#X text 353 403 temporal lowpass;
#X text 355 415 parameter between 0 .. 100 %;
#X text 23 23 spectrum~;
#X text 120 23 draws the power of a spectrum in a logarithmic scale
;
#X text 118 36 (by Thomas Musil);
#X obj 123 498 tabreceive~ \$0-lin_scope;
#X obj 110 566 tabsend~ \$0-lin_scope;
#X obj 463 685 tabread4 \$0-lin_scope;
#X obj 468 267 f \$0;
#X text 553 536 transformation to log scale;
#X msg 333 385 100;
#X obj 314 341 max 0.5;
#X obj 314 319 min 100;
#X obj 440 107 inlet;
#X text 96 81 audio sig;
#X text 700 81 ON/OFF;
#X text 408 72 temporal lowpass;
#X obj 703 125 switch~ 4096 2;
#X obj 533 244 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 463 707 tabwrite \$0-s;
#X msg 468 296 \; \$1-s xticks 0 12 2;
#X msg 491 330 \; \$1-s yticks 0 5 2;
#X obj 440 132 * 100;
#X text 427 86 (0 .. 1);
#X connect 0 0 8 0;
#X connect 1 0 3 0;
#X connect 2 0 3 1;
#X connect 3 0 4 0;
#X connect 4 0 9 0;
#X connect 7 0 9 1;
#X connect 8 0 19 0;
#X connect 9 0 12 0;
#X connect 10 0 11 1;
#X connect 11 0 54 0;
#X connect 12 0 11 0;
#X connect 13 0 14 0;
#X connect 14 0 10 1;
#X connect 15 0 13 0;
#X connect 15 0 12 1;
#X connect 16 0 15 0;
#X connect 17 0 16 0;
#X connect 18 0 58 0;
#X connect 19 0 1 0;
#X connect 19 0 1 1;
#X connect 19 1 2 0;
#X connect 19 1 2 1;
#X connect 20 0 24 0;
#X connect 21 0 22 0;
#X connect 22 0 26 0;
#X connect 23 0 20 0;
#X connect 24 0 21 0;
#X connect 24 1 25 0;
#X connect 25 0 67 1;
#X connect 26 0 27 0;
#X connect 27 0 55 0;
#X connect 28 0 29 0;
#X connect 29 0 30 0;
#X connect 30 0 31 0;
#X connect 33 0 34 0;
#X connect 34 0 35 0;
#X connect 37 0 33 0;
#X connect 38 0 28 0;
#X connect 38 1 37 0;
#X connect 39 0 23 0;
#X connect 40 0 39 0;
#X connect 41 0 42 0;
#X connect 42 0 40 0;
#X connect 43 0 38 0;
#X connect 44 0 56 0;
#X connect 45 0 65 0;
#X connect 47 0 8 1;
#X connect 53 0 10 0;
#X connect 55 0 67 0;
#X connect 56 0 68 0;
#X connect 56 0 69 0;
#X connect 58 0 17 0;
#X connect 59 0 17 0;
#X connect 60 0 59 0;
#X connect 61 0 70 0;
#X connect 66 0 56 0;
#X connect 70 0 60 0;
#X restore 27 192 pd FFT_Analyse;
#N canvas 0 0 450 300 graph3 0;
#X array \$0-s 268 float 0;
#X coords 0 100 267 0 267 140 1;
#X restore 32 326 graph;
#X obj 306 341 cnv 15 1 1 empty empty -10 0 0 0 10 -262144 -1 0;
#X obj 306 453 cnv 15 1 1 empty empty -90 0 0 0 10 -262144 -1 0;
#X obj 306 397 cnv 15 1 1 empty empty -50 0 0 0 10 -262144 -1 0;
#X obj 306 369 cnv 15 1 1 empty empty -30 0 0 0 10 -262144 -1 0;
#X obj 306 425 cnv 15 1 1 empty empty -70 0 0 0 10 -262144 -1 0;
#X obj 27 470 cnv 15 1 1 empty empty 10 0 5 0 10 -262144 -1 0;
#X obj 75 470 cnv 15 1 1 empty empty 40 0 5 0 10 -262144 -1 0;
#X obj 124 470 cnv 15 1 1 empty empty 160 0 5 0 10 -262144 -1 0;
#X obj 171 470 cnv 15 1 1 empty empty 640 0 5 0 10 -262144 -1 0;
#X obj 219 470 cnv 15 1 1 empty empty 2k56 0 5 0 10 -262144 -1 0;
#X obj 267 470 cnv 15 1 1 empty empty 10k2 0 5 0 10 -262144 -1 0;
#X obj 147 483 cnv 15 1 1 empty empty 320 0 5 0 10 -262144 -1 0;
#X obj 291 483 cnv 15 1 1 empty empty 20k5 0 5 0 10 -262144 -1 0;
#X obj 51 480 cnv 15 1 1 empty empty 20 0 9 0 10 -262144 -1 0;
#X obj 99 483 cnv 15 1 1 empty empty 80 0 5 0 10 -262144 -1 0;
#X obj 195 483 cnv 15 1 1 empty empty 1k28 0 5 0 10 -262144 -1 0;
#X obj 243 483 cnv 15 1 1 empty empty 5k12 0 5 0 10 -262144 -1 0;
#X obj 55 467 cnv 15 1 1 empty empty | 0 7 0 10 -262144 -1 0;
#X obj 103 467 cnv 15 1 1 empty empty | 0 7 0 10 -262144 -1 0;
#X obj 151 467 cnv 15 1 1 empty empty | 0 7 0 10 -262144 -1 0;
#X obj 199 467 cnv 15 1 1 empty empty | 0 7 0 10 -262144 -1 0;
#X obj 247 467 cnv 15 1 1 empty empty | 0 7 0 10 -262144 -1 0;
#X obj 295 467 cnv 15 1 1 empty empty | 0 7 0 10 -262144 -1 0;
#X text 26 46 draws the power of the spectrum (log);
#X obj 28 99 inlet~ audio;
#X obj 73 130 inlet lop;
#X text 121 99 audio signal;
#X text 145 123 temporal lowpass (0..1);
#X text 145 138 for display;
#X obj 120 161 inlet IO;
#X text 185 161 switch~ audio;
#X text 93 17 :::_SPECTRUM~_:::;
#X text 25 241 credits: Thomas Musil;
#X connect 26 0 0 0;
#X connect 27 0 0 1;
#X connect 31 0 0 2;
#X coords 0 -1 1 1 305 200 1 25 300;