Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
tree: 566ed0f0b6
Fetching contributors…

Cannot retrieve contributors at this time

435 lines (434 sloc) 10.523 kb
#N canvas 656 251 650 402 10;
#X obj 71 74 inlet~;
#X obj 72 335 outlet~;
#X obj 265 78 inlet;
#N canvas 392 102 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 6 47 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 72 247 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 71 289 pd poles;
#X text 528 45 beequad-v3;
#X text 117 29 A [biquad~] clone with czero/cpole;
#X obj 72 200 *~;
#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 105 201 pd s;
#X msg 105 181 \$3;
#X obj 265 232 s \$0-interp;
#X obj 265 117 route interp clear;
#X msg 326 184 clear;
#X obj 326 207 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 527 27 pd LICENSE-GPL;
#X text 441 155 Cloned from rjdj library \; Original is [e_beequad]
;
#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;
Jump to Line
Something went wrong with that request. Please try again.