Permalink
Browse files

improved portability and usability

  • Loading branch information...
1 parent 4c912ca commit c4529afa4ff3186723ea07943852ff98a8bbe91c @marcodsad committed Nov 3, 2011
View
50 anlz.scope~.pd
@@ -0,0 +1,50 @@
+#N canvas 643 151 609 485 10;
+#X obj 0 18 cnv 15 160 100 empty empty empty 20 12 0 14 -200717 -66577
+0;
+#N canvas 12 70 452 302 (subpatch) 0;
+#X array \$0-tabvue 160 float 0;
+#X coords 0 1 159 -1 160 100 1;
+#X restore 0 18 graph;
+#X obj 398 62 switch~;
+#X obj 494 13 inlet on/off;
+#X obj 494 36 == 1;
+#X obj 398 38 == 1;
+#X obj 398 12 r \$0-on-off;
+#X obj 494 59 s \$0-r-on-off;
+#X obj 0 1 cnv 15 159 17 empty empty Scope 3 9 0 8 -1 -262144 0;
+#X obj 229 78 inlet~;
+#X obj 229 111 pack~;
+#X obj 229 158 repack 16;
+#X obj 269 223 / 16;
+#X obj 269 250 repack 160;
+#X obj 269 276 list prepend 0;
+#X obj 347 88 int;
+#X obj 347 64 / 1.6;
+#X obj 112 2 nbx 5 14 2 1e+37 0 0 empty empty empty 0 -6 0 8 -1 -262144
+-1 60 256;
+#X obj 112 -52 loadbang;
+#X obj 347 113 max 2;
+#X obj 92 2 tgl 15 0 \$0-s-on-off \$0-r-on-off empty 17 7 0 10 -262144
+-1 -1 0 1;
+#X obj 112 -27 init 60;
+#X obj 229 185 flow.sum;
+#X obj 269 302 s \$0-tabvue;
+#X connect 3 0 4 0;
+#X connect 4 0 7 0;
+#X connect 5 0 2 0;
+#X connect 6 0 5 0;
+#X connect 9 0 10 0;
+#X connect 10 0 11 0;
+#X connect 11 0 22 0;
+#X connect 12 0 13 0;
+#X connect 13 0 14 0;
+#X connect 14 0 23 0;
+#X connect 15 0 19 0;
+#X connect 16 0 15 0;
+#X connect 17 0 16 0;
+#X connect 18 0 21 0;
+#X connect 19 0 11 1;
+#X connect 19 0 12 1;
+#X connect 21 0 17 0;
+#X connect 22 0 12 0;
+#X coords 0 0 1 1 160 118 1 0 0;
View
434 efx.beequad~.pd
@@ -0,0 +1,434 @@
+#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;
View
103 efx.gui.grunger~.pd
@@ -1,7 +1,6 @@
-#N canvas 638 193 747 446 10;
-#X declare -lib pdmtl;
+#N canvas 644 216 747 446 10;
#X obj -126 77 inlet~;
-#N canvas 490 196 610 557 dsp 0;
+#N canvas 502 242 610 557 dsp 0;
#X obj 46 92 inlet~;
#X obj 46 445 outlet~;
#X obj 410 102 inlet;
@@ -14,14 +13,11 @@
#X msg 322 136 0.3;
#X obj 290 112 sel 0;
#X obj 249 224 mtof;
-#X obj 46 301 e_beequad;
-#X obj 249 245 u_bandpass2q 1000 2;
-#X obj 70 322 e_beequad;
#X obj 156 477 outlet~;
#X obj 102 92 inlet~;
#X obj 291 90 r \$0-dist.onoff;
#X obj 249 201 r \$0-bp.freq;
-#X obj 360 223 r \$0-bp.q;
+#X obj 384 217 r \$0-bp.q;
#X obj 156 329 r \$0-pitch;
#X obj 156 360 t f f;
#X obj 47 278 rev3~ 99 90;
@@ -34,42 +30,45 @@
#X obj 47 143 fx.distortion.fuzz~;
#X obj 234 42 init 2;
#X obj 177 8 init 0.8;
-#X connect 0 0 29 0;
+#X obj 70 322 efx.beequad~;
+#X obj 46 301 efx.beequad~;
+#X obj 249 244 utils.bandpass2q 1000 2;
+#X connect 0 0 26 0;
#X connect 2 0 3 0;
#X connect 4 0 5 0;
#X connect 5 0 3 0;
-#X connect 6 0 22 0;
-#X connect 7 0 22 1;
+#X connect 6 0 19 0;
+#X connect 7 0 19 1;
#X connect 8 0 6 1;
#X connect 8 0 7 1;
#X connect 9 0 6 1;
#X connect 9 0 7 1;
#X connect 10 0 8 0;
#X connect 10 1 9 0;
-#X connect 11 0 13 0;
-#X connect 12 0 24 0;
-#X connect 13 0 12 1;
-#X connect 13 0 14 1;
-#X connect 14 0 23 0;
-#X connect 16 0 29 1;
-#X connect 17 0 10 0;
-#X connect 18 0 11 0;
-#X connect 19 0 13 1;
-#X connect 20 0 21 0;
-#X connect 21 0 23 1;
-#X connect 21 1 24 1;
-#X connect 22 0 12 0;
-#X connect 22 1 14 0;
-#X connect 23 1 15 0;
-#X connect 24 0 1 0;
-#X connect 25 0 29 2;
-#X connect 26 0 29 2;
-#X connect 27 0 26 0;
-#X connect 28 0 25 0;
-#X connect 29 0 6 0;
-#X connect 29 1 7 0;
-#X connect 30 0 26 0;
-#X connect 31 0 25 0;
+#X connect 11 0 31 0;
+#X connect 13 0 26 1;
+#X connect 14 0 10 0;
+#X connect 15 0 11 0;
+#X connect 16 0 31 1;
+#X connect 17 0 18 0;
+#X connect 18 0 20 1;
+#X connect 18 1 21 1;
+#X connect 19 0 30 0;
+#X connect 19 1 29 0;
+#X connect 20 1 12 0;
+#X connect 21 0 1 0;
+#X connect 22 0 26 2;
+#X connect 23 0 26 2;
+#X connect 24 0 23 0;
+#X connect 25 0 22 0;
+#X connect 26 0 6 0;
+#X connect 26 1 7 0;
+#X connect 27 0 23 0;
+#X connect 28 0 22 0;
+#X connect 29 0 20 0;
+#X connect 30 0 21 0;
+#X connect 31 0 29 1;
+#X connect 31 0 30 1;
#X restore -62 160 pd dsp;
#X obj 13 160 r \$0-mix;
#X obj 338 112 s \$0-bp.freq;
@@ -78,13 +77,13 @@
#X obj 101 185 cnv 15 155 15 \$0-record empty empty 20 12 0 14 -1 -228856
0;
#X obj 102 185 tgl 15 0 \$0-start.rnd empty empty 17 7 0 10 -191407
--1 -1 110.323 110.323;
+-1 -1 0 110.323;
#X obj 340 173 s \$0-mix;
#X obj 339 152 s \$0-pitch;
#X obj -128 230 *~ 1.2;
#X obj -127 266 outlet~;
-#X obj -66 265 outlet~;
-#X obj -66 230 *~ 1.2;
+#X obj -71 265 outlet~;
+#X obj -71 230 *~ 1.2;
#X obj 185 28 inlet filt;
#X obj 310 28 inlet pitch;
#X obj 255 29 inlet q;
@@ -106,19 +105,17 @@
#X obj 272 249 xsssad \$1/gru.q.filt;
#X obj 272 273 xsssad \$1/gru.pitch;
#X obj 272 297 xsssad \$1/gru.mix;
-#X obj 273 321 xsssad \$1/gru.mix;
#X obj -93 97 inlet~;
-#X floatatom 3 228 5 0 0 0 - - -;
-#X floatatom 51 229 5 0 0 0 - - -;
-#X obj 265 -29 import pdmtl;
#X obj -127 192 mix.xfade.curve.stereo~ 1 -1;
+#X obj 273 321 xsssad \$1/dist.switch;
+#X obj 38 223 mix.switchoglitch~;
#X connect 0 0 1 0;
-#X connect 0 0 39 0;
-#X connect 1 0 39 2;
-#X connect 1 1 39 3;
-#X connect 2 0 39 4;
+#X connect 0 0 35 0;
+#X connect 1 0 35 2;
+#X connect 1 1 35 3;
+#X connect 2 0 35 4;
#X connect 7 0 5 0;
-#X connect 7 0 34 1;
+#X connect 7 0 36 1;
#X connect 10 0 11 0;
#X connect 13 0 12 0;
#X connect 14 0 21 0;
@@ -144,11 +141,11 @@
#X connect 31 0 26 0;
#X connect 32 0 27 0;
#X connect 33 0 28 0;
-#X connect 34 0 7 0;
-#X connect 35 0 1 1;
-#X connect 35 0 39 1;
-#X connect 39 0 10 0;
-#X connect 39 1 13 0;
-#X connect 39 2 36 0;
-#X connect 39 3 37 0;
+#X connect 34 0 1 1;
+#X connect 34 0 35 1;
+#X connect 35 0 10 0;
+#X connect 35 1 13 0;
+#X connect 35 3 37 0;
+#X connect 36 0 7 0;
+#X connect 37 0 1 2;
#X coords 0 -1 1 1 157 101 2 100 100;
View
6 flow.sum.pd
@@ -0,0 +1,6 @@
+#N canvas 307 148 450 300 10;
+#X obj 142 69 inlet;
+#X obj 142 173 outlet;
+#X obj 142 119 sum;
+#X connect 0 0 2 0;
+#X connect 2 0 1 0;
View
10 gui.nbx.pd
@@ -1,5 +1,5 @@
-#N canvas 860 557 349 285 10;
-#N canvas 866 349 259 226 make.label.value 0;
+#N canvas 872 557 349 285 10;
+#N canvas 872 372 259 226 make.label.value 0;
#X obj 62 40 inlet;
#X obj 62 159 s \$0-label;
#X msg 62 130 label \$1;
@@ -11,9 +11,9 @@
#X connect 4 0 2 0;
#X restore 128 156 pd make.label.value;
#X obj 101 101 nbx 2 14 -1e+37 1e+37 0 0 empty empty empty 0 -8 0 10
--262144 -1 -1 2.88 256;
-#X obj 103 100 hsl 30 15 0 127 0 0 gdsfaf \$0-label 2.88 0 8 0 8 -1
--1 -262144 2 1;
+-262144 -1 -1 1 256;
+#X obj 103 100 hsl 30 15 0 127 0 0 gdsfaf \$0-label 1.00 0 8 0 8 -1
+-1 -262144 0 1;
#X obj 101 129 t f f;
#X obj 101 179 outlet value;
#X obj 101 48 inlet;
View
4 gui.spigot.pd
@@ -1,4 +1,4 @@
-#N canvas 699 340 450 300 10;
+#N canvas 705 363 450 300 10;
#X obj 42 173 spigot;
#X floatatom 82 147 1 0 1 0 - - -;
#X obj 42 34 inlet;
@@ -10,7 +10,7 @@
#X text 275 107 outlet 1: data stream;
#X text 276 123 outlet 2: value 1/0;
#X obj 134 179 outlet;
-#X obj 223 168 sssad \$1/go.onoff;
+#X obj 223 168 xsssad \$1/go.onoff;
#X connect 0 0 3 0;
#X connect 1 0 0 1;
#X connect 2 0 0 0;
View
8 initz.delay.pd
@@ -0,0 +1,8 @@
+#N canvas 841 286 450 300 10;
+#X obj 72 38 loadbang;
+#X obj 72 95 \$1;
+#X obj 72 119 outlet;
+#X obj 72 67 del \$2;
+#X connect 0 0 3 0;
+#X connect 1 0 2 0;
+#X connect 3 0 1 0;
View
26 midi.send.pd
@@ -1,4 +1,4 @@
-#N canvas 672 225 487 463 10;
+#N canvas 690 294 487 463 10;
#X obj 100 100 cnv 15 125 20 empty empty empty 20 12 0 14 -133153 -66577
0;
#X obj 203 103 tgl 15 0 empty empty empty 17 12 0 10 -262144 -1 -1
@@ -74,7 +74,7 @@
#X obj 49 164 inlet value;
#X obj 92 30 t b;
#X obj 242 207 s \$0-label.reset;
-#X obj 168 103 hsl 30 15 0 127 0 0 gdsfaf \$0-label -127 0 8 0 8 -128992
+#X obj 168 103 hsl 30 15 0 127 0 0 gdsfaf \$0-label 0 0 8 0 8 -128992
-128992 -262144 0 1;
#X obj 177 226 spigot 0;
#X obj 278 296 pipe s 700;
@@ -89,22 +89,22 @@
#X obj 203 152 t f f f;
#X obj 330 250 r \$0-midi.ch;
#X obj 242 183 sel 0;
-#N canvas 261 440 375 402 output.make.label.value 0;
+#N canvas 273 440 375 402 output.make.label.value 0;
#X obj 50 21 inlet;
#X obj 50 175 makefilename %f;
-#X msg 50 242 label \$1;
-#X obj 50 200 stripfilename -7;
-#X obj 50 266 s \$0-label;
+#X msg 50 252 label \$1;
+#X obj 50 276 s \$0-label;
#X obj 77 128 outlet value;
#X obj 50 77 t f f;
#X obj 50 55 scale.lin 127 0 1;
-#X connect 0 0 7 0;
-#X connect 1 0 3 0;
-#X connect 2 0 4 0;
-#X connect 3 0 2 0;
-#X connect 6 0 1 0;
-#X connect 6 1 5 0;
-#X connect 7 0 6 0;
+#X obj 50 200 stripfilename -7;
+#X connect 0 0 6 0;
+#X connect 1 0 7 0;
+#X connect 2 0 3 0;
+#X connect 5 0 1 0;
+#X connect 5 1 4 0;
+#X connect 6 0 5 0;
+#X connect 7 0 2 0;
#X restore 49 185 pd output.make.label.value;
#X obj 203 10 xsssad \$1/paramoff;
#X obj 278 272 xsssad \$1/paramout;
View
40 mix.aux.stereo~.pd
@@ -1,12 +1,12 @@
-#N canvas 244 356 450 486 10;
+#N canvas 513 186 450 486 10;
#X obj 102 100 nbx 3 15 0 100 0 0 empty empty empty 0 -8 0 8 -1 -262144
-1 0 256;
-#X obj 145 269 inlet~;
-#X obj 247 271 inlet~;
-#X obj 143 328 s~ \$1_l;
-#X obj 248 325 s~ \$1_r;
-#X obj 144 297 *~;
-#X obj 248 298 *~;
+#X obj 140 299 inlet~;
+#X obj 242 301 inlet~;
+#X obj 138 358 s~ \$1_l;
+#X obj 243 355 s~ \$1_r;
+#X obj 139 327 *~;
+#X obj 243 328 *~;
#X obj 103 100 hsl 30 15 0 127 0 0 gdsfaf \$0-amount 0 0 8 0 8 -128992
-128992 -262144 0 1;
#N canvas 619 248 339 236 label 0;
@@ -23,14 +23,16 @@
#X connect 3 0 5 0;
#X connect 4 0 6 0;
#X connect 6 0 2 0;
-#X restore 121 148 pd label;
-#X obj 160 232 utils.zipper~;
-#X obj 262 232 utils.zipper~;
-#X obj 141 180 scale.lin 1 0 100;
-#X obj 141 201 t f f f;
-#X obj 102 122 t f f f;
+#X restore 119 178 pd label;
+#X obj 155 262 utils.zipper~;
+#X obj 257 262 utils.zipper~;
+#X obj 136 210 scale.lin 1 0 100;
+#X obj 136 231 t f f f;
#X obj -21 122 xsssad \$1/wet;
-#X connect 0 0 13 0;
+#X obj 182 156 mix.switchoglitch~;
+#X obj 102 122 t f f f f;
+#X obj 182 179 switch~;
+#X connect 0 0 15 0;
#X connect 1 0 5 0;
#X connect 2 0 6 0;
#X connect 5 0 3 0;
@@ -40,8 +42,10 @@
#X connect 11 0 12 0;
#X connect 12 1 9 0;
#X connect 12 2 10 0;
-#X connect 13 0 14 1;
-#X connect 13 1 8 0;
-#X connect 13 2 11 0;
-#X connect 14 0 13 0;
+#X connect 13 0 15 0;
+#X connect 14 0 16 0;
+#X connect 15 0 13 1;
+#X connect 15 1 8 0;
+#X connect 15 2 11 0;
+#X connect 15 3 14 0;
#X coords 0 -1 1 1 35 15 2 100 100;
View
24 mix.ch.stereo~.pd
@@ -1,4 +1,4 @@
-#N canvas 226 63 441 779 10;
+#N canvas 575 63 529 779 10;
#X obj 20 503 *~;
#X obj 196 83 cnv 15 45 119 empty empty empty 20 12 0 14 -133153 -262144
0;
@@ -8,16 +8,16 @@
-24967 -1 0 1;
#X obj 220 91 vsl 15 100 0 1 0 0 szgzfsg dfgdg empty 0 -9 0 10 -158119
-162280 -1 0 1;
-#X obj 211 198 cnv 6 6 1 empty \$0-right empty 20 12 0 14 -24198 -24198
+#X obj 211 199 cnv 6 6 1 empty \$0-right empty 20 12 0 14 -24198 -24198
0;
-#X obj 201 198 cnv 6 6 1 empty \$0-left empty 20 12 0 14 -24198 -24198
+#X obj 201 199 cnv 6 6 1 empty \$0-left empty 20 12 0 14 -24198 -24198
0;
#X obj 21 419 inlet~ l;
#X obj 111 418 inlet~ r;
#X obj 112 505 *~;
#X obj 20 655 outlet~ l;
#X obj 112 656 outlet~ r;
-#X obj 220 194 vsl 15 3 0 1 0 0 szgzfsg \$0-vol empty 0 -9 0 10 -217089
+#X obj 220 194 vsl 15 3 0 1 0 0 szgzfsg \$0-vol empty 0 -9 0 10 -196621
-217090 -1 0 1;
#N canvas 792 310 375 479 size 0;
#X obj 88 35 inlet;
@@ -53,8 +53,8 @@
#X obj 308 67 s \$0-dsp;
#X obj 220 425 r \$0-dsp;
#X obj 281 40 t f f;
-#X obj 318 104 r \$0-dsp;
-#X obj 308 176 s \$0-dsp;
+#X obj 318 94 r \$0-dsp;
+#X obj 308 196 s \$0-dsp;
#X obj 220 450 t f f;
#X obj 247 281 s \$0-dsp;
#X obj 220 222 t f f;
@@ -63,7 +63,7 @@
#X msg 292 232 1;
#X obj 81 -17 r \$1/vol;
#X obj 81 7 scale.lin 1 0 127;
-#X obj 281 153 t f f;
+#X obj 281 173 t f f;
#N canvas 385 100 627 491 animation 0;
#X obj 282 42 inlet;
#X obj 56 41 inlet~;
@@ -208,7 +208,10 @@
#X connect 17 1 12 0;
#X connect 17 2 10 0;
#X restore 178 558 pd animation;
-#X obj 281 128 xsssad \$1/vol;
+#X obj 281 148 xsssad \$1/vol;
+#X obj 388 149 mix.switchoglitch~;
+#X obj 318 119 t f f;
+#X obj 388 171 switch~;
#X connect 0 0 10 0;
#X connect 0 0 36 0;
#X connect 4 0 29 0;
@@ -226,7 +229,7 @@
#X connect 23 0 27 0;
#X connect 24 0 4 0;
#X connect 24 1 22 0;
-#X connect 25 0 37 1;
+#X connect 25 0 39 0;
#X connect 27 0 21 0;
#X connect 27 1 36 2;
#X connect 29 0 13 0;
@@ -240,4 +243,7 @@
#X connect 35 0 4 0;
#X connect 35 1 26 0;
#X connect 37 0 35 0;
+#X connect 38 0 40 0;
+#X connect 39 0 37 1;
+#X connect 39 1 38 0;
#X coords 0 -1 1 1 45 126 2 196 83;
View
0 mix.switchoglitch.pd → mix.switchoglitch~.pd
File renamed without changes.
View
8 mix.xfade.curve.stereo~.pd
@@ -1,4 +1,4 @@
-#N canvas 402 71 943 680 10;
+#N canvas 408 94 943 680 10;
#X obj 59 577 +~;
#X obj 508 245 -;
#X msg 508 221 1 \$1;
@@ -18,7 +18,7 @@
#X connect 2 0 5 0;
#X connect 3 0 0 0;
#X connect 4 0 0 1;
-#X restore 512 269 pd pow;
+#X restore 508 268 pd pow;
#N canvas 0 0 454 304 pow 0;
#X obj 125 174 pow 2;
#X msg 127 216 1 \$1;
@@ -33,7 +33,7 @@
#X connect 4 0 0 1;
#X restore 481 348 pd pow;
#X obj 481 372 t f f;
-#X obj 492 289 t f f;
+#X obj 508 294 t f f;
#X obj 481 89 f \$2;
#X obj 645 66 loadbang;
#X obj 645 95 f \$1;
@@ -43,7 +43,7 @@
#X obj 744 152 sel 0;
#X obj 700 128 moses 0;
#X msg 700 179 1;
-#X obj 720 223 f;
+#X obj 733 214 f;
#X obj 132 473 line~;
#X msg 132 448 \$1 5;
#X obj 19 523 *~;
View
45 tab.write.next.pd
@@ -0,0 +1,45 @@
+#N canvas 536 125 622 616 10;
+#X obj 156 238 f;
+#X obj 232 388 + 1;
+#X msg 382 168 0;
+#X obj 382 73 inlet;
+#X obj 129 69 inlet;
+#X obj 442 224 loadbang;
+#X obj 208 527 outlet;
+#X text 259 528 current index;
+#X obj 156 411 t f f f;
+#X obj 129 100 route float bang;
+#X obj 382 100 route bang;
+#X obj 129 197 t f b;
+#X obj 156 326 mod 100;
+#X obj 222 251 arraysize;
+#X obj 129 523 tabwrite;
+#X obj 442 253 dollarg;
+#X msg 442 279 set \$1;
+#X obj 222 149 trigger b a a;
+#X text 322 413 Borrowed from PdMtl Abstractions \; original is [table.write.next]
+\; see http://wiki.dataflow.ws/PdMtlAbstractions;
+#X connect 0 0 12 0;
+#X connect 1 0 0 1;
+#X connect 2 0 0 1;
+#X connect 3 0 10 0;
+#X connect 4 0 9 0;
+#X connect 5 0 15 0;
+#X connect 8 0 6 0;
+#X connect 8 1 14 1;
+#X connect 8 2 1 0;
+#X connect 9 0 11 0;
+#X connect 9 1 2 0;
+#X connect 9 2 17 0;
+#X connect 10 0 2 0;
+#X connect 10 1 0 1;
+#X connect 11 0 14 0;
+#X connect 11 1 0 0;
+#X connect 12 0 8 0;
+#X connect 13 0 12 1;
+#X connect 15 0 16 0;
+#X connect 16 0 14 0;
+#X connect 16 0 17 0;
+#X connect 17 0 13 0;
+#X connect 17 1 13 0;
+#X connect 17 2 14 0;
View
442 utils.bandpass2q.pd
@@ -0,0 +1,442 @@
+#N canvas 6 47 965 639 10;
+#N canvas 0 0 786 513 b0 0;
+#X obj 101 245 outlet;
+#X obj 424 96 r \$0-Q;
+#X obj 320 95 r \$0-alpha;
+#X obj 69 92 r \$0-w;
+#X obj 232 94 r \$0-wsin;
+#X obj 131 94 r \$0-wcos;
+#X text 305 328 b0 = alpha;
+#X connect 2 0 0 0;
+#X restore 177 454 pd b0;
+#N canvas 0 0 786 513 b1 0;
+#X obj 101 245 outlet;
+#X obj 424 96 r \$0-Q;
+#X obj 320 95 r \$0-alpha;
+#X obj 69 92 r \$0-w;
+#X obj 232 94 r \$0-wsin;
+#X obj 131 94 r \$0-wcos;
+#X msg 69 174 0;
+#X text 213 190 b1 = 0;
+#X connect 3 0 6 0;
+#X connect 6 0 0 0;
+#X restore 197 483 pd b1;
+#N canvas 0 0 786 513 b2 0;
+#X obj 101 245 outlet;
+#X obj 424 96 r \$0-Q;
+#X obj 320 95 r \$0-alpha;
+#X obj 69 92 r \$0-w;
+#X obj 232 94 r \$0-wsin;
+#X obj 131 94 r \$0-wcos;
+#X text 299 188 b2 = -alpha;
+#X obj 232 186 * -1;
+#X connect 2 0 7 0;
+#X connect 7 0 0 0;
+#X restore 218 507 pd b2;
+#N canvas 242 112 786 513 a0 0;
+#X obj 219 280 outlet;
+#X obj 424 96 r \$0-Q;
+#X obj 320 95 r \$0-alpha;
+#X obj 69 92 r \$0-w;
+#X obj 232 94 r \$0-wsin;
+#X obj 320 138 + 1;
+#X obj 131 94 r \$0-wcos;
+#X text 396 222 a0 = 1 + alpha;
+#X connect 2 0 5 0;
+#X connect 5 0 0 0;
+#X restore 115 387 pd a0;
+#N canvas 0 0 786 513 a1 0;
+#X obj 101 245 outlet;
+#X obj 424 96 r \$0-Q;
+#X obj 320 95 r \$0-alpha;
+#X obj 69 92 r \$0-w;
+#X obj 232 94 r \$0-wsin;
+#X obj 131 128 * -2;
+#X obj 131 94 r \$0-wcos;
+#X text 318 260 a1 = -2*cos(w0);
+#X connect 5 0 0 0;
+#X connect 6 0 5 0;
+#X restore 136 408 pd a1;
+#N canvas 6 47 786 513 a2 0;
+#X obj 101 245 outlet;
+#X obj 424 96 r \$0-Q;
+#X obj 320 95 r \$0-alpha;
+#X obj 69 92 r \$0-w;
+#X obj 232 94 r \$0-wsin;
+#X msg 320 140 1 \$1;
+#X obj 320 164 -;
+#X obj 131 94 r \$0-wcos;
+#X text 386 260 a2 = 1 - alpha;
+#X connect 2 0 5 0;
+#X connect 5 0 6 0;
+#X connect 6 0 0 0;
+#X restore 156 429 pd a2;
+#N canvas 0 0 1060 735 biquad6 0;
+#X obj 351 302 pack 0 0 0 0 0;
+#X msg 351 327 fb1 fb2 ff1 ff2 ff3;
+#X msg 625 327 p p z z z;
+#X text 561 430 H = -----------------------------;
+#X text 590 414 ff1 + ff2*z^(-1) + ff3*z^(-2);
+#X text 591 450 1 - fb1*z^(-1) - fb2*z^(-2);
+#X text 560 488 Audio-Cookbook:;
+#X text 592 557 1 + (-a1/a0)*z^(-1) + (-a2/a0)*z^(-2);
+#X text 562 537 H = -----------------------------------------;
+#X obj 333 103 inlet;
+#X obj 390 103 inlet;
+#X obj 449 103 inlet;
+#X obj 511 103 inlet;
+#X obj 572 103 inlet;
+#X obj 630 103 inlet;
+#X text 333 80 a0;
+#X text 390 80 a1;
+#X text 449 80 a2;
+#X text 511 80 b0;
+#X text 572 80 b1;
+#X text 630 80 b2;
+#X text 591 524 (b0/a0) + (b1/a0)*z^(-1) + (b2/a0)*z^(-2);
+#N canvas 0 0 450 300 /a0 0;
+#X obj 88 49 inlet;
+#X obj 88 164 outlet;
+#X obj 88 137 / 1;
+#X obj 127 69 inlet;
+#X obj 88 106 swap 1;
+#X connect 0 0 4 0;
+#X connect 2 0 1 0;
+#X connect 3 0 4 1;
+#X connect 4 0 2 0;
+#X connect 4 1 2 1;
+#X restore 591 206 pd /a0;
+#X obj 116 107 inlet;
+#X obj 116 226 list;
+#X obj 141 259 print biquad;
+#X obj 116 201 b;
+#X obj 116 289 outlet;
+#X obj 116 154 route print bang;
+#X obj 315 157 f;
+#N canvas 0 0 450 300 /a0 0;
+#X obj 88 49 inlet;
+#X obj 88 164 outlet;
+#X obj 88 137 / 1;
+#X obj 127 69 inlet;
+#X obj 88 106 swap 1;
+#X connect 0 0 4 0;
+#X connect 2 0 1 0;
+#X connect 3 0 4 1;
+#X connect 4 0 2 0;
+#X connect 4 1 2 1;
+#X restore 472 206 pd /a0;
+#N canvas 0 0 450 300 /a0 0;
+#X obj 88 49 inlet;
+#X obj 88 164 outlet;
+#X obj 88 137 / 1;
+#X obj 127 69 inlet;
+#X obj 88 106 swap 1;
+#X connect 0 0 4 0;
+#X connect 2 0 1 0;
+#X connect 3 0 4 1;
+#X connect 4 0 2 0;
+#X connect 4 1 2 1;
+#X restore 533 206 pd /a0;
+#N canvas 0 0 450 300 /a0 0;
+#X obj 88 49 inlet;
+#X obj 88 164 outlet;
+#X obj 88 137 / 1;
+#X obj 127 69 inlet;
+#X obj 88 106 swap 1;
+#X connect 0 0 4 0;
+#X connect 2 0 1 0;
+#X connect 3 0 4 1;
+#X connect 4 0 2 0;
+#X connect 4 1 2 1;
+#X restore 410 206 pd /a0;
+#N canvas 0 0 450 300 /a0 0;
+#X obj 88 49 inlet;
+#X obj 88 164 outlet;
+#X obj 88 137 / 1;
+#X obj 127 69 inlet;
+#X obj 88 106 swap 1;
+#X connect 0 0 4 0;
+#X connect 2 0 1 0;
+#X connect 3 0 4 1;
+#X connect 4 0 2 0;
+#X connect 4 1 2 1;
+#X restore 351 206 pd /a0;
+#X obj 351 157 t a a a a a;
+#X obj 283 132 t b b;
+#X text 329 46 all coefficient inlets are cold inlets. Activate them
+with a bang into first inlet.;
+#X obj 351 247 * -1;
+#X obj 410 247 * -1;
+#X connect 0 0 24 1;
+#X connect 9 0 29 1;
+#X connect 10 0 33 1;
+#X connect 11 0 32 1;
+#X connect 12 0 30 1;
+#X connect 13 0 31 1;
+#X connect 14 0 22 1;
+#X connect 22 0 0 4;
+#X connect 23 0 28 0;
+#X connect 24 0 27 0;
+#X connect 26 0 24 0;
+#X connect 28 0 26 0;
+#X connect 28 1 35 0;
+#X connect 29 0 34 0;
+#X connect 30 0 0 2;
+#X connect 31 0 0 3;
+#X connect 32 0 38 0;
+#X connect 33 0 37 0;
+#X connect 34 0 33 0;
+#X connect 34 1 32 0;
+#X connect 34 2 30 0;
+#X connect 34 3 31 0;
+#X connect 34 4 22 0;
+#X connect 35 0 26 0;
+#X connect 35 1 29 0;
+#X connect 37 0 0 0;
+#X connect 38 0 0 1;
+#X restore 95 551 pd biquad6 -------;
+#X obj 678 272 hradio 15 1 0 2 empty empty bw/Q 0 -8 1 10 -262144 -1
+-1 0;
+#X floatatom 504 240 5 0 0 2 BW - -;
+#X floatatom 612 266 5 0 0 2 Q - -;
+#X floatatom 447 267 5 0 0 0 freq - -;
+#X text 727 266 <(default: BW);
+#X obj 612 286 t b a;
+#X obj 503 259 t b a;
+#X obj 678 295 t b a;
+#X obj 535 292 * 0.01;
+#X obj 447 352 f;
+#X obj 95 589 outlet;
+#X obj 94 95 inlet;
+#X obj 373 49 loadbang;
+#X obj 373 146 f \$1;
+#X obj 405 113 f \$2;
+#X obj 373 75 t b b b;
+#X obj 157 95 inlet;
+#X text 92 69 freq;
+#N canvas 6 47 1185 531 compute-stuff 0;
+#X obj 947 343 / 1;
+#X obj 965 293 * 2;
+#X obj 524 145 s \$0-Q;
+#X obj 142 159 s \$0-w;
+#X obj 947 386 s \$0-alpha;
+#X obj 965 270 r \$0-Q;
+#X obj 205 316 s \$0-wsin;
+#X obj 947 238 r \$0-wsin;
+#X obj 205 294 sin;
+#X obj 118 295 cos;
+#X obj 118 229 r \$0-w;
+#X obj 205 232 r \$0-w;
+#X obj 635 150 / 2;
+#X obj 617 174 *;
+#X obj 617 238 *;
+#X obj 647 184 r \$0-w;
+#X obj 653 244 r \$0-wsin;
+#X obj 617 294 /;
+#N canvas 217 313 450 300 sinh 0;
+#X obj 88 37 inlet;
+#X obj 88 87 t a a;
+#X obj 88 223 outlet;
+#X obj 120 116 * -1;
+#X obj 120 136 exp;
+#X obj 88 136 exp;
+#X obj 88 174 -;
+#X obj 88 199 * 0.5;
+#X text 313 133 2;
+#X text 272 105 exp(x) - exp(-x);
+#X text 223 117 sinh = ----------------;
+#X obj 88 64 f;
+#X connect 0 0 11 0;
+#X connect 1 0 5 0;
+#X connect 1 1 3 0;
+#X connect 3 0 4 0;
+#X connect 4 0 6 1;
+#X connect 5 0 6 0;
+#X connect 6 0 7 0;
+#X connect 7 0 2 0;
+#X connect 11 0 1 0;
+#X restore 617 335 pd sinh;
+#X obj 617 369 *;
+#X obj 617 65 r \$0-BW;
+#X obj 617 422 s \$0-alpha;
+#X obj 947 365 spigot 0;
+#X obj 1000 341 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1
+0 1;
+#X obj 670 374 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
+1;
+#X obj 635 130 log;
+#X msg 635 109 2;
+#X obj 635 87 loadbang;
+#X obj 439 91 select 0;
+#X obj 397 91 moses;
+#X obj 273 101 select 0;
+#X obj 231 101 moses;
+#X obj 492 119 t b a;
+#X obj 326 125 t b a;
+#X obj 358 147 s \$0-BW;
+#X obj 118 317 s \$0-wcos;
+#N canvas 6 47 783 567 hz2rad 0;
+#X obj 194 113 samplerate~;
+#X obj 194 71 loadbang;
+#X obj 194 185 atan;
+#X msg 194 160 1;
+#X text 393 60 w = 2 * pi * f / SR;
+#X obj 194 207 * 8;
+#X obj 194 137 t b a;
+#X msg 205 90 bang;
+#X obj 194 230 / 44100;
+#X text 260 232 2 * pi / SR;
+#X obj 119 269 *;
+#X obj 119 35 inlet;
+#X obj 119 298 outlet;
+#X text 175 300 w(rad);
+#X text 167 35 freq(Hz);
+#X obj 285 35 r pd;
+#X obj 285 55 route dsp;
+#X obj 285 78 select 1;
+#X connect 0 0 6 0;
+#X connect 1 0 0 0;
+#X connect 2 0 5 0;
+#X connect 3 0 2 0;
+#X connect 5 0 8 0;
+#X connect 6 0 3 0;
+#X connect 6 1 8 1;
+#X connect 7 0 0 0;
+#X connect 8 0 10 1;
+#X connect 10 0 12 0;
+#X connect 11 0 10 0;
+#X connect 15 0 16 0;
+#X connect 16 0 17 0;
+#X connect 17 0 0 0;
+#X restore 110 111 pd hz2rad;
+#X obj 110 77 inlet;
+#X text 108 56 frequency;
+#X obj 397 68 inlet;
+#X text 396 49 Q;
+#X obj 231 78 inlet;
+#X text 227 57 BW;
+#X obj 786 74 inlet;
+#X obj 786 102 select 0 1;
+#X obj 786 169 unpack 0 0;
+#X msg 786 136 1 0;
+#X msg 819 136 0 1;
+#X text 785 43 Bandwith or Q;
+#X obj 617 398 spigot 1;
+#X floatatom 552 459 8 0 0 0 - - -;
+#X text 721 452 alpha = sin(w0)*sinh( ln(2)/2 * BW * w0/sin(w0) ) (case:
+BW);
+#X obj 205 267 spigot 1;
+#X obj 110 132 t b a;
+#X obj 965 317 t b a;
+#X obj 653 267 t b a a;
+#X obj 647 204 t b a;
+#X obj 118 266 spigot 1;
+#X connect 0 0 22 0;
+#X connect 1 0 54 0;
+#X connect 5 0 1 0;
+#X connect 7 0 0 0;
+#X connect 8 0 6 0;
+#X connect 9 0 35 0;
+#X connect 10 0 57 0;
+#X connect 11 0 52 0;
+#X connect 12 0 13 1;
+#X connect 13 0 14 0;
+#X connect 14 0 17 0;
+#X connect 15 0 56 0;
+#X connect 16 0 55 0;
+#X connect 17 0 18 0;
+#X connect 18 0 19 0;
+#X connect 19 0 49 0;
+#X connect 20 0 13 0;
+#X connect 22 0 4 0;
+#X connect 23 0 22 1;
+#X connect 24 0 49 1;
+#X connect 25 0 12 0;
+#X connect 26 0 25 0;
+#X connect 27 0 26 0;
+#X connect 28 1 32 0;
+#X connect 29 1 28 0;
+#X connect 30 1 33 0;
+#X connect 31 1 30 0;
+#X connect 32 1 2 0;
+#X connect 33 1 34 0;
+#X connect 36 0 53 0;
+#X connect 37 0 36 0;
+#X connect 39 0 29 0;
+#X connect 41 0 31 0;
+#X connect 43 0 44 0;
+#X connect 44 0 46 0;
+#X connect 44 1 47 0;
+#X connect 45 0 24 0;
+#X connect 45 1 23 0;
+#X connect 46 0 45 0;
+#X connect 47 0 45 0;
+#X connect 49 0 21 0;
+#X connect 49 0 50 0;
+#X connect 52 0 8 0;
+#X connect 53 1 3 0;
+#X connect 54 0 0 0;
+#X connect 54 1 0 1;
+#X connect 55 0 17 0;
+#X connect 55 1 17 1;
+#X connect 55 2 19 1;
+#X connect 56 0 14 0;
+#X connect 56 1 14 1;
+#X connect 57 0 9 0;
+#X restore 447 387 pd compute-stuff;
+#X obj 94 126 t b a;
+#X obj 157 129 t b a;
+#X text 439 439 BPF: H(s) = (s/Q) / (s^2 + s/Q + 1) (constant 0 dB
+peak gain);
+#X msg 678 227 1;
+#X text 156 71 Q;
+#N canvas 178 106 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 532 69 pd LICENSE-GPL;
+#X text 438 504 Borrowed from rjdj library \; Original is [u_bandpass2q]
+;
+#X connect 0 0 6 4;
+#X connect 1 0 6 5;
+#X connect 2 0 6 6;
+#X connect 3 0 6 1;
+#X connect 4 0 6 2;
+#X connect 5 0 6 3;
+#X connect 6 0 17 0;
+#X connect 7 0 14 0;
+#X connect 8 0 13 0;
+#X connect 9 0 12 0;
+#X connect 10 0 16 0;
+#X connect 12 0 16 0;
+#X connect 12 1 25 2;
+#X connect 13 0 16 0;
+#X connect 13 1 15 0;
+#X connect 14 0 16 0;
+#X connect 14 1 25 3;
+#X connect 15 0 25 1;
+#X connect 16 0 25 0;
+#X connect 18 0 26 0;
+#X connect 19 0 22 0;
+#X connect 20 0 16 0;
+#X connect 21 0 12 0;
+#X connect 22 0 20 0;
+#X connect 22 1 21 0;
+#X connect 22 2 29 0;
+#X connect 23 0 27 0;
+#X connect 26 0 6 0;
+#X connect 26 1 16 0;
+#X connect 27 0 6 0;
+#X connect 27 1 12 0;
+#X connect 29 0 7 0;
View
10 utils.double.click.pd
@@ -1,4 +1,4 @@
-#N canvas 6 47 339 384 10;
+#N canvas 598 127 339 384 10;
#X obj -13 170 timer;
#X msg -13 120 bang;
#X msg 14 146 bang;
@@ -14,13 +14,15 @@
#X obj -13 93 sel 1 0;
#X obj -13 6 inlet bang;
#X obj 62 77 inlet click-time;
-#X obj -13 273 outlet bang-double-click;
+#X obj -13 323 outlet bang-double-click;
+#X obj -13 293 spigot;
+#X obj 34 245 initz.delay 1 200;
#X connect 0 0 3 0;
#X connect 0 0 4 0;
#X connect 1 0 0 0;
#X connect 2 0 0 1;
#X connect 4 0 5 0;
-#X connect 5 0 13 0;
+#X connect 5 0 14 0;
#X connect 6 0 7 0;
#X connect 7 0 10 0;
#X connect 8 0 7 0;
@@ -29,3 +31,5 @@
#X connect 10 1 2 0;
#X connect 11 0 6 0;
#X connect 12 0 4 1;
+#X connect 14 0 13 0;
+#X connect 15 0 14 1;
View
36 utils.gui.showpatch.pd
@@ -0,0 +1,36 @@
+#N canvas 435 138 563 326 10;
+#X obj 145 100 bng 15 250 50 0 empty empty Edit -29 7 0 8 -162280 -1
+-1;
+#X obj 209 -60 loadbang;
+#X obj 209 24 makefilename pd-%s;
+#X symbolatom 115 -17 10 0 0 0 - - -;
+#X obj 115 -36 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
+-1 -1;
+#X obj 209 49 t a b;
+#X msg 209 102 add2 \$1 \, add2 vis \, add2 1;
+#X msg 252 77 set \, addsemi;
+#X msg 145 174 \; pd-workspace_5 vis 1;
+#X obj 209 -6 symbol \$1;
+#X obj 100 100 hradio 15 1 0 3 empty empty Edit 4 8 0 8 -1 -1 -228856
+0;
+#X obj 345 -4 symbol \$2;
+#X obj 209 -36 t b b;
+#X obj 345 41 s \$0-label;
+#X obj 100 68 r \$0-label;
+#X msg 345 19 label \$1;
+#X connect 0 0 8 0;
+#X connect 1 0 12 0;
+#X connect 2 0 5 0;
+#X connect 3 0 2 0;
+#X connect 4 0 3 0;
+#X connect 5 0 6 0;
+#X connect 5 1 7 0;
+#X connect 6 0 8 0;
+#X connect 7 0 8 0;
+#X connect 9 0 2 0;
+#X connect 11 0 15 0;
+#X connect 12 0 9 0;
+#X connect 12 1 11 0;
+#X connect 14 0 10 0;
+#X connect 15 0 13 0;
+#X coords 0 -1 1 1 60 15 2 100 100;
View
20 xsssad.eventstore.pd
@@ -1,4 +1,4 @@
-#N canvas 532 301 1049 541 10;
+#N canvas 545 142 1049 541 10;
#X text 180 1017 Hint: get creative with the [OSCroute] external!;
#X obj 118 202 r \$0-load;
#X text 518 131 This abstraction and all the other sssad state saving
@@ -88,19 +88,19 @@ my own.;
#X msg 210 860 add SSSAD-EVE_ADMIN set;
#X obj 577 766 list prepend add SSSAD-EVE;
#X obj 577 679 r SSSAD-EVE_ADMIN;
-#X obj 100 100 cnv 15 200 15 empty empty Seq 6 7 0 8 -228856 -33289
+#X obj 100 100 cnv 15 180 15 empty empty Seq 2 8 0 8 -191407 -33289
0;
-#X obj 140 100 nbx 5 15 0 1e+37 0 0 empty empty empty 0 -6 0 8 -1 -191407
+#X obj 142 100 nbx 4 15 0 1e+37 0 0 empty empty empty 0 -6 0 8 -1 -191407
-1 0 256;
-#X obj 119 20 inlet;
-#X obj 119 48 t b f;
-#X obj 182 100 hradio 15 1 0 3 empty empty Load 12 8 0 8 -1 -1 -191407
+#X obj 103 34 inlet;
+#X obj 103 62 t b f;
+#X obj 177 100 hradio 15 1 0 2 empty empty Load 3 8 0 8 -1 -1 -191407
0;
-#X obj 228 100 bng 15 250 50 0 \$0-load empty empty 17 7 0 8 -128992
+#X obj 208 100 bng 15 250 50 0 \$0-load empty empty 17 7 0 8 -128992
-1 -1;
-#X obj 243 100 hradio 15 1 0 3 empty empty Save 8 8 0 8 -1 -1 -191407
+#X obj 223 100 hradio 15 1 0 3 empty empty Save 8 8 0 8 -1 -1 -191407
0;
-#X obj 285 100 bng 15 250 50 0 \$0-save empty empty 17 7 0 8 -128992
+#X obj 265 100 bng 15 250 50 0 \$0-save empty empty 17 7 0 8 -128992
-66577 -1;
#X connect 1 0 11 0;
#X connect 4 0 34 0;
@@ -142,4 +142,4 @@ my own.;
#X connect 38 0 39 0;
#X connect 39 0 41 0;
#X connect 39 1 37 0;
-#X coords 0 -1 1 1 200 15 2 100 100;
+#X coords 0 -1 1 1 180 15 2 100 100;
View
108 xsssad.presetstore.pd
@@ -1,9 +1,5 @@
-#N canvas 573 47 912 795 10;
+#N canvas 596 226 912 795 10;
#X text 80 1017 Hint: get creative with the [OSCroute] external!;
-#X obj 104 112 bng 14 250 50 0 \$0-save empty save 17 7 0 8 -128992
--66577 -1;
-#X obj 56 112 bng 14 250 50 0 \$0-load empty load 17 7 0 8 -128992
--1 -1;
#X obj 18 202 r \$0-load;
#X text 418 131 This abstraction and all the other sssad state saving
stuff is due to the genius of Frank Barknecht. Any mistakes are purely
@@ -20,8 +16,6 @@ my own.;
#X msg 110 860 add SSSAD_ADMIN set;
#X obj 119 524 r \$0-save;
#X obj 267 588 s SSSAD_SAVE;
-#X obj 4 112 nbx 5 14 0 1e+37 0 0 empty empty preset 0 -6 0 8 -162280
--1 -1 5 256;
#X msg 450 291 set \, addsemi;
#X obj 18 235 t b b b;
#X obj 58 261 float;
@@ -94,48 +88,60 @@ my own.;
-1 -1 0;
#X obj 314 228 + 4;
#X floatatom 427 440 5 0 0 0 - - -;
-#X obj 7 6 inlet;
-#X obj 7 59 t b f;
-#X obj 7 33 change;
-#X connect 3 0 19 0;
-#X connect 6 0 8 0;
-#X connect 7 0 12 0;
-#X connect 8 0 7 0;
-#X connect 9 0 27 0;
-#X connect 10 0 21 0;
-#X connect 12 0 9 0;
-#X connect 13 0 27 0;
-#X connect 14 0 27 0;
-#X connect 15 0 10 0;
-#X connect 17 0 24 0;
-#X connect 18 0 33 0;
-#X connect 19 0 33 0;
-#X connect 19 1 20 0;
-#X connect 19 2 18 0;
-#X connect 20 0 22 0;
-#X connect 21 0 14 0;
-#X connect 21 1 11 0;
-#X connect 21 2 13 0;
-#X connect 21 3 30 0;
-#X connect 21 4 28 0;
-#X connect 21 5 25 0;
-#X connect 21 6 16 0;
-#X connect 22 0 34 0;
-#X connect 24 0 20 1;
-#X connect 24 0 27 1;
-#X connect 24 0 26 1;
-#X connect 24 0 28 1;
-#X connect 24 0 38 0;
+#X obj 14 5 inlet;
+#X obj 14 58 t b f;
+#X obj 14 32 change;
+#X obj 0 100 cnv 15 180 15 empty empty Scene 2 8 0 8 -191407 -33289
+0;
+#X obj 41 100 nbx 4 15 0 1e+37 0 0 empty empty empty 0 -6 0 8 -1 -191407
+-1 0 256;
+#X obj 76 100 hradio 15 1 0 2 empty empty Load 3 8 0 8 -1 -1 -191407
+0;
+#X obj 107 100 bng 15 250 50 0 \$0-load empty empty 17 7 0 8 -128992
+-1 -1;
+#X obj 123 100 hradio 15 1 0 3 empty empty Save 8 8 0 8 -1 -1 -191407
+0;
+#X obj 165 100 bng 15 250 50 0 \$0-save empty empty 17 7 0 8 -128992
+-66577 -1;
+#X connect 1 0 16 0;
+#X connect 4 0 6 0;
+#X connect 5 0 10 0;
+#X connect 6 0 5 0;
+#X connect 7 0 24 0;
+#X connect 8 0 18 0;
+#X connect 10 0 7 0;
+#X connect 11 0 24 0;
+#X connect 12 0 24 0;
+#X connect 13 0 8 0;
+#X connect 15 0 30 0;
+#X connect 16 0 30 0;
+#X connect 16 1 17 0;
+#X connect 16 2 15 0;
+#X connect 17 0 19 0;
+#X connect 18 0 12 0;
+#X connect 18 1 9 0;
+#X connect 18 2 11 0;
+#X connect 18 3 27 0;
+#X connect 18 4 25 0;
+#X connect 18 5 22 0;
+#X connect 18 6 14 0;
+#X connect 19 0 31 0;
+#X connect 21 0 17 1;
+#X connect 21 0 24 1;
+#X connect 21 0 23 1;
+#X connect 21 0 25 1;
+#X connect 21 0 35 0;
+#X connect 22 0 23 0;
#X connect 25 0 26 0;
-#X connect 28 0 29 0;
-#X connect 29 0 31 0;
-#X connect 30 0 26 0;
-#X connect 31 0 26 0;
-#X connect 32 0 28 0;
-#X connect 34 0 33 0;
-#X connect 36 0 37 0;
-#X connect 39 0 41 0;
-#X connect 40 0 2 0;
-#X connect 40 1 17 0;
-#X connect 41 0 40 0;
-#X coords 0 -1 1 1 150 30 2 0 100;
+#X connect 26 0 28 0;
+#X connect 27 0 23 0;
+#X connect 28 0 23 0;
+#X connect 29 0 25 0;
+#X connect 31 0 30 0;
+#X connect 33 0 34 0;
+#X connect 36 0 38 0;
+#X connect 37 0 42 0;
+#X connect 37 1 40 0;
+#X connect 38 0 37 0;
+#X connect 40 0 21 0;
+#X coords 0 -1 1 1 180 15 2 0 100;

0 comments on commit c4529af

Please sign in to comment.