diff options
author | Guenter Geiger <ggeiger@users.sourceforge.net> | 2002-07-29 17:06:19 +0000 |
---|---|---|
committer | Guenter Geiger <ggeiger@users.sourceforge.net> | 2002-07-29 17:06:19 +0000 |
commit | 57045df5fe3ec557e57dc7434ac1a07b5521bffc (patch) | |
tree | 7174058b41b73c808107c7090d9a4e93ee202341 /pd/doc/3.audio.examples/47.bandpass.pd | |
parent | da38b3424229e59f956252c3d89895e43e84e278 (diff) |
This commit was generated by cvs2svn to compensate for changes in r58,
which included commits to RCS files with non-trunk default branches.
svn path=/trunk/; revision=59
Diffstat (limited to 'pd/doc/3.audio.examples/47.bandpass.pd')
-rw-r--r-- | pd/doc/3.audio.examples/47.bandpass.pd | 146 |
1 files changed, 146 insertions, 0 deletions
diff --git a/pd/doc/3.audio.examples/47.bandpass.pd b/pd/doc/3.audio.examples/47.bandpass.pd new file mode 100644 index 00000000..0ce9cc47 --- /dev/null +++ b/pd/doc/3.audio.examples/47.bandpass.pd @@ -0,0 +1,146 @@ +#N canvas 58 17 943 765 12; +#X floatatom 91 731 0 0 0; +#X graph graph1 0 -1 155947 1 624 401 824 251; +#X array array1 155948 float 0; +#X pop; +#X floatatom 247 705 0 0 0; +#N canvas 159 26 495 266 output 0; +#X obj 406 192 t b; +#X obj 406 132 f; +#X obj 406 72 inlet; +#X text 413 35 mute; +#X obj 406 222 f; +#X msg 510 214 0; +#X msg 406 102 bang; +#X obj 406 162 moses 1; +#X obj 510 184 t b f; +#X obj 476 140 moses 1; +#X obj 100 178 dbtorms; +#X obj 476 110 r master-lvl; +#X obj 100 50 r master-lvl; +#X obj 406 252 s master-lvl; +#X obj 26 217 inlet~; +#X obj 239 49 inlet; +#X text 239 22 level; +#X obj 239 120 s master-lvl; +#X msg 115 78 set \$1; +#X obj 115 107 outlet; +#X msg 257 77 \; pd dsp 1; +#X obj 100 233 line~; +#X obj 26 254 *~; +#X obj 26 289 dac~; +#X obj 100 205 pack 0 50; +#X text 24 190 audio; +#X text 112 132 show level; +#X connect 0 0 4 0; +#X connect 1 0 7 0; +#X connect 2 0 6 0; +#X connect 4 0 13 0; +#X connect 5 0 13 0; +#X connect 6 0 1 0; +#X connect 7 0 0 0; +#X connect 7 1 8 0; +#X connect 8 0 5 0; +#X connect 9 1 4 1; +#X connect 10 0 24 0; +#X connect 11 0 1 1; +#X connect 11 0 9 0; +#X connect 12 0 10 0; +#X connect 12 0 18 0; +#X connect 14 0 22 0; +#X connect 15 0 17 0; +#X connect 15 0 20 0; +#X connect 18 0 19 0; +#X connect 21 0 22 1; +#X connect 22 0 23 0; +#X connect 22 0 23 1; +#X connect 24 0 21 0; +#X restore 210 740 pd output; +#X msg 280 707 MUTE; +#X text 320 706 <-- output amplitude; +#X obj 206 654 hip~ 5; +#X obj 31 545 tabread4~ array1; +#X obj 31 340 r totsamps; +#X obj 31 430 /; +#X obj 206 625 bp~; +#X obj 206 596 bp~; +#X obj 216 463 mtof; +#X floatatom 216 491 0 0 0; +#X floatatom 319 570 0 0 0; +#X obj 319 541 r q; +#X floatatom 216 434 0 0 0; +#X msg 227 550 \; p set \$1; +#X obj 216 406 r p; +#X obj 90 647 env~ 4096; +#X obj 31 487 *~ 0; +#X obj 31 458 phasor~ 0; +#X obj 31 516 +~ 1; +#X obj 227 521 ftom; +#X msg 826 49 \; pd dsp 0; +#X obj 90 674 + 0.5; +#X obj 91 702 int; +#X msg 31 400 44100; +#X obj 31 368 t b f; +#X text 648 14 START; +#X text 845 19 STOP; +#X text 88 11 BANDPASS FILTERS; +#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 obj 78 487 r totsamps; +#X text 14 82 Note that filters can give unexpected level changes. +The bp~ object is designed to have roughly unit gain at teh 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.; +#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 271 436 <-- center pitch; +#X text 281 450 (shift-drag to fine tune); +#X text 292 492 <-- center frequency; +#X text 359 570 <-- Q (filter selectivity); +#X obj 683 453 r readfile; +#X obj 683 530 soundfiler; +#X msg 683 503 read -resize \$1 array1; +#X obj 683 478 symbol; +#X msg 553 48 \; readfile ../sound/bell.aiff \; totsamps 143718 \; +p 69 \; q 0 \; pd dsp 1; +#X text 681 739 updated for Pd version 0.33; +#X connect 2 0 3 1; +#X connect 3 0 2 0; +#X connect 4 0 3 2; +#X connect 6 0 3 0; +#X connect 7 0 11 0; +#X connect 8 0 28 0; +#X connect 9 0 21 0; +#X connect 10 0 6 0; +#X connect 10 0 19 0; +#X connect 11 0 10 0; +#X connect 12 0 13 0; +#X connect 13 0 11 1; +#X connect 13 0 10 1; +#X connect 13 0 23 0; +#X connect 14 0 11 2; +#X connect 14 0 10 2; +#X connect 15 0 14 0; +#X connect 16 0 12 0; +#X connect 18 0 16 0; +#X connect 19 0 25 0; +#X connect 20 0 22 0; +#X connect 21 0 20 0; +#X connect 22 0 7 0; +#X connect 23 0 17 0; +#X connect 25 0 26 0; +#X connect 26 0 0 0; +#X connect 27 0 9 0; +#X connect 28 0 27 0; +#X connect 28 1 9 1; +#X connect 33 0 20 1; +#X connect 40 0 43 0; +#X connect 42 0 41 0; +#X connect 43 0 42 0; |