diff options
author | IOhannes m zmölnig <zmoelnig@users.sourceforge.net> | 2008-02-08 13:00:32 +0000 |
---|---|---|
committer | IOhannes m zmölnig <zmoelnig@users.sourceforge.net> | 2008-02-08 13:00:32 +0000 |
commit | 4d84d14ac1aa13958eaa2971b03f7f929a519105 (patch) | |
tree | 6579d3f2cea5410a10c4baac8d0f372fb0dff372 /desiredata/doc/3.audio.examples/H07.measure.spectrum.pd | |
parent | b334d38aefbd8e0e159d7af6c20d63c5d2b64859 (diff) |
reorganized
svn path=/trunk/; revision=9400
Diffstat (limited to 'desiredata/doc/3.audio.examples/H07.measure.spectrum.pd')
-rw-r--r-- | desiredata/doc/3.audio.examples/H07.measure.spectrum.pd | 88 |
1 files changed, 88 insertions, 0 deletions
diff --git a/desiredata/doc/3.audio.examples/H07.measure.spectrum.pd b/desiredata/doc/3.audio.examples/H07.measure.spectrum.pd new file mode 100644 index 00000000..f290ca4a --- /dev/null +++ b/desiredata/doc/3.audio.examples/H07.measure.spectrum.pd @@ -0,0 +1,88 @@ +#N canvas 407 54 626 729 12; +#X floatatom 145 654 5 0 0 0 - - -; +#X obj 44 565 bp~; +#X obj 44 536 bp~; +#X obj 55 467 mtof; +#X floatatom 55 490 7 0 0 0 - - -; +#X floatatom 98 520 3 0 999 0 - #0-q -; +#X floatatom 55 447 7 0 150 0 - #0-pitch -; +#X obj 145 586 env~ 4096; +#X obj 45 370 *~ 0; +#X obj 44 395 +~ 1; +#X obj 145 608 + 0.5; +#X obj 145 631 int; +#X text 12 41 In this example we use two cascaded bandpass filters +to troll for partials in Jonathan Harvey's famous bell sample.; +#X text 16 233 You can hear partials around 48 \, 51.3 \, 55 (faint!) +\, 57 (fainter!) \, 60 \, two beating partials around 65 \, 67 \, 69 +\, 70.9 \, 71.75 \, 72.6 \, 74 \, 74.65 \, 75.6 \, 77 \, 81.2 \, 84.6 +\, 86.5 \, and probably many more. There's also one down at 36 \, but +it's easier to see it on the meter than hear it.; +#X text 124 447 <-- center pitch; +#X text 120 463 (shift-drag to fine tune); +#X text 131 491 <-- center frequency; +#X text 138 520 <-- Q (filter selectivity); +#X obj 44 614 output~; +#X text 341 680 updated for Pd version 0.39; +#X text 14 82 Note that filters can give unexpected level changes. +The bp~ object is designed to have roughly unit gain at the pass band +\, so the higher you set "Q" the more amplitude is lost. You can correct +for this by pushing the output amplitude \, but be sure to remember +to reset the output amplitude before you reduce Q again. I set the +Q to 100 and the output amplitude to 110 or 120 (with the room gain +way down.) Then holding the shift key \, slowly drag the center pitch +upward listening for modes.; +#N canvas 316 21 483 471 startup 0; +#X obj 53 335 r readfile; +#X obj 53 388 soundfiler; +#X obj 59 23 loadbang; +#X obj 59 49 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 +-1; +#X obj 59 70 f \$0; +#X obj 60 271 /; +#X msg 60 248 44100; +#X obj 60 223 t b f; +#X obj 60 199 r \$0-totsamps; +#X obj 60 294 s \$0-loopf; +#X msg 59 102 \; readfile symbol \$1-array \; \$1-totsamps 143718 \; +\$1-pitch 69 \; \$1-q 0; +#X msg 53 361 read -resize ../sound/bell.aiff \$1; +#X connect 0 0 11 0; +#X connect 2 0 3 0; +#X connect 3 0 4 0; +#X connect 4 0 10 0; +#X connect 5 0 9 0; +#X connect 6 0 5 0; +#X connect 7 0 6 0; +#X connect 7 1 5 1; +#X connect 8 0 7 0; +#X connect 11 0 1 0; +#X restore 456 625 pd startup; +#N canvas 0 0 450 300 graph1 0; +#X array \$0-array 155948 float 0; +#X coords 0 1 155947 -1 200 150 1; +#X restore 396 322 graph; +#X obj 45 322 r \$0-loopf; +#X obj 45 346 phasor~; +#X obj 44 419 tabread4~ \$0-array; +#X obj 89 370 r \$0-totsamps; +#X text 109 12 MEASURING SPECTRA USING BANDPASS FILTERS; +#X connect 1 0 7 0; +#X connect 1 0 18 0; +#X connect 1 0 18 1; +#X connect 2 0 1 0; +#X connect 3 0 4 0; +#X connect 4 0 2 1; +#X connect 4 0 1 1; +#X connect 5 0 2 2; +#X connect 5 0 1 2; +#X connect 6 0 3 0; +#X connect 7 0 10 0; +#X connect 8 0 9 0; +#X connect 9 0 25 0; +#X connect 10 0 11 0; +#X connect 11 0 0 0; +#X connect 23 0 24 0; +#X connect 24 0 8 0; +#X connect 25 0 2 0; +#X connect 26 0 8 1; |