puredata-core 0.46.7-3 / usr / share / puredata / doc / 7.stuff / soundfile-tools / 2.bandpass.pd

#N canvas 73 28 846 432 12;
#N canvas 213 187 495 352 input-sample 0;
#N canvas 0 0 450 300 graph1 0;
#X array array1 155948 float 0;
#X coords 0 1 155948 -1 400 300 1;
#X restore 55 22 graph;
#X text 149 386 INPUT SAMPLE;
#X restore 238 282 pd input-sample;
#N canvas 192 180 507 343 output-sample 0;
#N canvas 0 0 450 300 graph2 0;
#X array array2 160358 float 0;
#X coords 0 1 160358 -1 400 300 1;
#X restore 59 13 graph;
#X text 158 381 OUTPUT SAMPLE;
#X restore 237 305 pd output-sample;
#N canvas 116 150 735 425 guts 0;
#X msg 25 131 bang;
#X obj 25 354 openpanel;
#X obj 142 31 inlet;
#X obj 458 378 dac~;
#X obj 458 335 *~;
#X obj 473 312 line~;
#X obj 473 290 r master-amp;
#X msg 726 87 bang;
#X obj 726 109 savepanel;
#X obj 275 165 spigot;
#X msg 260 131 0;
#X msg 291 131 1;
#X obj 513 408 outlet;
#X obj 324 131 r frequency;
#X obj 263 320 tabwrite~ array2;
#X msg 263 194 bang;
#X obj 438 283 +~;
#X msg 143 131 \; pd dsp 1;
#X obj 458 356 hip~ 7;
#X obj 275 223 tabplay~ array1;
#X msg 453 127 bang;
#X obj 453 149 tabplay~ array2;
#X msg 726 130 write \$1 array2;
#X obj 726 151 soundfiler;
#X obj 142 52 route read run start hear save;
#N canvas 0 0 368 259 audio-transformation 0;
#X obj 111 70 r frequency;
#X obj 96 21 inlet~;
#X obj 96 178 outlet~;
#X obj 179 123 r q;
#X obj 111 94 pack 0 100;
#X obj 110 119 line~;
#X obj 96 153 vcf~;
#X connect 0 0 4 0;
#X connect 1 0 6 0;
#X connect 3 0 6 2;
#X connect 4 0 5 0;
#X connect 5 0 6 1;
#X connect 6 0 2 0;
#X restore 275 244 pd audio-transformation;
#X obj 513 387 env~ 16384;
#X obj 585 88 route normalized;
#X msg 585 184 write -normalize \$1 array2;
#X msg 585 142 bang;
#X obj 585 163 savepanel;
#X obj 585 209 soundfiler;
#X obj 25 406 soundfiler;
#X msg 25 383 read -resize -maxsize 1e+06 \$1 array1;
#X msg 25 452 \; array2 resize \$1;
#X obj 25 430 + 4410;
#X floatatom 94 428 0 0 0;
#X obj 413 132 r q;
#X connect 0 0 1 0;
#X connect 1 0 33 0;
#X connect 2 0 24 0;
#X connect 4 0 18 0;
#X connect 5 0 4 1;
#X connect 6 0 5 0;
#X connect 7 0 8 0;
#X connect 8 0 22 0;
#X connect 9 0 10 0;
#X connect 9 0 15 0;
#X connect 10 0 9 1;
#X connect 11 0 9 1;
#X connect 13 0 9 0;
#X connect 15 0 14 0;
#X connect 15 0 19 0;
#X connect 16 0 4 0;
#X connect 18 0 3 0;
#X connect 18 0 3 1;
#X connect 18 0 26 0;
#X connect 19 0 25 0;
#X connect 20 0 21 0;
#X connect 21 0 16 1;
#X connect 22 0 23 0;
#X connect 24 0 0 0;
#X connect 24 1 15 0;
#X connect 24 1 10 0;
#X connect 24 1 17 0;
#X connect 24 2 11 0;
#X connect 24 2 17 0;
#X connect 24 3 20 0;
#X connect 24 4 27 0;
#X connect 25 0 14 0;
#X connect 25 0 16 0;
#X connect 26 0 12 0;
#X connect 27 0 29 0;
#X connect 27 1 7 0;
#X connect 28 0 31 0;
#X connect 29 0 30 0;
#X connect 30 0 28 0;
#X connect 32 0 35 0;
#X connect 32 0 36 0;
#X connect 33 0 32 0;
#X connect 35 0 34 0;
#X connect 37 0 9 0;
#X restore 34 236 pd guts;
#X msg 34 131 run the transformation;
#X msg 34 173 hear the output buffer again;
#X text 34 91 click below to:;
#X msg 34 194 save the output buffer;
#X floatatom 562 334 0 0 120;
#N canvas 194 37 397 591 output 0;
#X obj 65 199 t b;
#X obj 65 150 f;
#X obj 65 100 inlet;
#X text 70 79 mute;
#X obj 65 224 f;
#X msg 132 240 0;
#X msg 65 125 bang;
#X obj 65 175 moses 1;
#X obj 132 215 t b f;
#X obj 94 434 outlet;
#X msg 94 409 set \$1;
#X obj 183 160 moses 1;
#X obj 221 437 dbtorms;
#X obj 221 461 pack 0 100;
#X obj 183 136 r master-lvl;
#X obj 94 375 r master-lvl;
#X obj 81 281 s master-lvl;
#X obj 221 486 s master-amp;
#X obj 204 240 loadbang;
#X msg 204 264 \; master-lvl 90;
#X connect 0 0 4 0;
#X connect 1 0 7 0;
#X connect 2 0 6 0;
#X connect 4 0 16 0;
#X connect 5 0 16 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 10 0 9 0;
#X connect 11 1 4 1;
#X connect 12 0 13 0;
#X connect 13 0 17 0;
#X connect 14 0 1 1;
#X connect 14 0 11 0;
#X connect 15 0 10 0;
#X connect 15 0 12 0;
#X connect 18 0 19 0;
#X restore 562 313 pd output;
#X msg 562 292 mute;
#X obj 562 355 s master-lvl;
#X text 604 291 <-- mute button;
#X floatatom 34 257 0 0 0;
#X text 35 300 100 maximum;
#X text 35 282 output meter;
#X text 600 335 <--set me;
#X msg 34 110 read an input file;
#X msg 34 215 save normalized to max amplitude;
#X msg 34 152 start transformation when I change f or q;
#X floatatom 479 164 0 0 0;
#X obj 479 185 s frequency;
#X text 479 85 center;
#X floatatom 482 229 0 0 10000;
#X text 482 210 "q";
#X obj 482 252 s q;
#X obj 479 143 mtof;
#X floatatom 479 122 0 0 128;
#X text 536 163 <- set in Hz;
#X text 533 230 <--set selectivity;
#X text 479 103 frequency;
#X text 534 123 <- set in MIDI units;
#X text 31 341 Note -- you can shift-click on the controls to change
them in hundredths. You can also click and type numbers in \, followed
by the "enter" key.;
#X text 16 5 Bandpass filter. Read in a sample first \, then you can
either set a frequency and hit the "run" button or else hit the "start..."
button and start the transformation by dragging on the frequency or
q control.;
#X text 552 377 OUTPUT LEVEL in dB (100 norm);
#X connect 2 0 12 0;
#X connect 3 0 2 0;
#X connect 4 0 2 0;
#X connect 6 0 2 0;
#X connect 7 0 10 0;
#X connect 8 0 7 0;
#X connect 9 0 8 0;
#X connect 16 0 2 0;
#X connect 17 0 2 0;
#X connect 18 0 2 0;
#X connect 19 0 20 0;
#X connect 22 0 24 0;
#X connect 25 0 19 0;
#X connect 26 0 25 0;