1 files changed, 139 insertions, 0 deletions
diff --git a/echoBp~.pd b/echoBp~.pd
new file mode 100644
index 0000000..1eab977
--- /dev/null
+++ b/echoBp~.pd
@@ -0,0 +1,139 @@
+#N canvas 294 281 682 266 10;
+#X text 333 81 feedback 0-127;
+#X text 334 97 frequency 0-127;
+#X text 334 110 q 0-127;
+#X text 334 125 routing 0/1;
+#X text 337 21 parameters:;
+#X text 341 191 Author: Roman Haefeli;
+#X text 334 49 delay.l <1-5000ms>;
+#X text 334 65 delay.r <1-5000ms>;
+#X text 333 140 switch 0/1;
+#X text 340 176 Version: 2007-11-04;
+#N canvas 20 57 814 783 echobp 0;
+#X obj 131 718 delwrite~ \$0-fildelr 5000;
+#X obj 33 737 delwrite~ \$0-fildell 5000;
+#X obj 32 182 delread~ \$0-fildell;
+#X obj 103 153 delread~ \$0-fildelr;
+#X obj 32 281 *~;
+#X obj 103 283 *~;
+#X obj 33 433 *~;
+#X obj 60 434 *~;
+#X obj 104 432 *~;
+#X obj 131 432 *~;
+#X obj 312 318 * -1;
+#X obj 312 339 + 1;
+#X obj 33 680 *~;
+#X obj 131 680 *~;
+#X obj 131 653 bp~;
+#X obj 191 608 mtof;
+#X obj 191 587 + 47;
+#X obj 272 578 + 1;
+#X obj 272 625 +;
+#X obj 272 603 * 0.4;
+#X obj 53 215 outlet~;
+#X obj 130 219 outlet~;
+#X obj 59 310 inlet~;
+#X obj 131 307 inlet~;
+#X obj 290 184 pack f 20;
+#X obj 290 205 line~;
+#X obj 312 360 pack f 20;
+#X obj 312 381 line~;
+#X obj 239 361 pack f 20;
+#X obj 239 382 line~;
+#X obj 33 649 bp~;
+#X obj 272 560 * 0.031496;
+#X obj 191 543 min 127;
+#X obj 191 523 max 0;
+#X obj 272 540 min 127;
+#X obj 272 520 max 0;
+#X obj 290 143 min 127;
+#X obj 290 123 max 0;
+#X obj 191 567 * 0.62;
+#X obj 290 164 / 160;
+#X obj 482 35 tof/param /delayl 100 /g slider 1 10000;
+#X obj 488 61 tof/param /delayr 100 /g slider 1 10000;
+#X obj 484 85 tof/param /feedback 0 /g slider 0 127;
+#X obj 499 109 tof/param /routing 0 /g tgl;
+#X obj 498 131 tof/param /frequency 100 /g slider 0 127;
+#X obj 494 155 tof/param /q 0 /g slider 0 127;
+#X connect 2 0 4 0;
+#X connect 2 0 20 0;
+#X connect 3 0 5 0;
+#X connect 3 0 21 0;
+#X connect 4 0 6 0;
+#X connect 4 0 7 0;
+#X connect 5 0 8 0;
+#X connect 5 0 9 0;
+#X connect 6 0 30 0;
+#X connect 7 0 14 0;
+#X connect 8 0 30 0;
+#X connect 9 0 14 0;
+#X connect 10 0 11 0;
+#X connect 11 0 26 0;
+#X connect 12 0 1 0;
+#X connect 13 0 0 0;
+#X connect 14 0 13 0;
+#X connect 15 0 14 1;
+#X connect 15 0 30 1;
+#X connect 16 0 15 0;
+#X connect 17 0 14 2;
+#X connect 17 0 19 0;
+#X connect 17 0 30 2;
+#X connect 18 0 12 1;
+#X connect 18 0 13 1;
+#X connect 19 0 18 0;
+#X connect 22 0 6 0;
+#X connect 22 0 7 0;
+#X connect 23 0 8 0;
+#X connect 23 0 9 0;
+#X connect 24 0 25 0;
+#X connect 25 0 5 1;
+#X connect 25 0 4 1;
+#X connect 26 0 27 0;
+#X connect 27 0 9 1;
+#X connect 27 0 6 1;
+#X connect 28 0 29 0;
+#X connect 29 0 7 1;
+#X connect 29 0 8 1;
+#X connect 30 0 12 0;
+#X connect 31 0 17 0;
+#X connect 32 0 38 0;
+#X connect 33 0 32 0;
+#X connect 34 0 31 0;
+#X connect 35 0 34 0;
+#X connect 36 0 39 0;
+#X connect 37 0 36 0;
+#X connect 38 0 16 0;
+#X connect 39 0 24 0;
+#X connect 40 0 2 0;
+#X connect 41 0 3 0;
+#X connect 42 0 37 0;
+#X connect 43 0 28 0;
+#X connect 43 0 10 0;
+#X connect 44 0 33 0;
+#X connect 45 0 35 0;
+#X restore 69 39 pd echobp;
+#X obj 21 14 inlet~;
+#X obj 71 14 inlet~;
+#X obj 22 105 outlet~;
+#X obj 71 105 outlet~;
+#X obj 21 63 tof/crossfade~ 2;
+#X obj 499 -8 inlet params;
+#X obj 499 14 tof/paramRoute;
+#X obj 499 38 print PARAM_NOTFOUND;
+#X obj 159 -6 tof/param /wet 0 /g slider 0 1;
+#X obj 159 37 line~;
+#X msg 159 16 \$1 5;
+#X connect 10 0 15 2;
+#X connect 10 1 15 3;
+#X connect 11 0 10 0;
+#X connect 11 0 15 0;
+#X connect 12 0 10 1;
+#X connect 12 0 15 1;
+#X connect 15 0 13 0;
+#X connect 15 1 14 0;
+#X connect 16 0 17 0;
+#X connect 17 0 18 0;
+#X connect 19 0 21 0;
+#X connect 20 0 15 4;
+#X connect 21 0 20 0;