From efa45f81b5dcb9609b1e2365a51b7a25a1ba2ce0 Mon Sep 17 00:00:00 2001 From: Georg Holzmann Date: Tue, 12 Jul 2005 14:09:53 +0000 Subject: initial commit of adaptive svn path=/trunk/externals/grh/; revision=3317 --- adaptive/examples/spectrum~.pd | 243 +++++++++++++++++++++++++++++++++++++++++ 1 file changed, 243 insertions(+) create mode 100755 adaptive/examples/spectrum~.pd (limited to 'adaptive/examples/spectrum~.pd') diff --git a/adaptive/examples/spectrum~.pd b/adaptive/examples/spectrum~.pd new file mode 100755 index 0000000..9757e75 --- /dev/null +++ b/adaptive/examples/spectrum~.pd @@ -0,0 +1,243 @@ +#N canvas 265 153 333 190 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 427 86 (0 .. 100); +#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 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 68 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 66 0; +#X connect 47 0 8 1; +#X connect 53 0 10 0; +#X connect 55 0 68 0; +#X connect 56 0 69 0; +#X connect 56 0 70 0; +#X connect 58 0 17 0; +#X connect 59 0 17 0; +#X connect 60 0 59 0; +#X connect 61 0 60 0; +#X connect 67 0 56 0; +#X restore 17 270 pd FFT_Analyse; +#X text 15 195 spectrum~.pd; +#X obj 63 249 inlet; +#X obj 17 249 inlet~; +#X obj 110 249 inlet; +#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 33 17 graph; +#X obj 307 32 cnv 15 1 1 empty empty -10 0 0 0 10 -262144 -1 0; +#X obj 307 144 cnv 15 1 1 empty empty -90 0 0 0 10 -262144 -1 0; +#X obj 307 88 cnv 15 1 1 empty empty -50 0 0 0 10 -262144 -1 0; +#X obj 307 60 cnv 15 1 1 empty empty -30 0 0 0 10 -262144 -1 0; +#X obj 307 116 cnv 15 1 1 empty empty -70 0 0 0 10 -262144 -1 0; +#X obj 28 161 cnv 15 1 1 empty empty 10 0 5 0 10 -262144 -1 0; +#X obj 76 161 cnv 15 1 1 empty empty 40 0 5 0 10 -262144 -1 0; +#X obj 125 161 cnv 15 1 1 empty empty 160 0 5 0 10 -262144 -1 0; +#X obj 172 161 cnv 15 1 1 empty empty 640 0 5 0 10 -262144 -1 0; +#X obj 220 161 cnv 15 1 1 empty empty 2k56 0 5 0 10 -262144 -1 0; +#X obj 268 161 cnv 15 1 1 empty empty 10k2 0 5 0 10 -262144 -1 0; +#X obj 148 174 cnv 15 1 1 empty empty 320 0 5 0 10 -262144 -1 0; +#X obj 292 174 cnv 15 1 1 empty empty 20k5 0 5 0 10 -262144 -1 0; +#X obj 52 171 cnv 15 1 1 empty empty 20 0 9 0 10 -262144 -1 0; +#X obj 100 174 cnv 15 1 1 empty empty 80 0 5 0 10 -262144 -1 0; +#X obj 196 174 cnv 15 1 1 empty empty 1k28 0 5 0 10 -262144 -1 0; +#X obj 244 174 cnv 15 1 1 empty empty 5k12 0 5 0 10 -262144 -1 0; +#X obj 56 158 cnv 15 1 1 empty empty | 0 7 0 10 -262144 -1 0; +#X obj 104 158 cnv 15 1 1 empty empty | 0 7 0 10 -262144 -1 0; +#X obj 152 158 cnv 15 1 1 empty empty | 0 7 0 10 -262144 -1 0; +#X obj 200 158 cnv 15 1 1 empty empty | 0 7 0 10 -262144 -1 0; +#X obj 248 158 cnv 15 1 1 empty empty | 0 7 0 10 -262144 -1 0; +#X obj 296 158 cnv 15 1 1 empty empty | 0 7 0 10 -262144 -1 0; +#X text 16 220 draws the power of the spectrum (log); +#X connect 2 0 0 1; +#X connect 3 0 0 0; +#X connect 4 0 0 2; +#X coords 0 0 1 1 330 190 1; -- cgit v1.2.1