#N canvas 133 190 735 589 12;
#X text 437 559 updated for Pd version 0.26;
#X floatatom 66 540;
#N canvas 159 26 495 266 output 0;
#X obj 338 160 t b;
#X obj 338 110 f;
#X obj 338 60 inlet;
#X text 344 29 mute;
#X obj 338 185 f;
#X msg 425 178 0;
#X msg 338 85 bang;
#X obj 338 135 moses 1;
#X obj 425 153 t b f;
#X obj 397 117 moses 1;
#X obj 83 148 dbtorms;
#X obj 397 92 r master-lvl;
#X obj 83 42 r master-lvl;
#X obj 338 210 s master-lvl;
#X obj 22 181 inlet~;
#X obj 199 41 inlet;
#X text 199 18 level;
#X obj 199 100 s master-lvl;
#X msg 96 65 set \$1;
#X obj 96 89 outlet;
#X msg 214 64 \; pd dsp 1;
#X obj 83 194 line~;
#X obj 22 212 *~;
#X obj 22 241 dac~;
#X obj 83 171 pack 0 50;
#X text 20 158 audio;
#X text 93 110 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 37 568 pd output;
#X msg 95 540 MUTE;
#X text 134 539 <-- output amplitude;
#X obj 464 220 loadbang;
#N canvas 0 0 600 392 conversion-tables 0;
#X obj 26 130 loadbang;
#X graph graph1 0 0 123 10 302 148 502 48;
#X array dbtorms 123 float;
#X pop;
#X text 504 141 0;
#X text 506 41 10;
#X text 321 151 ------ 123 samples ------;
#X graph graph2 0 0 130 12000 309 325 509 225;
#X array mtof 130 float;
#X pop;
#X text 319 333 ------ 130 samples ------;
#X text 518 318 0;
#X text 520 218 12000;
#X msg 26 153 \; dbtorms read dbtorms.txt \; mtof read mtof.txt;
#X connect 0 0 9 0;
#X restore 475 42 pd conversion-tables;
#X obj 250 308 line~;
#X obj 250 284 pack 0 100;
#X floatatom 251 213;
#X obj 171 413 r q;
#X floatatom 171 437;
#X obj 37 492 vcf~;
#X obj 37 516 hip~ 5;
#X obj 250 333 tabread4~ mtof;
#X text 202 436 <-- Q (selectivity);
#X text 277 354 convert to Hz.;
#X text 35 6 ANOTHER SWEEPING FILTER EXAMPLE;
#X obj 37 287 clip~ 0 0.5;
#X obj 37 311 *~ 2;
#X obj 37 335 -~;
#X text 121 270 trick to;
#X text 121 291 make symmetric;
#X text 121 312 triangle wave;
#X obj 53 162 f;
#X obj 86 160 + 1;
#X obj 53 212 tabread array1;
#X obj 53 236 mtof;
#X obj 53 114 r metro;
#X obj 86 184 mod 8;
#X obj 53 260 phasor~ 0;
#X graph graph1 0 36 8 96 464 175 664 75;
#X array array1 8 float;
#X pop;
#X obj 251 189 r cf;
#X text 282 212 <-- center frequency;
#X obj 53 138 metro 85;
#X obj 37 376 hip~ 5000;
#X obj 37 399 *~ 100;
#X obj 252 237 moses 61;
#X msg 251 260 61;
#X msg 464 244 \; cf 61 \; q 30 \; metro 1 \; array1 0 45 48 50 48 55 53 55 57;
#X text 13 28 Here's an approximate reconstruction of an old riff by Pink Floyd (I haven't checked the tempo or transposition against the original yet.) Because we're filtering a waveform with odd partials \, it's easier to pick out the partials in the filtered sound.;
#X text 104 352 Here we fudge;
#X text 105 371 to better imitate;
#X text 105 390 the EMS3 bandpass;
#X text 103 409 sound;
#X text 329 233 protect against;
#X text 330 254 hitting the;
#X text 330 273 fundamental;
#X text 137 139 sequencer for;
#X text 137 158 8 note loop;
#X obj 171 459 moses 1;
#X msg 144 459 1;
#X text 229 460 speaker protection;
#X connect 1 0 2 1;
#X connect 2 0 1 0;
#X connect 3 0 2 2;
#X connect 5 0 39 0;
#X connect 7 0 14 0;
#X connect 8 0 7 0;
#X connect 9 0 37 0;
#X connect 10 0 11 0;
#X connect 11 0 50 0;
#X connect 12 0 13 0;
#X connect 13 0 2 0;
#X connect 14 0 12 1;
#X connect 18 0 19 0;
#X connect 19 0 20 0;
#X connect 20 0 35 0;
#X connect 24 0 25 0;
#X connect 24 0 26 0;
#X connect 25 0 29 0;
#X connect 26 0 27 0;
#X connect 27 0 30 0;
#X connect 28 0 34 0;
#X connect 29 0 24 1;
#X connect 30 0 18 0;
#X connect 30 0 20 1;
#X connect 32 0 9 0;
#X connect 34 0 24 0;
#X connect 35 0 36 0;
#X connect 36 0 12 0;
#X connect 37 0 38 0;
#X connect 37 1 8 0;
#X connect 38 0 8 0;
#X connect 50 0 51 0;
#X connect 50 1 12 2;
#X connect 51 0 12 2;
