pp.eqfilter~.pd

#N canvas 142 156 770 374 10;
#N canvas 172 53 1129 713 stuff 0;
#X obj 538 34 r \$0-filtertype;
#X obj 537 386 s \$0-filtertyper;
#X msg 538 108 Lowpass;
#X msg 552 129 Highpass;
#X msg 570 153 Reson;
#X msg 587 178 Bandpass;
#X msg 596 205 Notch;
#X msg 610 228 Peaking;
#X obj 537 344 symbol;
#X msg 537 365 label \$1;
#X msg 719 122 color 0;
#X obj 733 102 sel 1 0;
#X obj 744 169 s \$0-gguir;
#X obj 737 198 s \$0-gainr;
#X obj 531 453 loadbang;
#X obj 530 580 pack 0 \$0;
#X obj 530 473 symbol \$1;
#X msg 530 539 0;
#X msg 558 541 1;
#X msg 590 541 2;
#X msg 622 541 3;
#X msg 657 542 4;
#X msg 693 546 5;
#X obj 858 549 t b;
#X obj 553 406 s \$0-visbngr;
#X obj 197 541 s \$0-visbngr;
#X obj 179 436 r \$0-visbng;
#X msg 177 513 color 0 0;
#X msg 261 513 color 10 10;
#X obj 179 458 t b;
#X obj 259 488 del 250;
#X obj 143 590 s pd-\$0-filter;
#X msg 744 142 color 1;
#X msg 143 568 relocate 230x135+1+1 1x1+50+60 \, vis 1;
#X msg 644 309 Allpass;
#X obj 826 155 s \$0-gguir;
#X obj 843 176 s \$0-gainr;
#X obj 733 81 > 4;
#X msg 826 119 color 1;
#X obj 826 95 sel 1;
#X msg 731 546 6;
#X msg 618 253 Lowshelf;
#X obj 538 87 sel 0 1 2 3 4 5 6 7 8;
#X msg 628 278 Highshelf;
#X obj 826 75 == 8;
#X obj 530 494 sel lowpass highpass reson bandpass notch peaking lowshelf
highshelf allpass;
#X msg 764 541 7;
#X msg 813 544 8;
#X msg 530 601 \; \$2-freqr 400 \; \$2-qr 0 \; \$2-gainr 0 \; \$2-filtertyper
\$1;
#X obj 173 388 s \$0-do;
#X obj 297 203 r \$0-filtertype;
#X obj 297 224 t b f;
#X obj 248 200 t b f;
#X obj 215 42 t f b;
#X obj 243 85 / 2;
#X obj 243 64 samplerate~;
#X obj 59 197 clip -99 100;
#X obj 214 20 r \$0-freq;
#X obj 59 175 r \$0-q;
#X obj 248 178 r \$0-gain;
#X obj 173 109 clip 1e-24 20050;
#X obj 173 364 f 0;
#X obj 173 273 del 0;
#X obj 173 133 t b f;
#X obj 173 322 t b a;
#X obj 227 388 s \$0-list;
#X obj 239 360 r \$0-filtertype-init;
#X obj 173 299 pack 1e-24 1e-24 1e-24;
#X connect 0 0 37 0;
#X connect 0 0 42 0;
#X connect 0 0 44 0;
#X connect 2 0 8 0;
#X connect 3 0 8 0;
#X connect 4 0 8 0;
#X connect 5 0 8 0;
#X connect 6 0 8 0;
#X connect 7 0 8 0;
#X connect 8 0 9 0;
#X connect 9 0 1 0;
#X connect 9 0 24 0;
#X connect 10 0 12 0;
#X connect 10 0 13 0;
#X connect 11 0 10 0;
#X connect 11 1 32 0;
#X connect 14 0 16 0;
#X connect 15 0 48 0;
#X connect 16 0 45 0;
#X connect 17 0 15 0;
#X connect 18 0 15 0;
#X connect 19 0 15 0;
#X connect 20 0 15 0;
#X connect 21 0 15 0;
#X connect 22 0 15 0;
#X connect 23 0 15 0;
#X connect 26 0 29 0;
#X connect 27 0 25 0;
#X connect 28 0 25 0;
#X connect 29 0 27 0;
#X connect 29 0 30 0;
#X connect 29 0 33 0;
#X connect 30 0 28 0;
#X connect 32 0 12 0;
#X connect 32 0 13 0;
#X connect 33 0 31 0;
#X connect 34 0 8 0;
#X connect 37 0 11 0;
#X connect 38 0 35 0;
#X connect 38 0 36 0;
#X connect 39 0 38 0;
#X connect 40 0 15 0;
#X connect 41 0 8 0;
#X connect 42 0 2 0;
#X connect 42 1 3 0;
#X connect 42 2 4 0;
#X connect 42 3 5 0;
#X connect 42 4 6 0;
#X connect 42 5 7 0;
#X connect 42 6 41 0;
#X connect 42 7 43 0;
#X connect 42 8 34 0;
#X connect 43 0 8 0;
#X connect 44 0 39 0;
#X connect 45 0 17 0;
#X connect 45 1 18 0;
#X connect 45 2 19 0;
#X connect 45 3 20 0;
#X connect 45 4 21 0;
#X connect 45 5 22 0;
#X connect 45 6 40 0;
#X connect 45 7 46 0;
#X connect 45 8 47 0;
#X connect 45 9 23 0;
#X connect 46 0 15 0;
#X connect 47 0 15 0;
#X connect 50 0 51 0;
#X connect 51 0 62 0;
#X connect 51 1 61 1;
#X connect 52 0 62 0;
#X connect 52 1 67 2;
#X connect 53 0 60 0;
#X connect 53 1 55 0;
#X connect 54 0 60 2;
#X connect 55 0 54 0;
#X connect 56 0 67 0;
#X connect 57 0 53 0;
#X connect 58 0 56 0;
#X connect 59 0 52 0;
#X connect 60 0 63 0;
#X connect 61 0 49 0;
#X connect 62 0 67 0;
#X connect 63 0 62 0;
#X connect 63 1 67 1;
#X connect 64 0 61 0;
#X connect 64 1 65 0;
#X connect 66 0 61 1;
#X connect 67 0 64 0;
#X restore 557 170 pd stuff;
#N canvas 626 271 230 135 \$0-filter 0;
#N canvas 166 352 714 345 mask 0;
#X obj 100 100 cnv 15 219 129 empty empty empty 20 12 0 14 -262144
-66577 0;
#X obj 110 127 hradio 11 1 0 9 \$0-filtertype \$0-filtertyper Lowpass
105 6 2 10 -262144 -1 -1 0;
#X obj 112 155 hsl 128 12 0 135.076 0 0 \$0-fgui \$0-fguir Frequency
-2 -6 2 10 -262144 -1 -1 10432 1;
#X obj 246 155 nbx 5 12 0 1e+17 0 0 \$0-freq \$0-freqr hz 47 7 2 10
-262144 -1 -1 4868 256;
#N canvas 3 57 450 300 map 0;
#X obj 43 26 inlet;
#X obj 192 54 inlet;
#X obj 94 160 outlet;
#X obj 192 127 outlet;
#X obj 93 79 mtof;
#X obj 94 119 i;
#X obj 192 81 ftom;
#X msg 192 102 set \$1;
#X msg 94 140 set \$1;
#X obj 23 153 s \$0-freq;
#X obj 93 101 + 0.5;
#X obj 42 48 moses 0.1;
#X connect 0 0 11 0;
#X connect 1 0 6 0;
#X connect 4 0 10 0;
#X connect 5 0 8 0;
#X connect 5 0 9 0;
#X connect 6 0 7 0;
#X connect 7 0 3 0;
#X connect 8 0 2 0;
#X connect 10 0 5 0;
#X connect 11 0 5 0;
#X connect 11 0 9 0;
#X connect 11 1 4 0;
#X restore 49 153 pd map;
#X obj 112 181 hsl 128 12 0 1 0 0 \$0-qgui \$0-qguir Q -2 -7 2 10 -262144
-1 -1 10290 1;
#X obj 246 181 nbx 5 12 -99 100 0 0 \$0-q \$0-qr empty 47 7 2 10 -262144
-1 -1 15.4812 256;
#N canvas 3 57 450 300 map 0;
#X obj 94 33 inlet;
#X obj 192 33 inlet;
#X obj 94 160 outlet;
#X obj 192 155 outlet;
#X msg 192 130 set \$1;
#X msg 94 140 set \$1;
#X obj 23 153 s \$0-q;
#X obj 94 79 * 24;
#X obj 94 56 pow 2;
#X obj 192 68 / 24;
#X obj 192 91 sqrt;
#X connect 0 0 8 0;
#X connect 1 0 9 0;
#X connect 4 0 3 0;
#X connect 5 0 2 0;
#X connect 7 0 5 0;
#X connect 7 0 6 0;
#X connect 8 0 7 0;
#X connect 9 0 10 0;
#X connect 10 0 4 0;
#X restore 49 179 pd map;
#X obj 112 209 hsl 128 12 -24 24 0 0 \$0-ggui \$0-gguir Gain -2 -7
2 10 -166441 -1 -1 1550 1;
#X obj 246 209 nbx 5 12 -99 100 0 0 \$0-gain \$0-gainr db 47 7 2 10
-166441 -1 -1 -18 256;
#N canvas 0 50 450 300 map 0;
#X obj 95 33 inlet;
#X obj 192 30 inlet;
#X obj 94 160 outlet;
#X obj 192 163 outlet;
#X msg 192 138 set \$1;
#X msg 94 140 set \$1;
#X obj 95 81 i;
#X obj 193 112 i;
#X obj 23 153 s \$0-gain;
#X connect 0 0 6 0;
#X connect 1 0 7 0;
#X connect 4 0 3 0;
#X connect 5 0 2 0;
#X connect 6 0 5 0;
#X connect 6 0 8 0;
#X connect 7 0 4 0;
#X restore 49 209 pd map;
#X obj 244 108 cnv 10 10 10 empty empty eqfilter~ 0 5 2 14 -262144
-162280 0;
#X connect 2 0 4 0;
#X connect 3 0 4 1;
#X connect 4 0 3 0;
#X connect 4 1 2 0;
#X connect 5 0 7 0;
#X connect 6 0 7 1;
#X connect 7 0 6 0;
#X connect 7 1 5 0;
#X connect 8 0 10 0;
#X connect 9 0 10 1;
#X connect 10 0 9 0;
#X connect 10 1 8 0;
#X coords 0 -1 1 1 220 130 2 100 100;
#X restore 5 2 pd mask;
#X restore 558 144 pd \$0-filter;
#X obj 558 90 inlet;
#N canvas 596 103 632 455 in 0;
#X obj 70 15 inlet;
#X obj 70 169 s \$0-filtertyper;
#X msg 70 133 0;
#X msg 98 135 1;
#X msg 130 135 2;
#X msg 162 135 3;
#X msg 197 136 4;
#X msg 232 135 5;
#X obj 72 240 route frequency q bandwitdth gain;
#X obj 72 268 s \$0-freqr;
#X obj 117 293 s \$0-qr;
#X obj 152 272 s \$0-bwr;
#X obj 203 296 s \$0-gainr;
#X msg 265 138 6;
#X obj 70 91 route lowpass highpass reson bandpass notch peaking lowshelf
highshelf allpass;
#X msg 295 140 7;
#X msg 328 143 8;
#N canvas 698 514 200 251 route 0;
#X obj 20 20 inlet;
#X obj 30 60 route save recall;
#X obj 30 85 route float;
#X obj 97 111 route float;
#X obj 30 136 s \$0-save;
#X obj 30 108 i;
#X obj 98 133 i;
#X obj 98 161 s \$0-recall;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 1 1 3 0;
#X connect 2 0 5 0;
#X connect 3 0 6 0;
#X connect 5 0 4 0;
#X connect 6 0 7 0;
#X restore 92 43 pd route save-recall;
#N canvas 362 125 450 479 recall 0;
#X obj 49 145 outlet;
#N canvas 3 54 450 600 listsplit 0;
#X obj 158 23 inlet;
#X obj 220 87 list length;
#X obj 220 113 until;
#X obj 182 150 f;
#X obj 278 150 + 1;
#X msg 265 111 0;
#X obj 182 226 list store;
#X msg 182 202 get \$1 1;
#X obj 154 367 list split;
#X obj 222 342 f;
#X obj 154 334 list;
#X obj 98 124 list;
#X obj 182 389 list split 1;
#X obj 154 274 t bang bang bang;
#X obj 182 179 t f f;
#X obj 158 48 t l l l b;
#X obj 154 473 outlet;
#X obj 154 440 list trim;
#X obj 163 248 sel |;
#X text 275 197 hacky split list at "|";
#X connect 0 0 15 0;
#X connect 1 0 2 0;
#X connect 2 0 3 0;
#X connect 3 0 4 0;
#X connect 3 0 14 0;
#X connect 4 0 3 1;
#X connect 5 0 3 1;
#X connect 6 0 18 0;
#X connect 7 0 6 0;
#X connect 8 0 17 0;
#X connect 8 1 12 0;
#X connect 9 0 8 1;
#X connect 10 0 8 0;
#X connect 11 0 15 0;
#X connect 12 1 11 0;
#X connect 13 0 10 0;
#X connect 13 1 9 0;
#X connect 13 2 2 1;
#X connect 14 0 7 0;
#X connect 14 1 9 1;
#X connect 15 0 1 0;
#X connect 15 1 10 1;
#X connect 15 2 6 1;
#X connect 15 3 5 0;
#X connect 17 0 16 0;
#X connect 18 0 13 0;
#X restore 49 117 pd listsplit;
#X obj 49 24 r \$0-recall;
#X obj 49 54 pipe 1;
#X obj 221 409 text fromlist \$0-savestates;
#X obj 49 77 text get \$0-savestates;
#X msg 253 246 21;
#X obj 253 269 until;
#X obj 253 292 f;
#X obj 300 295 + 1;
#X obj 253 315 t b f;
#X obj 253 367 text set \$0-savestates;
#X obj 221 114 text tolist \$0-savestates;
#X msg 253 342 list empty_slot;
#X obj 221 160 t a b;
#X obj 151 166 loadbang;
#X obj 221 137 savestate;
#X obj 221 33 text define \$0-savestates;
#X obj 151 189 del 0;
#X msg 298 199 0;
#X obj 253 220 spigot 1;
#X connect 1 0 0 0;
#X connect 2 0 3 0;
#X connect 3 0 5 0;
#X connect 5 0 1 0;
#X connect 6 0 7 0;
#X connect 7 0 8 0;
#X connect 8 0 9 0;
#X connect 8 0 10 0;
#X connect 9 0 8 1;
#X connect 10 0 13 0;
#X connect 10 1 11 1;
#X connect 12 0 16 0;
#X connect 13 0 11 0;
#X connect 14 0 4 0;
#X connect 14 1 19 0;
#X connect 15 0 18 0;
#X connect 16 0 14 0;
#X connect 16 1 12 0;
#X connect 18 0 20 0;
#X connect 19 0 20 1;
#X connect 20 0 6 0;
#X restore 163 64 pd recall;
#X connect 0 0 14 0;
#X connect 0 0 17 0;
#X connect 2 0 1 0;
#X connect 3 0 1 0;
#X connect 4 0 1 0;
#X connect 5 0 1 0;
#X connect 6 0 1 0;
#X connect 7 0 1 0;
#X connect 8 0 9 0;
#X connect 8 1 10 0;
#X connect 8 2 11 0;
#X connect 8 3 12 0;
#X connect 13 0 1 0;
#X connect 14 0 2 0;
#X connect 14 1 3 0;
#X connect 14 2 4 0;
#X connect 14 3 5 0;
#X connect 14 4 6 0;
#X connect 14 5 7 0;
#X connect 14 6 13 0;
#X connect 14 7 15 0;
#X connect 14 8 16 0;
#X connect 14 9 8 0;
#X connect 15 0 1 0;
#X connect 16 0 1 0;
#X connect 18 0 14 0;
#X restore 558 111 pd in;
#X obj 556 306 outlet;
#X obj 103 115 hsl 150 15 0 127 0 0 \$0-visbng \$0-visbngr Lowpass
50 8 2 10 -233017 -233017 -1 0 1;
#N canvas 4 157 1096 489 filtercoef 0;
#X obj 66 42 r \$0-do;
#X text 252 370 a1 a2 b0 b1 b2 a0;
#X obj 66 85 expr -2*cos(w\$0) \; 1-alpha\$0 \; (1-cos(w\$0))/2 \;
1-cos(w\$0) \; (1-cos(w\$0))/2 \; 1+alpha\$0;
#X obj 201 81 expr -2*cos(w\$0) \; 1-alpha\$0 \; (1+cos(w\$0))/2 \;
-(1+cos(w\$0)) \; (1+cos(w\$0))/2 \; 1+alpha\$0;
#X text 130 67 lop;
#X text 274 61 hip;
#X obj 336 82 expr -2*cos(w\$0) \; 1-alpha\$0 \; sin(w\$0)/2 \; 0 \;
-1*sin(w\$0)/2 \; 1+alpha\$0;
#X text 393 60 reson;
#X text 520 58 bp;
#X obj 462 80 expr -2*cos(w\$0) \; 1-alpha\$0 \; alpha\$0 \; 0 \; -1*alpha\$0
\; 1+alpha\$0;
#X obj 591 77 expr -2*cos(w\$0) \; 1-alpha\$0 \; 1 \; -2*cos(w\$0)
\; 1 \; 1+alpha\$0;
#X text 649 55 notch;
#X text 779 58 peakEQ;
#X obj 721 80 expr -2*cos(w\$0) \; 1-alpha\$0/A\$0 \; 1+alpha\$0*A\$0
\; -2*cos(w\$0) \; 1-alpha\$0*A\$0 \; 1+alpha\$0/A\$0;
#X obj 850 82 expr -2*cos(w\$0) \; 1-alpha\$0 \; 1-alpha\$0 \; -2*cos(w\$0)
\; 1+alpha\$0 \; 1+alpha\$0;
#X text 916 62 allpass;
#X text 206 258 lowshelf;
#X text 949 175 a1 a2 b0 b1 b2 a0;
#X text 537 254 highshelf;
#X obj 68 232 r \$0-do;
#X obj 66 62 sel 0;
#X obj 66 197 s \$0-filtercoef;
#X obj 201 193 s \$0-filtercoef;
#X obj 336 193 s \$0-filtercoef;
#X obj 462 191 s \$0-filtercoef;
#X obj 591 189 s \$0-filtercoef;
#X obj 721 191 s \$0-filtercoef;
#X obj 850 194 s \$0-filtercoef;
#X obj 201 38 r \$0-do;
#X obj 336 39 r \$0-do;
#X obj 463 37 r \$0-do;
#X obj 590 34 r \$0-do;
#X obj 720 37 r \$0-do;
#X obj 849 40 r \$0-do;
#X obj 400 231 r \$0-do;
#X obj 68 388 s \$0-filtercoef;
#X obj 201 59 sel 1;
#X obj 336 60 sel 2;
#X obj 463 58 sel 3;
#X obj 590 55 sel 4;
#X obj 720 58 sel 5;
#X text 806 299 wC = cos(w0);
#X text 805 316 wS = sin(w0);
#X text 583 366 a1 a2 b0 b1 b2 a0;
#X obj 400 384 s \$0-filtercoef;
#N canvas 3 52 450 300 normalize 0;
#X obj 84 149 /;
#X obj 121 148 /;
#X obj 159 146 /;
#X obj 196 145 /;
#X obj 235 145 /;
#X obj 154 191 pack 0 0 0 0 0;
#X obj 84 101 * -1;
#X obj 121 101 * -1;
#X obj 84 71 inlet;
#X obj 121 71 inlet;
#X obj 159 71 inlet;
#X obj 196 71 inlet;
#X obj 235 71 inlet;
#X obj 272 71 inlet;
#X obj 154 212 outlet;
#X connect 0 0 5 0;
#X connect 1 0 5 1;
#X connect 2 0 5 2;
#X connect 3 0 5 3;
#X connect 4 0 5 4;
#X connect 5 0 14 0;
#X connect 6 0 0 0;
#X connect 7 0 1 0;
#X connect 8 0 6 0;
#X connect 9 0 7 0;
#X connect 10 0 2 0;
#X connect 11 0 3 0;
#X connect 12 0 4 0;
#X connect 13 0 4 1;
#X connect 13 0 3 1;
#X connect 13 0 2 1;
#X connect 13 0 1 1;
#X connect 13 0 0 1;
#X restore 66 174 pd normalize;
#N canvas 3 50 450 300 normalize 0;
#X obj 84 149 /;
#X obj 121 148 /;
#X obj 159 146 /;
#X obj 196 145 /;
#X obj 235 145 /;
#X obj 154 191 pack 0 0 0 0 0;
#X obj 84 101 * -1;
#X obj 121 101 * -1;
#X obj 84 71 inlet;
#X obj 121 71 inlet;
#X obj 159 71 inlet;
#X obj 196 71 inlet;
#X obj 235 71 inlet;
#X obj 272 71 inlet;
#X obj 154 212 outlet;
#X connect 0 0 5 0;
#X connect 1 0 5 1;
#X connect 2 0 5 2;
#X connect 3 0 5 3;
#X connect 4 0 5 4;
#X connect 5 0 14 0;
#X connect 6 0 0 0;
#X connect 7 0 1 0;
#X connect 8 0 6 0;
#X connect 9 0 7 0;
#X connect 10 0 2 0;
#X connect 11 0 3 0;
#X connect 12 0 4 0;
#X connect 13 0 4 1;
#X connect 13 0 3 1;
#X connect 13 0 2 1;
#X connect 13 0 1 1;
#X connect 13 0 0 1;
#X restore 201 171 pd normalize;
#N canvas 0 50 450 300 normalize 0;
#X obj 84 149 /;
#X obj 121 148 /;
#X obj 159 146 /;
#X obj 196 145 /;
#X obj 235 145 /;
#X obj 154 191 pack 0 0 0 0 0;
#X obj 84 101 * -1;
#X obj 121 101 * -1;
#X obj 84 71 inlet;
#X obj 121 71 inlet;
#X obj 159 71 inlet;
#X obj 196 71 inlet;
#X obj 235 71 inlet;
#X obj 272 71 inlet;
#X obj 154 212 outlet;
#X connect 0 0 5 0;
#X connect 1 0 5 1;
#X connect 2 0 5 2;
#X connect 3 0 5 3;
#X connect 4 0 5 4;
#X connect 5 0 14 0;
#X connect 6 0 0 0;
#X connect 7 0 1 0;
#X connect 8 0 6 0;
#X connect 9 0 7 0;
#X connect 10 0 2 0;
#X connect 11 0 3 0;
#X connect 12 0 4 0;
#X connect 13 0 4 1;
#X connect 13 0 3 1;
#X connect 13 0 2 1;
#X connect 13 0 1 1;
#X connect 13 0 0 1;
#X restore 336 172 pd normalize;
#N canvas 0 50 450 300 normalize 0;
#X obj 84 149 /;
#X obj 121 148 /;
#X obj 159 146 /;
#X obj 196 145 /;
#X obj 235 145 /;
#X obj 154 191 pack 0 0 0 0 0;
#X obj 84 101 * -1;
#X obj 121 101 * -1;
#X obj 84 71 inlet;
#X obj 121 71 inlet;
#X obj 159 71 inlet;
#X obj 196 71 inlet;
#X obj 235 71 inlet;
#X obj 272 71 inlet;
#X obj 154 212 outlet;
#X connect 0 0 5 0;
#X connect 1 0 5 1;
#X connect 2 0 5 2;
#X connect 3 0 5 3;
#X connect 4 0 5 4;
#X connect 5 0 14 0;
#X connect 6 0 0 0;
#X connect 7 0 1 0;
#X connect 8 0 6 0;
#X connect 9 0 7 0;
#X connect 10 0 2 0;
#X connect 11 0 3 0;
#X connect 12 0 4 0;
#X connect 13 0 4 1;
#X connect 13 0 3 1;
#X connect 13 0 2 1;
#X connect 13 0 1 1;
#X connect 13 0 0 1;
#X restore 462 170 pd normalize;
#N canvas 0 50 450 300 normalize 0;
#X obj 84 149 /;
#X obj 121 148 /;
#X obj 159 146 /;
#X obj 196 145 /;
#X obj 235 145 /;
#X obj 154 191 pack 0 0 0 0 0;
#X obj 84 101 * -1;
#X obj 121 101 * -1;
#X obj 84 71 inlet;
#X obj 121 71 inlet;
#X obj 159 71 inlet;
#X obj 196 71 inlet;
#X obj 235 71 inlet;
#X obj 272 71 inlet;
#X obj 154 212 outlet;
#X connect 0 0 5 0;
#X connect 1 0 5 1;
#X connect 2 0 5 2;
#X connect 3 0 5 3;
#X connect 4 0 5 4;
#X connect 5 0 14 0;
#X connect 6 0 0 0;
#X connect 7 0 1 0;
#X connect 8 0 6 0;
#X connect 9 0 7 0;
#X connect 10 0 2 0;
#X connect 11 0 3 0;
#X connect 12 0 4 0;
#X connect 13 0 4 1;
#X connect 13 0 3 1;
#X connect 13 0 2 1;
#X connect 13 0 1 1;
#X connect 13 0 0 1;
#X restore 591 167 pd normalize;
#N canvas 0 50 450 300 normalize 0;
#X obj 84 149 /;
#X obj 121 148 /;
#X obj 159 146 /;
#X obj 196 145 /;
#X obj 235 145 /;
#X obj 154 191 pack 0 0 0 0 0;
#X obj 84 101 * -1;
#X obj 121 101 * -1;
#X obj 84 71 inlet;
#X obj 121 71 inlet;
#X obj 159 71 inlet;
#X obj 196 71 inlet;
#X obj 235 71 inlet;
#X obj 272 71 inlet;
#X obj 154 212 outlet;
#X connect 0 0 5 0;
#X connect 1 0 5 1;
#X connect 2 0 5 2;
#X connect 3 0 5 3;
#X connect 4 0 5 4;
#X connect 5 0 14 0;
#X connect 6 0 0 0;
#X connect 7 0 1 0;
#X connect 8 0 6 0;
#X connect 9 0 7 0;
#X connect 10 0 2 0;
#X connect 11 0 3 0;
#X connect 12 0 4 0;
#X connect 13 0 4 1;
#X connect 13 0 3 1;
#X connect 13 0 2 1;
#X connect 13 0 1 1;
#X connect 13 0 0 1;
#X restore 721 170 pd normalize;
#N canvas 0 50 450 300 normalize 0;
#X obj 84 149 /;
#X obj 121 148 /;
#X obj 159 146 /;
#X obj 196 145 /;
#X obj 235 145 /;
#X obj 154 191 pack 0 0 0 0 0;
#X obj 84 101 * -1;
#X obj 121 101 * -1;
#X obj 84 71 inlet;
#X obj 121 71 inlet;
#X obj 159 71 inlet;
#X obj 196 71 inlet;
#X obj 235 71 inlet;
#X obj 272 71 inlet;
#X obj 154 212 outlet;
#X connect 0 0 5 0;
#X connect 1 0 5 1;
#X connect 2 0 5 2;
#X connect 3 0 5 3;
#X connect 4 0 5 4;
#X connect 5 0 14 0;
#X connect 6 0 0 0;
#X connect 7 0 1 0;
#X connect 8 0 6 0;
#X connect 9 0 7 0;
#X connect 10 0 2 0;
#X connect 11 0 3 0;
#X connect 12 0 4 0;
#X connect 13 0 4 1;
#X connect 13 0 3 1;
#X connect 13 0 2 1;
#X connect 13 0 1 1;
#X connect 13 0 0 1;
#X restore 850 172 pd normalize;
#N canvas 3 52 450 300 normalize 0;
#X obj 84 149 /;
#X obj 121 148 /;
#X obj 159 146 /;
#X obj 196 145 /;
#X obj 235 145 /;
#X obj 154 191 pack 0 0 0 0 0;
#X obj 84 101 * -1;
#X obj 121 101 * -1;
#X obj 84 71 inlet;
#X obj 121 71 inlet;
#X obj 159 71 inlet;
#X obj 196 71 inlet;
#X obj 235 71 inlet;
#X obj 272 71 inlet;
#X obj 154 212 outlet;
#X connect 0 0 5 0;
#X connect 1 0 5 1;
#X connect 2 0 5 2;
#X connect 3 0 5 3;
#X connect 4 0 5 4;
#X connect 5 0 14 0;
#X connect 6 0 0 0;
#X connect 7 0 1 0;
#X connect 8 0 6 0;
#X connect 9 0 7 0;
#X connect 10 0 2 0;
#X connect 11 0 3 0;
#X connect 12 0 4 0;
#X connect 13 0 4 1;
#X connect 13 0 3 1;
#X connect 13 0 2 1;
#X connect 13 0 1 1;
#X connect 13 0 0 1;
#X restore 68 367 pd normalize;
#N canvas 0 50 450 300 normalize 0;
#X obj 84 149 /;
#X obj 121 148 /;
#X obj 159 146 /;
#X obj 196 145 /;
#X obj 235 145 /;
#X obj 154 191 pack 0 0 0 0 0;
#X obj 84 101 * -1;
#X obj 121 101 * -1;
#X obj 84 71 inlet;
#X obj 121 71 inlet;
#X obj 159 71 inlet;
#X obj 196 71 inlet;
#X obj 235 71 inlet;
#X obj 272 71 inlet;
#X obj 154 212 outlet;
#X connect 0 0 5 0;
#X connect 1 0 5 1;
#X connect 2 0 5 2;
#X connect 3 0 5 3;
#X connect 4 0 5 4;
#X connect 5 0 14 0;
#X connect 6 0 0 0;
#X connect 7 0 1 0;
#X connect 8 0 6 0;
#X connect 9 0 7 0;
#X connect 10 0 2 0;
#X connect 11 0 3 0;
#X connect 12 0 4 0;
#X connect 13 0 4 1;
#X connect 13 0 3 1;
#X connect 13 0 2 1;
#X connect 13 0 1 1;
#X connect 13 0 0 1;
#X restore 400 363 pd normalize;
#X obj 68 252 sel 6;
#X obj 400 251 sel 7;
#X obj 849 62 sel 8;
#X obj 68 276 expr -2*((A\$0-1)+(A\$0+1)*cos(w\$0)) \; (A\$0+1)+(A\$0-1)*cos(w\$0)-alpha\$0
\; A\$0*((A\$0+1)-(A\$0-1)*cos(w\$0)+alpha\$0) \; 2*A\$0*((A\$0-1)-(A\$0+1)*cos(w\$0))
\; A\$0*((A\$0+1)-(A\$0-1)*cos(w\$0)-alpha\$0) \; (A\$0+1)+(A\$0-1)*cos(w\$0)+alpha\$0
\;;
#X obj 400 272 expr 2*((A\$0-1)-(A\$0+1)*cos(w\$0)) \; (A\$0+1)-(A\$0-1)*cos(w\$0)-alpha\$0
\; A\$0*((A\$0+1)+(A\$0-1)*cos(w\$0)+alpha\$0) \; -2*A\$0*((A\$0-1)+(A\$0+1)*cos(w\$0))
\; A\$0*((A\$0+1)+(A\$0-1)*cos(w\$0)-alpha\$0) \; (A\$0+1)-(A\$0-1)*cos(w\$0)+alpha\$0
\;;
#X connect 0 0 20 0;
#X connect 2 0 45 0;
#X connect 2 1 45 1;
#X connect 2 2 45 2;
#X connect 2 3 45 3;
#X connect 2 4 45 4;
#X connect 2 5 45 5;
#X connect 3 0 46 0;
#X connect 3 1 46 1;
#X connect 3 2 46 2;
#X connect 3 3 46 3;
#X connect 3 4 46 4;
#X connect 3 5 46 5;
#X connect 6 0 47 0;
#X connect 6 1 47 1;
#X connect 6 2 47 2;
#X connect 6 3 47 3;
#X connect 6 4 47 4;
#X connect 6 5 47 5;
#X connect 9 0 48 0;
#X connect 9 1 48 1;
#X connect 9 2 48 2;
#X connect 9 3 48 3;
#X connect 9 4 48 4;
#X connect 9 5 48 5;
#X connect 10 0 49 0;
#X connect 10 1 49 1;
#X connect 10 2 49 2;
#X connect 10 3 49 3;
#X connect 10 4 49 4;
#X connect 10 5 49 5;
#X connect 13 0 50 0;
#X connect 13 1 50 1;
#X connect 13 2 50 2;
#X connect 13 3 50 3;
#X connect 13 4 50 4;
#X connect 13 5 50 5;
#X connect 14 0 51 0;
#X connect 14 1 51 1;
#X connect 14 2 51 2;
#X connect 14 3 51 3;
#X connect 14 4 51 4;
#X connect 14 5 51 5;
#X connect 19 0 54 0;
#X connect 20 0 2 0;
#X connect 28 0 36 0;
#X connect 29 0 37 0;
#X connect 30 0 38 0;
#X connect 31 0 39 0;
#X connect 32 0 40 0;
#X connect 33 0 56 0;
#X connect 34 0 55 0;
#X connect 36 0 3 0;
#X connect 37 0 6 0;
#X connect 38 0 9 0;
#X connect 39 0 10 0;
#X connect 40 0 13 0;
#X connect 45 0 21 0;
#X connect 46 0 22 0;
#X connect 47 0 23 0;
#X connect 48 0 24 0;
#X connect 49 0 25 0;
#X connect 50 0 26 0;
#X connect 51 0 27 0;
#X connect 52 0 35 0;
#X connect 53 0 44 0;
#X connect 54 0 57 0;
#X connect 55 0 58 0;
#X connect 56 0 14 0;
#X connect 57 0 52 0;
#X connect 57 1 52 1;
#X connect 57 2 52 2;
#X connect 57 3 52 3;
#X connect 57 4 52 4;
#X connect 57 5 52 5;
#X connect 58 0 53 0;
#X connect 58 1 53 1;
#X connect 58 2 53 2;
#X connect 58 3 53 3;
#X connect 58 4 53 4;
#X connect 58 5 53 5;
#X restore 556 214 pd filtercoef;
#X obj 334 90 inlet~;
#X obj 333 296 outlet~;
#N canvas 582 134 781 631 outlet-message 0;
#X obj 308 486 list trim;
#X msg 228 484 addcomma;
#X msg 164 469 set;
#X obj 308 463 list prepend add2;
#X obj 308 549 outlet;
#X obj 223 95 r \$0-freq;
#X obj 302 122 r \$0-q;
#X obj 355 229 r \$0-gain;
#N canvas 153 379 986 300 bang_once................. 0;
#X obj 132 87 t b f;
#X obj 89 139 del 0;
#X obj 89 87 t b f;
#X obj 175 89 t b f;
#X obj 89 41 inlet;
#X obj 132 40 inlet;
#X obj 175 42 inlet;
#X obj 219 43 inlet;
#X obj 89 247 outlet;
#X obj 89 173 f;
#X obj 219 89 t b a;
#X obj 89 203 pack 0 0 0 s;
#X connect 0 0 1 0;
#X connect 0 1 11 1;
#X connect 1 0 9 0;
#X connect 2 0 1 0;
#X connect 2 1 9 1;
#X connect 3 0 1 0;
#X connect 3 1 11 2;
#X connect 4 0 2 0;
#X connect 5 0 0 0;
#X connect 6 0 3 0;
#X connect 7 0 10 0;
#X connect 9 0 11 0;
#X connect 10 0 1 0;
#X connect 10 1 11 3;
#X connect 11 0 8 0;
#X restore 241 314 pd bang_once.................;
#X obj 470 29 r \$0-filtertype;
#X obj 469 314 symbol;
#X obj 470 57 sel 0 1 2 3 4 5 6 7 8;
#X msg 305 364 \$4 \, frequency \$1 \, q \$2 \, gain \$3;
#X obj 240 334 t b a b;
#X obj 305 401 t b a a;
#X msg 470 78 lowpass;
#X msg 484 99 highpass;
#X msg 502 123 reson;
#X msg 519 148 bandpass;
#X msg 528 175 notch;
#X msg 542 198 peaking;
#X msg 550 223 lowshelf;
#X msg 560 248 highshelf;
#X msg 576 279 allpass;
#N canvas 497 319 297 264 save 0;
#X obj 48 16 inlet;
#N canvas 690 259 481 384 collect 0;
#X obj 47 60 inlet;
#X obj 47 274 outlet;
#X obj 98 180 list;
#X obj 166 181 t l;
#X obj 47 225 list;
#X obj 98 139 list append |;
#X obj 47 126 del 0;
#X obj 47 82 t b a;
#X text 119 75 hacky thing... replaycing " \, " with "|";
#X connect 0 0 7 0;
#X connect 2 0 3 0;
#X connect 2 0 4 1;
#X connect 3 0 2 1;
#X connect 4 0 1 0;
#X connect 5 0 2 0;
#X connect 6 0 2 1;
#X connect 6 0 4 0;
#X connect 7 0 6 0;
#X connect 7 1 5 0;
#X restore 48 38 pd collect;
#X obj 117 16 r \$0-save;
#X obj 27 130 text set \$0-savestates;
#X obj 27 104 list;
#X obj 117 62 t b f;
#X obj 117 39 clip 0 20;
#X connect 0 0 1 0;
#X connect 1 0 4 1;
#X connect 2 0 6 0;
#X connect 4 0 3 0;
#X connect 5 0 4 0;
#X connect 5 1 3 1;
#X connect 6 0 5 0;
#X restore 344 426 pd save;
#X connect 0 0 4 0;
#X connect 1 0 4 0;
#X connect 2 0 4 0;
#X connect 3 0 0 0;
#X connect 5 0 8 0;
#X connect 6 0 8 1;
#X connect 7 0 8 2;
#X connect 8 0 13 0;
#X connect 9 0 11 0;
#X connect 10 0 8 3;
#X connect 11 0 15 0;
#X connect 11 1 16 0;
#X connect 11 2 17 0;
#X connect 11 3 18 0;
#X connect 11 4 19 0;
#X connect 11 5 20 0;
#X connect 11 6 21 0;
#X connect 11 7 22 0;
#X connect 11 8 23 0;
#X connect 12 0 14 0;
#X connect 13 0 4 0;
#X connect 13 1 12 0;
#X connect 13 2 2 0;
#X connect 14 0 1 0;
#X connect 14 1 3 0;
#X connect 14 2 24 0;
#X connect 15 0 10 0;
#X connect 16 0 10 0;
#X connect 17 0 10 0;
#X connect 18 0 10 0;
#X connect 19 0 10 0;
#X connect 20 0 10 0;
#X connect 21 0 10 0;
#X connect 22 0 10 0;
#X connect 23 0 10 0;
#X restore 556 278 pd outlet-message;
#X obj 334 233 biquad~;
#X text 368 343 philipp schmalfuß \, 2018;
#X obj 342 210 r \$0-filtercoef;
#N canvas 51 186 1036 411 variables 0;
#X obj 177 319 expr sin(w\$0)/(2*$f1);
#X obj 177 340 v alpha\$0;
#X text 240 338 calculate alpha->Q;
#X obj 426 334 v alpha\$0;
#X text 489 332 calculate alpha->BW;
#X obj 426 312 expr sin(w\$0)*sinh(ln(2)/2*$f1*w\$0/sin(w\$0));
#X text 427 354 (for notch \, peak);
#X text 248 350 (for lop \, hip \, reson \, bp);
#X obj 177 277 + 100;
#X obj 177 298 dbtorms;
#X obj 616 168 v A\$0;
#X obj 616 145 expr pow(10 \, $f1/40);
#X obj 248 128 r \$0-filtertype;
#X obj 179 154 list prepend;
#X obj 428 287 v alpha\$0;
#X text 656 171 calculate A -> Gain for peak \, shelf;
#X obj 179 11 r \$0-list;
#X obj 179 178 route 0 1 2 3 4 5 6 7 8;
#X obj 427 226 + 100;
#X obj 427 247 dbtorms;
#X obj 206 248 max 1e-05;
#X obj 289 246 max 0.005;
#X obj 260 153 r \$0-filtertype-init;
#X obj 289 267 swap 1;
#X obj 289 290 /;
#X obj 421 113 t f b;
#X obj 430 135 samplerate~;
#X obj 421 181 v w\$0;
#X obj 538 120 atan;
#X msg 538 102 1;
#X obj 538 80 loadbang;
#X obj 538 140 * 8;
#X obj 421 160 expr ($f3*$f1)/$f2;
#X text 461 181 calculate omega;
#X obj 179 34 unpack f f f;
#X text 266 32 q \, freq \, gain;
#X obj 428 267 expr sin(w\$0)*(sqrt(A\$0)/$f1);
#X text 492 285 calculate alpha*sin -> q (for shelving);
#X connect 0 0 1 0;
#X connect 5 0 3 0;
#X connect 8 0 9 0;
#X connect 9 0 0 0;
#X connect 11 0 10 0;
#X connect 12 0 13 1;
#X connect 13 0 17 0;
#X connect 16 0 34 0;
#X connect 17 0 8 0;
#X connect 17 1 8 0;
#X connect 17 2 8 0;
#X connect 17 3 20 0;
#X connect 17 4 21 0;
#X connect 17 5 21 0;
#X connect 17 6 18 0;
#X connect 17 7 18 0;
#X connect 17 8 21 0;
#X connect 18 0 19 0;
#X connect 19 0 36 0;
#X connect 20 0 0 0;
#X connect 21 0 23 0;
#X connect 22 0 13 1;
#X connect 23 0 24 0;
#X connect 23 1 24 1;
#X connect 24 0 5 0;
#X connect 25 0 32 0;
#X connect 25 1 26 0;
#X connect 26 0 32 1;
#X connect 28 0 31 0;
#X connect 29 0 28 0;
#X connect 30 0 29 0;
#X connect 31 0 32 2;
#X connect 32 0 27 0;
#X connect 34 0 13 0;
#X connect 34 1 25 0;
#X connect 34 2 11 0;
#X connect 36 0 14 0;
#X restore 556 192 pd variables;
#X connect 2 0 3 0;
#X connect 7 0 10 0;
#X connect 9 0 4 0;
#X connect 10 0 8 0;
#X connect 12 0 10 0;
#X coords 0 -1 1 1 155 33 1 100 100;