Hallo!
That's a nice patch! It should be included in Pd-extended or somewhere as a fully documented object. My only suggestion is that I think it
of course - you can include it!
should use 0.00 to 1.00 to represent the temporal percentage. Except
you are right ...
a more "beautiful" version is attached ...
LG Georg
#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;