text: #N canvas 239 52 660 500 10;
  #X obj 66 106 inlet~;
  #X obj 67 367 outlet~;
  #X obj 260 110 inlet;
  #N canvas 386 79 641 728 zeros 0;
  #X obj 208 103 unpack 0 0 0 0 0;
  #N canvas 0 0 260 222 s 0;
  #X obj 66 145 outlet~;
  #X obj 66 21 inlet;
  #X obj 66 100 line~;
  #X obj 66 66 pack 0 10;
  #X obj 126 22 r \$0-interp;
  #X connect 1 0 3 0;
  #X connect 2 0 0 0;
  #X connect 3 0 2 0;
  #X connect 4 0 3 1;
  #X restore 336 447 pd s;
  #N canvas 0 0 260 222 s 0;
  #X obj 66 145 outlet~;
  #X obj 66 21 inlet;
  #X obj 66 100 line~;
  #X obj 66 66 pack 0 10;
  #X obj 126 22 r \$0-interp;
  #X connect 1 0 3 0;
  #X connect 2 0 0 0;
  #X connect 3 0 2 0;
  #X connect 4 0 3 1;
  #X restore 311 415 pd s;
  #N canvas 0 0 260 222 s 0;
  #X obj 66 145 outlet~;
  #X obj 66 21 inlet;
  #X obj 66 100 line~;
  #X obj 66 66 pack 0 10;
  #X obj 126 22 r \$0-interp;
  #X connect 1 0 3 0;
  #X connect 2 0 0 0;
  #X connect 3 0 2 0;
  #X connect 4 0 3 1;
  #X restore 286 391 pd s;
  #N canvas 0 0 260 222 s 0;
  #X obj 66 145 outlet~;
  #X obj 66 21 inlet;
  #X obj 66 100 line~;
  #X obj 66 66 pack 0 10;
  #X obj 126 22 r \$0-interp;
  #X connect 1 0 3 0;
  #X connect 2 0 0 0;
  #X connect 3 0 2 0;
  #X connect 4 0 3 1;
  #X restore 262 369 pd s;
  #X obj 142 499 czero~;
  #X obj 141 540 czero~;
  #N canvas 0 0 383 335 -$f2/2/$f1 0;
  #X obj 94 82 inlet;
  #X obj 146 81 inlet;
  #X obj 94 212 outlet;
  #X obj 94 183 / 1;
  #X obj 146 121 / -2;
  #X obj 94 159 swap;
  #X connect 0 0 5 0;
  #X connect 1 0 4 0;
  #X connect 3 0 2 0;
  #X connect 4 0 5 1;
  #X connect 5 0 3 0;
  #X connect 5 1 3 1;
  #X restore 262 178 pd -$f2/2/$f1;
  #N canvas 395 415 540 402 ($f2*$f2 0;
  #X obj 50 59 inlet;
  #X obj 144 60 inlet;
  #X obj 221 57 inlet;
  #X obj 68 190 f;
  #X obj 50 214 *;
  #X obj 50 245 * -4;
  #X obj 50 307 +;
  #X obj 50 336 outlet;
  #X text 239 255 expr ($f2*$f2 - 4*$f1*$f3);
  #X obj 84 309 *;
  #X obj 84 288 t a a;
  #X obj 50 84 t a b b;
  #X obj 126 190 f;
  #X connect 0 0 11 0;
  #X connect 1 0 12 1;
  #X connect 2 0 3 1;
  #X connect 3 0 4 1;
  #X connect 4 0 5 0;
  #X connect 5 0 6 0;
  #X connect 6 0 7 0;
  #X connect 9 0 6 1;
  #X connect 10 0 9 0;
  #X connect 10 1 9 1;
  #X connect 11 0 4 0;
  #X connect 11 1 3 0;
  #X connect 11 2 12 0;
  #X connect 12 0 10 0;
  #X restore 298 220 pd ($f2*$f2 - 4*$f1*$f3);
  #X obj 299 241 t a a;
  #N canvas 73 329 600 513 sqrt(abs($f1)) 0;
  #X obj 53 71 inlet;
  #X obj 53 178 outlet;
  #X obj 53 127 sqrt;
  #X obj 53 105 abs;
  #X obj 53 153 * 0.5;
  #X text 242 282 expr sqrt(abs(x)) / 2;
  #X connect 0 0 3 0;
  #X connect 2 0 4 0;
  #X connect 3 0 2 0;
  #X connect 4 0 1 0;
  #X restore 337 274 pd sqrt(abs($f1)) / 2;
  #X obj 337 312 / 1;
  #X obj 298 198 t a a;
  #X obj 262 154 t a a;
  #X obj 208 80 inlet;
  #X obj 141 79 inlet~;
  #X obj 142 594 outlet~;
  #X obj 179 567 outlet~;
  #X floatatom 448 396 5 0 0 0 - - -;
  #X floatatom 490 397 5 0 0 0 - - -;
  #X floatatom 358 394 5 0 0 0 - - -;
  #X floatatom 400 395 5 0 0 0 - - -;
  #N canvas 186 151 803 565 location 0;
  #X obj 58 51 inlet;
  #X obj 152 45 inlet;
  #X obj 276 38 inlet;
  #X obj 58 435 outlet;
  #X obj 174 431 outlet;
  #X obj 250 431 outlet;
  #X obj 304 431 outlet;
  #X obj 134 168 t a a;
  #X obj 134 193 >;
  #X obj 166 194 <;
  #X obj 134 243 *;
  #X text 164 247 ($f2 > 0)*$f3;
  #X obj 134 274 t a a;
  #X obj 58 406 +;
  #X obj 250 405 -;
  #X text 306 247 ($f2 < 0)*$f3;
  #X obj 272 246 *;
  #X obj 272 277 t a a;
  #X obj 258 156 t a a;
  #X obj 304 407 * -1;
  #X text 518 254 expr $f1 + ($f2 > 0)*$f3 \; ($f2 < 0)*$f3 \; $f1 -
  ($f2 > 0)*$f3 \; ($f2 < 0)*-1*$f3;
  #X obj 58 78 t a b b;
  #X obj 58 274 t a a;
  #X obj 134 144 f;
  #X obj 258 134 f;
  #X connect 0 0 21 0;
  #X connect 1 0 23 1;
  #X connect 2 0 24 1;
  #X connect 7 0 8 0;
  #X connect 7 1 9 0;
  #X connect 8 0 10 0;
  #X connect 9 0 16 0;
  #X connect 10 0 12 0;
  #X connect 12 0 13 1;
  #X connect 12 1 14 1;
  #X connect 13 0 3 0;
  #X connect 14 0 5 0;
  #X connect 16 0 17 0;
  #X connect 17 0 4 0;
  #X connect 17 1 19 0;
  #X connect 18 0 10 1;
  #X connect 18 1 16 1;
  #X connect 19 0 6 0;
  #X connect 21 0 22 0;
  #X connect 21 1 23 0;
  #X connect 21 2 24 0;
  #X connect 22 0 13 0;
  #X connect 22 1 14 0;
  #X connect 23 0 7 0;
  #X connect 24 0 18 0;
  #X restore 262 338 pd location;
  #X obj 58 456 r \$0-clear;
  #X connect 0 2 13 0;
  #X connect 0 3 8 1;
  #X connect 0 3 7 1;
  #X connect 0 4 8 2;
  #X connect 1 0 6 3;
  #X connect 2 0 6 2;
  #X connect 3 0 5 3;
  #X connect 4 0 5 2;
  #X connect 5 0 6 0;
  #X connect 5 1 6 1;
  #X connect 6 0 16 0;
  #X connect 6 1 17 0;
  #X connect 7 0 22 0;
  #X connect 8 0 9 0;
  #X connect 9 0 22 1;
  #X connect 9 1 10 0;
  #X connect 10 0 11 0;
  #X connect 11 0 22 2;
  #X connect 12 0 8 0;
  #X connect 12 1 11 1;
  #X connect 13 0 7 0;
  #X connect 13 1 12 0;
  #X connect 14 0 0 0;
  #X connect 15 0 5 0;
  #X connect 22 0 4 0;
  #X connect 22 0 20 0;
  #X connect 22 1 3 0;
  #X connect 22 1 21 0;
  #X connect 22 2 2 0;
  #X connect 22 2 18 0;
  #X connect 22 3 1 0;
  #X connect 22 3 19 0;
  #X connect 23 0 5 0;
  #X connect 23 0 6 0;
  #X restore 67 279 pd zeros;
  #N canvas 321 119 674 686 poles 0;
  #X obj 159 442 cpole~;
  #X obj 158 483 cpole~;
  #X obj 259 110 unpack 0 0 0 0 0;
  #X obj 158 540 outlet~;
  #X obj 259 59 inlet;
  #X obj 259 180 / 2;
  #N canvas 73 329 600 513 $f1*$f1 0;
  #X obj 53 71 inlet;
  #X obj 129 73 inlet;
  #X obj 53 368 outlet;
  #X obj 129 202 t b a;
  #X obj 53 266 +;
  #X obj 129 167 * 4;
  #X obj 53 191 t a a;
  #X obj 53 214 *;
  #X text 244 281 expr $f1*$f1 + 4*$f2;
  #X connect 0 0 6 0;
  #X connect 1 0 5 0;
  #X connect 3 0 4 0;
  #X connect 3 1 4 1;
  #X connect 4 0 2 0;
  #X connect 5 0 3 0;
  #X connect 6 0 7 0;
  #X connect 6 1 7 1;
  #X connect 7 0 4 0;
  #X restore 296 203 pd $f1*$f1 + 4*$f2;
  #X obj 296 229 t a a;
  #N canvas 73 329 600 513 sqrt(abs($f1)) 0;
  #X obj 53 71 inlet;
  #X obj 53 178 outlet;
  #X obj 53 127 sqrt;
  #X obj 53 105 abs;
  #X obj 53 153 * 0.5;
  #X text 242 282 expr sqrt(abs(x)) / 2;
  #X connect 0 0 3 0;
  #X connect 2 0 4 0;
  #X connect 3 0 2 0;
  #X connect 4 0 1 0;
  #X restore 328 262 pd sqrt(abs($f1)) / 2;
  #X obj 259 155 t a a;
  #N canvas 0 0 260 222 s 0;
  #X obj 66 145 outlet~;
  #X obj 66 21 inlet;
  #X obj 66 100 line~;
  #X obj 66 66 pack 0 10;
  #X obj 126 22 r \$0-interp;
  #X connect 1 0 3 0;
  #X connect 2 0 0 0;
  #X connect 3 0 2 0;
  #X connect 4 0 3 1;
  #X restore 333 410 pd s;
  #N canvas 0 0 260 222 s 0;
  #X obj 66 145 outlet~;
  #X obj 66 21 inlet;
  #X obj 66 100 line~;
  #X obj 66 66 pack 0 10;
  #X obj 126 22 r \$0-interp;
  #X connect 1 0 3 0;
  #X connect 2 0 0 0;
  #X connect 3 0 2 0;
  #X connect 4 0 3 1;
  #X restore 308 378 pd s;
  #N canvas 0 0 260 222 s 0;
  #X obj 66 145 outlet~;
  #X obj 66 21 inlet;
  #X obj 66 100 line~;
  #X obj 66 66 pack 0 10;
  #X obj 126 22 r \$0-interp;
  #X connect 1 0 3 0;
  #X connect 2 0 0 0;
  #X connect 3 0 2 0;
  #X connect 4 0 3 1;
  #X restore 283 354 pd s;
  #N canvas 0 0 260 222 s 0;
  #X obj 66 145 outlet~;
  #X obj 66 21 inlet;
  #X obj 66 100 line~;
  #X obj 66 66 pack 0 10;
  #X obj 126 22 r \$0-interp;
  #X connect 1 0 3 0;
  #X connect 2 0 0 0;
  #X connect 3 0 2 0;
  #X connect 4 0 3 1;
  #X restore 259 332 pd s;
  #X obj 159 60 inlet~;
  #X obj 209 60 inlet~;
  #X floatatom 450 362 5 0 0 0 - - -;
  #X floatatom 492 363 5 0 0 0 - - -;
  #X floatatom 360 360 5 0 0 0 - - -;
  #X floatatom 402 361 5 0 0 0 - - -;
  #N canvas 186 151 803 565 location 0;
  #X obj 58 51 inlet;
  #X obj 152 45 inlet;
  #X obj 276 38 inlet;
  #X obj 58 435 outlet;
  #X obj 174 431 outlet;
  #X obj 250 431 outlet;
  #X obj 304 431 outlet;
  #X obj 134 168 t a a;
  #X obj 134 193 >;
  #X obj 166 194 <;
  #X obj 134 243 *;
  #X text 164 247 ($f2 > 0)*$f3;
  #X obj 134 274 t a a;
  #X obj 58 406 +;
  #X obj 250 405 -;
  #X text 306 247 ($f2 < 0)*$f3;
  #X obj 272 246 *;
  #X obj 272 277 t a a;
  #X obj 258 156 t a a;
  #X obj 304 407 * -1;
  #X text 518 254 expr $f1 + ($f2 > 0)*$f3 \; ($f2 < 0)*$f3 \; $f1 -
  ($f2 > 0)*$f3 \; ($f2 < 0)*-1*$f3;
  #X obj 58 78 t a b b;
  #X obj 58 274 t a a;
  #X obj 134 144 f;
  #X obj 258 134 f;
  #X connect 0 0 21 0;
  #X connect 1 0 23 1;
  #X connect 2 0 24 1;
  #X connect 7 0 8 0;
  #X connect 7 1 9 0;
  #X connect 8 0 10 0;
  #X connect 9 0 16 0;
  #X connect 10 0 12 0;
  #X connect 12 0 13 1;
  #X connect 12 1 14 1;
  #X connect 13 0 3 0;
  #X connect 14 0 5 0;
  #X connect 16 0 17 0;
  #X connect 17 0 4 0;
  #X connect 17 1 19 0;
  #X connect 18 0 10 1;
  #X connect 18 1 16 1;
  #X connect 19 0 6 0;
  #X connect 21 0 22 0;
  #X connect 21 1 23 0;
  #X connect 21 2 24 0;
  #X connect 22 0 13 0;
  #X connect 22 1 14 0;
  #X connect 23 0 7 0;
  #X connect 24 0 18 0;
  #X restore 259 301 pd location;
  #X obj 67 393 r \$0-clear;
  #X connect 0 0 1 0;
  #X connect 0 1 1 1;
  #X connect 1 0 3 0;
  #X connect 2 0 9 0;
  #X connect 2 1 6 1;
  #X connect 4 0 2 0;
  #X connect 5 0 20 0;
  #X connect 6 0 7 0;
  #X connect 7 0 20 1;
  #X connect 7 1 8 0;
  #X connect 8 0 20 2;
  #X connect 9 0 5 0;
  #X connect 9 1 6 0;
  #X connect 10 0 1 3;
  #X connect 11 0 1 2;
  #X connect 12 0 0 3;
  #X connect 13 0 0 2;
  #X connect 14 0 0 0;
  #X connect 15 0 0 1;
  #X connect 20 0 13 0;
  #X connect 20 0 18 0;
  #X connect 20 1 12 0;
  #X connect 20 1 19 0;
  #X connect 20 2 11 0;
  #X connect 20 2 16 0;
  #X connect 20 3 10 0;
  #X connect 20 3 17 0;
  #X connect 21 0 0 0;
  #X connect 21 0 1 0;
  #X restore 66 321 pd poles;
  #X text 417 85 beequad-v3;
  #X text 112 61 A [biquad~] clone with czero/cpole;
  #X obj 67 232 *~;
  #N canvas 0 0 260 222 s 0;
  #X obj 66 145 outlet~;
  #X obj 66 21 inlet;
  #X obj 66 100 line~;
  #X obj 66 66 pack 0 10;
  #X obj 126 22 r \$0-interp;
  #X connect 1 0 3 0;
  #X connect 2 0 0 0;
  #X connect 3 0 2 0;
  #X connect 4 0 3 1;
  #X restore 100 233 pd s;
  #X msg 100 213 \$3;
  #X obj 260 264 s \$0-interp;
  #X obj 260 149 route interp clear;
  #X msg 321 216 clear;
  #X obj 321 239 s \$0-clear;
  #N canvas 172 83 586 377 LICENSE-GPL 0;
  #X text 57 88 This program is free software: you can redistribute it
  and/or modify it under the terms of the GNU General Public License
  as published by the Free Software Foundation \, either version 3 of
  the License \, or (at your option) any later version.;
  #X text 58 168 This program is distributed in the hope that it will
  be useful \, but WITHOUT ANY WARRANTY \; without even the implied warranty
  of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
  General Public License for more details.;
  #X text 57 261 You should have received a copy of the GNU General Public
  License along with this program. If not \, see <http://www.gnu.org/licenses/>.
  ;
  #X text 61 54 Copyright (C) 2009 \, Reality Jockey Ltd.;
  #X text 60 325 See the file LICENSE.txt for the full license text.
  ;
  #X restore 522 59 pd LICENSE-GPL;
  #X connect 0 0 7 0;
  #X connect 2 0 11 0;
  #X connect 3 0 4 0;
  #X connect 3 1 4 1;
  #X connect 4 0 1 0;
  #X connect 7 0 3 0;
  #X connect 8 0 7 1;
  #X connect 9 0 8 0;
  #X connect 11 0 10 0;
  #X connect 11 1 12 0;
  #X connect 11 2 9 0;
  #X connect 11 2 3 1;
  #X connect 11 2 4 2;
  #X connect 12 0 13 0;
  