initial checking of some basic abstractions

svn path=/trunk/abstractions/tb/; revision=3982

1 files changed, 68 insertions, 0 deletions

diff --git a/xfade.pd b/xfade.pd
new file mode 100644
index 0000000..68a8114
--- /dev/null
+++ b/xfade.pd
@@ -0,0 +1,68 @@
+#N canvas 399 50 792 461 10;
+#X obj 35 24 inlet~;
+#X obj 187 24 inlet~;
+#X obj 35 366 outlet~;
+#X text 456 26 0 bis 100;
+#X text 36 4 0;
+#X text 169 5 100;
+#X obj 380 25 inlet fade;
+#X obj 380 180 t f f;
+#X obj 380 160 * 0.01;
+#X obj 380 204 !- 1;
+#X obj 380 48 clip 0 100;
+#X obj 410 223 sqrt;
+#X obj 380 244 sqrt;
+#N canvas 5 26 523 273 init 0;
+#X obj 9 21 init \$1;
+#X obj 187 20 init \$2;
+#X obj 187 83 10;
+#X obj 187 63 b;
+#X obj 187 40 moses 0;
+#X obj 231 63 sel 0;
+#X obj 9 43 outlet initial_state;
+#X obj 187 112 outlet fade_time;
+#X connect 0 0 6 0;
+#X connect 1 0 4 0;
+#X connect 2 0 7 0;
+#X connect 3 0 2 0;
+#X connect 4 0 3 0;
+#X connect 4 1 5 0;
+#X connect 5 0 2 0;
+#X connect 5 1 7 0;
+#X restore 241 73 pd init;
+#X text 521 82 \$1: initial value;
+#X obj 380 328 != 0;
+#X obj 380 366 outlet switch~_1;
+#X obj 500 328 != 0;
+#X obj 500 366 outlet switch~_2;
+#X obj 380 347 pre_switch 20;
+#X obj 187 342 volctl~ 0 \$2;
+#X obj 35 342 volctl~ 1 \$2;
+#X text 521 102 \$2: interpolation time;
+#X obj 586 273 + 10;
+#X text 36 426 $Id$;
+#X obj 500 347 pre_switch 20;
+#X connect 0 0 21 0;
+#X connect 1 0 20 0;
+#X connect 6 0 10 0;
+#X connect 7 0 9 0;
+#X connect 7 1 11 0;
+#X connect 8 0 7 0;
+#X connect 9 0 12 0;
+#X connect 10 0 8 0;
+#X connect 11 0 17 0;
+#X connect 11 0 20 1;
+#X connect 12 0 15 0;
+#X connect 12 0 21 1;
+#X connect 13 0 8 0;
+#X connect 13 1 21 2;
+#X connect 13 1 20 2;
+#X connect 13 1 23 0;
+#X connect 15 0 19 0;
+#X connect 17 0 25 0;
+#X connect 19 0 16 0;
+#X connect 20 0 2 0;
+#X connect 21 0 2 0;
+#X connect 23 0 19 1;
+#X connect 23 0 25 1;
+#X connect 25 0 18 0;