#N canvas 559 38 589 749 12;
#X declare -stdpath ./;
#X obj 167 472 line~;
#X obj 167 444 pack 0 100;
#X floatatom 167 395 4 61 110 0 - \$0-cf - 0;
#X floatatom 179 525 5 3 100 0 - \$0-q - 0;
#X obj 122 578 vcf~;
#X obj 150 339 clip~ 0 0.5;
#X obj 150 361 *~ 2;
#X obj 122 406 -~;
#X obj 140 215 f;
#X obj 179 205 + 1;
#X obj 140 282 mtof;
#X obj 179 229 mod 8;
#N canvas 0 22 450 300 (subpatch) 0;
#X array \$0-sequence 8 float 2;
#X coords 0 72 8 48 183 122 1 0 0;
#X restore 345 195 graph;
#X obj 154 664 output~;
#X obj 140 151 tgl 19 0 empty \$0-metro empty 0 -6 0 8 #dfdfdf #000000 #000000 0 1;
#X text 220 418 at least 61;
#X obj 140 306 phasor~;
#X obj 154 617 vcf~;
#X obj 167 419 max 61;
#X text 212 482 smooth & convert to Hz.;
#X obj 167 495 mtof~;
#N canvas 876 177 379 325 init 0;
#X obj 51 23 loadbang;
#X obj 51 47 bng 19 250 50 0 empty empty empty 0 -6 0 8 #dfdfdf #000000 #000000;
#X obj 51 74 f \$0;
#X obj 84 270 declare -stdpath ./;
#X text 69 193 This subpatch initializes the patch and loads initial values in number boxes and the array., f 31;
#X msg 51 98 \; \$1-cf 61 \; \$1-q 10 \; \$1-metro 1 \; \$1-sequence 0 55 58 60 58 65 63 65 67;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 2 0 5 0;
#X restore 475 349 pd init;
#X text 219 524 <-- Q (selectivity);
#X text 202 395 <-- center frequency;
#X text 38 335 trick to make a symmetric triangle wave, f 13;
#X text 225 210 sequencer for 8 note loop, f 13;
#X obj 122 446 *~ 4;
#X obj 122 470 -~ 1;
#X text 28 451 make it go from -1 to 1, f 12;
#X obj 179 548 max 3;
#X text 209 592 Put two [vcf~] objects in series for better rejection of the stop bands without having to make the passband excessively narrow., f 43;
#X text 224 549 at least 3;
#X obj 140 178 metro 85;
#X obj 140 256 tabread \$0-sequence;
#X text 532 305 48;
#X text 531 186 72;
#X text 67 65 Here's an approximate reconstruction of an old riff by Pink Floyd. Because we're filtering a triangular waveform with odd partials \, it's easier to pick out the partials in the filtered sound than if we had had both even and odd ones.;
#X text 459 170 Picthes;
#X obj 38 15 cnv 5 5 25 empty empty Another\ Filter\ Sweeping\ Example 15 13 0 16 #dfdfdf #202020 0;
#X connect 0 0 20 0;
#X connect 1 0 0 0;
#X connect 2 0 18 0;
#X connect 3 0 29 0;
#X connect 4 0 17 0;
#X connect 5 0 6 0;
#X connect 6 0 7 0;
#X connect 7 0 26 0;
#X connect 8 0 9 0;
#X connect 8 0 33 0;
#X connect 9 0 11 0;
#X connect 10 0 16 0;
#X connect 11 0 8 1;
#X connect 14 0 32 0;
#X connect 16 0 5 0;
#X connect 16 0 7 1;
#X connect 17 0 13 0;
#X connect 18 0 1 0;
#X connect 20 0 4 1;
#X connect 20 0 17 1;
#X connect 26 0 27 0;
#X connect 27 0 4 0;
#X connect 29 0 17 2;
#X connect 29 0 4 2;
#X connect 32 0 8 0;
#X connect 33 0 10 0;
