Hi Andrea,
welcome! Simple spectrum computations can be found on the documentation annexed with pd: look at the subfolder /doc/3.audio.examples of your PD distribution , for example E01.spectrum.pd. This uses simple fft computations.
Then there is the cyclone library that has a good
spectrum visualization example in the patch
spectrum-pm.pd for example. Note that cyclone only comes
with "extended" distributions by H.C. Steiner or
you have to install it yourself. If you have the
extended one the patch is in the
\doc\examples\cyclone
subfolder.
Another interesting example is here:
http://crca.ucsd.edu/~jsarlo/pd/
grab the "pitchnoise" patch, it contains another interesting example.
Hope that it helps,
Alberto Zin
http://puredata.org/Members/AlbertoZ
PS: by chance I got two books by you on my desk: your thesis on musical notation and the books on "Audio & Multimedia". Congratulations, nice works!
Hallo!
If you want to draw a logarithmic spectrum with only native pd objects see the attached patch ...
LG Georg
#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;
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 should use 0.00 to 1.00 to represent the temporal
percentage. Except for places where it doesn't make sense (e.g.
pitch/freq), I think all parameters should be between 0 and 1. It
makes for much less time spent changing the range of data, and much
less time looking up what range a given object expects. Plus it
allows for unusual combinations in the spirit of play.
.hc
On Nov 13, 2006, at 12:55 PM, Georg Holzmann wrote:
Hallo!
If you want to draw a logarithmic spectrum with only native pd
objects see the attached patch ...LG Georg #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; _______________________________________________ PD-list@iem.at mailing list UNSUBSCRIBE and account-management -> http://lists.puredata.info/ listinfo/pd-list
Using ReBirth is like trying to play an 808 with a long stick. - David Zicarelli
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;
hi list!
i'm trying to load a directory with 30 images into pix_multiimage but i can't make pd to choose that directory. I've tried writing /User/.../Images/image*.jpg directly into the object or by openpanel->prepend open, but it doesn't work... i also tought using pix_movie to store any image as a frame but i really don't know how to do that...is there any example in the references or someone could tell me how to operate?
Thank you very much
f.
Hi, did you set the number of images to load after you specified the directory? Something like
/Users/yourname/directory/image*.jpg 30
should give you no problem.
adrian.
On 11/15/06, Francesco franzrosati@tiscali.it wrote:
hi list!adsdasdasd
i'm trying to load a directory with 30 images into pix_multiimage but i can't make pd to choose that directory. I've tried writing /User/.../Images/image*.jpg directly into the object or by openpanel->prepend open, but it doesn't work... i also tought using pix_movie to store any image as a frame but i really don't know how to do that...is there any example in the references or someone could tell me how to operate?
Thank you very much
f.
PD-list@iem.at mailing list UNSUBSCRIBE and account-management -> http://lists.puredata.info/listinfo/pd-list
Thanks to all for the replies.
I will investigate, then probabably come back...
-a-
PS: by chance I got two books by you on my desk: your thesis on musical notation and the books on "Audio & Multimedia". Congratulations, nice works!
PS: Really happy to hear form you. You're in a special club, very exclusive...
Andrea Valle DAMS - Facoltà di Scienze della Formazione Università degli Studi di Torino http://www.semiotiche.it/andrea andrea.valle@unito.it
-
adrian goya -
alberto.zin＠poste.it -
andrea valle -
Francesco -
Georg Holzmann -
Hans-Christoph Steiner