#N canvas 127 203 746 628 10;
#X obj 342 172 mtof;
#X floatatom 342 156 5 0 127 0 - - -, f 5;
#X floatatom 477 170 5 0 0 0 - - -, f 5;
#X obj 28 425 hip~ 2;
#X msg 81 425 clear;
#X obj 135 137 pack f f f f f;
#X obj 135 91 mtof;
#X floatatom 135 74 5 0 0 0 - - -, f 5;
#X floatatom 240 92 5 0 0 0 - - -, f 5;
#X obj 147 225 pack f f f f f;
#X obj 147 180 mtof;
#X floatatom 147 162 5 0 0 0 - - -, f 5;
#X floatatom 252 180 5 0 0 0 - - -, f 5;
#X obj 158 315 pack f f f f f;
#X obj 158 270 mtof;
#X floatatom 158 250 5 0 0 0 - - -, f 5;
#X floatatom 263 270 5 0 0 0 - - -, f 5;
#X obj 555 135 pack f f f f f;
#X obj 555 90 mtof;
#X floatatom 555 72 5 0 0 0 - - -, f 5;
#X floatatom 673 92 5 0 0 0 - - -, f 5;
#X obj 28 397 noise~;
#X obj 27 520 dac~;
#X obj 135 383 t a;
#X obj 325 135 pack f f f f f;
#X obj 325 90 mtof;
#X floatatom 325 72 5 0 0 0 - - -, f 5;
#X floatatom 386 90 5 0 0 0 - - -, f 5;
#X obj 325 350 t a;
#X floatatom 447 93 5 0 0 0 - - -, f 5;
#X obj 28 493 *~ 0.1;
#X obj 342 215 pack f f f f f;
#X obj 358 277 mtof;
#X floatatom 358 261 5 0 127 0 - - -, f 5;
#X floatatom 493 275 5 0 0 0 - - -, f 5;
#X obj 358 320 pack f f f f f;
#X text 45 34 y(n) = b0 x(n) + b1 x(n-1) + b2 x(n-2) -a1 y(n-1) -a2
y(n-2);
#N canvas 0 50 450 300 5_line~ 0;
#X obj 80 123 line~;
#X obj 79 147 outlet~;
#X obj 80 73 inlet;
#X obj 136 123 line~;
#X obj 135 147 outlet~;
#X obj 136 73 inlet;
#X obj 193 123 line~;
#X obj 192 147 outlet~;
#X obj 193 73 inlet;
#X obj 247 123 line~;
#X obj 246 147 outlet~;
#X obj 247 73 inlet;
#X obj 304 123 line~;
#X obj 303 147 outlet~;
#X obj 304 73 inlet;
#X msg 80 96 \$1 133;
#X msg 136 96 \$1 133;
#X msg 193 96 \$1 133;
#X msg 247 96 \$1 133;
#X msg 304 96 \$1 133;
#X connect 0 0 1 0;
#X connect 2 0 15 0;
#X connect 3 0 4 0;
#X connect 5 0 16 0;
#X connect 6 0 7 0;
#X connect 8 0 17 0;
#X connect 9 0 10 0;
#X connect 11 0 18 0;
#X connect 12 0 13 0;
#X connect 14 0 19 0;
#X connect 15 0 0 0;
#X connect 16 0 3 0;
#X connect 17 0 6 0;
#X connect 18 0 9 0;
#X connect 19 0 12 0;
#X restore 135 424 pd 5_line~;
#X obj 135 403 unpack f f f f f;
#N canvas 0 50 444 301 oscillo 0;
#X obj 41 25 loadbang;
#X obj 26 223 metro 100;
#X obj 8 -9 inlet~;
#X msg 41 47 1;
#X obj 42 81 tgl 20 0 empty empty Stop 0 -6 0 8 -258699 -1 -1 1 1;
#X obj 118 -3 inlet;
#X msg 147 48 1;
#X msg 115 48 0;
#X obj 118 21 moses 10;
#X obj 19 263 tabwrite~ \$0-oscillo;
#X obj 100 140 cnv 1 300 1 empty empty empty 20 12 0 14 -195568 -66577
0;
#N canvas 0 50 767 419 (subpatch) 0;
#X array \$0-oscillo 300 float 0;
#X coords 0 1 299 -1 300 80 1;
#X restore 100 100 graph;
#X obj 110 75 change;
#X obj 234 62 block~ 640 1 0.25;
#X connect 0 0 3 0;
#X connect 1 0 9 0;
#X connect 2 0 9 0;
#X connect 3 0 4 0;
#X connect 4 0 1 0;
#X connect 5 0 8 0;
#X connect 6 0 12 0;
#X connect 7 0 12 0;
#X connect 8 0 7 0;
#X connect 8 1 6 0;
#X connect 8 1 1 1;
#X connect 12 0 1 0;
#X coords 0 -1 1 1 300 80 1 100 100;
#X restore 83 497 pd oscillo;
#X obj 29 466 bq~ ---------;
#X text 27 6 bq~ is a biquad \, but with audio input for the coeficients.
Out out is :;
#X text 43 52 (it's not the same structure than biquad~ ! );
#N canvas 0 98 595 201 bq~ 0;
#X obj 56 60 inlet~;
#X obj 192 58 inlet~;
#X obj 239 58 inlet~;
#X obj 319 59 inlet~;
#X obj 366 59 inlet~;
#X obj 412 58 inlet~;
#X text 323 37 b0;
#X obj 56 156 outlet~;
#X msg 67 84 clear;
#X text 188 34 a1;
#X obj 57 113 fexpr~ $x4[0]*$x1[0] + $x5[0]*$x1[-1] + $x6[0]*$x1[-2]
- $x2[0]*$y1[-1] - $x3[0]*$y1[-2];
#X connect 0 0 10 0;
#X connect 1 0 10 1;
#X connect 2 0 10 2;
#X connect 3 0 10 3;
#X connect 4 0 10 4;
#X connect 5 0 10 5;
#X connect 8 0 10 0;
#X connect 10 0 7 0;
#X restore 19 597 pd bq~ ---;
#X text 101 597 <- drop in remplacement for bq~ \, using fexpr~ (lot's
slower);
#X obj 555 313 t a;
#X obj 135 113 bq_coef_lop;
#X obj 148 201 bq_coef_hip;
#X obj 158 294 bq_coef_bp;
#X obj 325 113 bq_coef_peak;
#X obj 342 192 bq_coef_highshelf;
#X obj 358 297 bq_coef_lowshelf;
#X obj 555 113 bq_coef_notch;
#X connect 0 0 50 0;
#X connect 1 0 0 0;
#X connect 2 0 50 1;
#X connect 3 0 40 0;
#X connect 4 0 40 0;
#X connect 5 0 23 0;
#X connect 6 0 46 0;
#X connect 7 0 6 0;
#X connect 8 0 46 1;
#X connect 9 0 23 0;
#X connect 10 0 47 0;
#X connect 11 0 10 0;
#X connect 12 0 47 1;
#X connect 13 0 23 0;
#X connect 14 0 48 0;
#X connect 15 0 14 0;
#X connect 16 0 48 1;
#X connect 17 0 45 0;
#X connect 18 0 52 0;
#X connect 19 0 18 0;
#X connect 20 0 52 1;
#X connect 21 0 3 0;
#X connect 23 0 38 0;
#X connect 24 0 28 0;
#X connect 25 0 49 0;
#X connect 26 0 25 0;
#X connect 27 0 49 1;
#X connect 28 0 23 0;
#X connect 29 0 49 2;
#X connect 30 0 22 0;
#X connect 30 0 22 1;
#X connect 31 0 28 0;
#X connect 32 0 51 0;
#X connect 33 0 32 0;
#X connect 34 0 51 1;
#X connect 35 0 28 0;
#X connect 37 0 40 1;
#X connect 37 1 40 2;
#X connect 37 2 40 3;
#X connect 37 3 40 4;
#X connect 37 4 40 5;
#X connect 38 0 37 0;
#X connect 38 1 37 1;
#X connect 38 2 37 2;
#X connect 38 3 37 3;
#X connect 38 4 37 4;
#X connect 40 0 39 0;
#X connect 40 0 30 0;
#X connect 45 0 28 0;
#X connect 46 0 5 0;
#X connect 46 1 5 1;
#X connect 46 2 5 2;
#X connect 46 3 5 3;
#X connect 46 4 5 4;
#X connect 47 0 9 0;
#X connect 47 1 9 1;
#X connect 47 2 9 2;
#X connect 47 3 9 3;
#X connect 47 4 9 4;
#X connect 48 0 13 0;
#X connect 48 1 13 1;
#X connect 48 2 13 2;
#X connect 48 3 13 3;
#X connect 48 4 13 4;
#X connect 49 0 24 0;
#X connect 49 1 24 1;
#X connect 49 2 24 2;
#X connect 49 3 24 3;
#X connect 49 4 24 4;
#X connect 50 0 31 0;
#X connect 50 1 31 1;
#X connect 50 2 31 2;
#X connect 50 3 31 3;
#X connect 50 4 31 4;
#X connect 51 0 35 0;
#X connect 51 1 35 1;
#X connect 51 2 35 2;
#X connect 51 3 35 3;
#X connect 51 4 35 4;
#X connect 52 0 17 0;
#X connect 52 1 17 1;
#X connect 52 2 17 2;
#X connect 52 3 17 3;
#X connect 52 4 17 4;