initial checking of some basic abstractions

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

6 files changed, 282 insertions, 0 deletions

diff --git a/pre_switch.pd b/pre_switch.pd
new file mode 100644
index 0000000..9eaf1d9
--- /dev/null
+++ b/pre_switch.pd
@@ -0,0 +1,28 @@
+#N canvas 0 0 450 300 10;
+#X obj 36 116 t b b;
+#X obj 105 193 0;
+#X obj 66 137 zl reg stop;
+#X obj 36 192 1;
+#X obj 36 91 sel 1 0;
+#X obj 105 170 delay \$1;
+#X obj 36 39 inlet switch;
+#X obj 36 231 outlet switch~;
+#X text 38 17 \$1: switch delay;
+#X obj 36 69 change;
+#X obj 197 38 inlet delay;
+#X obj 197 59 moses 0;
+#X obj 197 79 assert;
+#X text 35 265 $Id: pre_switch.pd 188 2005-11-20 00:26:53Z tim $;
+#X connect 0 0 3 0;
+#X connect 0 1 2 0;
+#X connect 1 0 7 0;
+#X connect 2 0 5 0;
+#X connect 3 0 7 0;
+#X connect 4 0 0 0;
+#X connect 4 1 5 0;
+#X connect 5 0 1 0;
+#X connect 6 0 9 0;
+#X connect 9 0 4 0;
+#X connect 10 0 11 0;
+#X connect 11 0 12 0;
+#X connect 11 1 5 1;
diff --git a/switcher.pd b/switcher.pd
new file mode 100644
index 0000000..04c2b46
--- /dev/null
+++ b/switcher.pd
@@ -0,0 +1,14 @@
+#N canvas 567 330 438 173 10;
+#X obj 36 15 inlet switch;
+#X obj 36 79 outlet factor;
+#X obj 66 118 outlet switch~;
+#X obj 36 60 t f f;
+#X text 220 18 \$1: switch delay;
+#X obj 36 38 change;
+#X obj 66 99 pre_switch \$1;
+#X text 42 155 $Id: switcher.pd 193 2005-11-20 00:58:51Z tim $;
+#X connect 0 0 5 0;
+#X connect 3 0 1 0;
+#X connect 3 1 6 0;
+#X connect 5 0 3 0;
+#X connect 6 0 2 0;
diff --git a/volctl~.pd b/volctl~.pd
new file mode 100644
index 0000000..db0ee18
--- /dev/null
+++ b/volctl~.pd
@@ -0,0 +1,21 @@
+#N canvas 428 171 450 300 10;
+#X obj 28 13 inlet~;
+#X obj 28 219 outlet~;
+#X obj 28 179 *~;
+#X obj 44 160 line~;
+#X obj 44 139 pack \$1 \$2;
+#X obj 109 115 inlet ramp_time;
+#X obj 44 53 loadbang;
+#X text 27 275 $Id: volctl~.pd 193 2005-11-20 00:58:51Z tim $;
+#X text 143 42 \$1: initial gain;
+#X text 143 62 \$2: initial ramp time;
+#X text 27 245 for all the people \, who are afraid to use devel or
+my volctl~ external;
+#X obj 44 75 inlet factor;
+#X connect 0 0 2 0;
+#X connect 2 0 1 0;
+#X connect 3 0 2 1;
+#X connect 4 0 3 0;
+#X connect 5 0 4 1;
+#X connect 6 0 4 0;
+#X connect 11 0 4 0;
diff --git a/xfade-help.pd b/xfade-help.pd
new file mode 100644
index 0000000..23e0ad9
--- /dev/null
+++ b/xfade-help.pd
@@ -0,0 +1,68 @@
+#N canvas 151 330 809 334 10;
+#X obj 62 74 xfade 0 100;
+#X obj 98 102 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1
+;
+#X obj 134 104 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 1
+1;
+#N canvas 0 0 450 300 sig1 0;
+#X obj 38 99 osc~ 440;
+#X obj 38 123 outlet~;
+#X obj 162 119 switch~;
+#X obj 162 99 inlet switch~;
+#X connect 0 0 1 0;
+#X connect 3 0 2 0;
+#X restore 62 18 pd sig1;
+#N canvas 0 0 450 300 sig2 0;
+#X obj 38 123 outlet~;
+#X obj 162 119 switch~;
+#X obj 162 99 inlet switch~;
+#X obj 38 99 osc~ 220;
+#X connect 2 0 1 0;
+#X connect 3 0 0 0;
+#X restore 98 48 pd sig2;
+#X obj 62 144 dacer~;
+#X floatatom 150 76 5 0 0 0 - - -;
+#X text 69 212 $Id: xfade-help.pd 189 2005-11-20 00:27:13Z tim $;
+#X obj 348 118 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 1
+1;
+#X obj 375 118 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0
+1;
+#N canvas 0 0 450 300 sig1 0;
+#X obj 38 99 osc~ 440;
+#X obj 38 123 outlet~;
+#X obj 162 119 switch~;
+#X obj 162 99 inlet switch~;
+#X connect 0 0 1 0;
+#X connect 3 0 2 0;
+#X restore 296 34 pd sig1;
+#N canvas 0 0 450 300 sig2 0;
+#X obj 38 123 outlet~;
+#X obj 162 119 switch~;
+#X obj 162 99 inlet switch~;
+#X obj 38 99 osc~ 220;
+#X connect 2 0 1 0;
+#X connect 3 0 0 0;
+#X restore 334 58 pd sig2;
+#X obj 296 160 dacer~;
+#X floatatom 408 90 5 0 0 0 - - -;
+#X obj 296 90 xfadeS 0 100;
+#X connect 0 0 5 0;
+#X connect 0 0 5 1;
+#X connect 0 1 1 0;
+#X connect 0 2 2 0;
+#X connect 1 0 3 0;
+#X connect 2 0 4 0;
+#X connect 3 0 0 0;
+#X connect 4 0 0 1;
+#X connect 6 0 0 2;
+#X connect 8 0 10 0;
+#X connect 9 0 11 0;
+#X connect 10 0 14 0;
+#X connect 10 0 14 1;
+#X connect 11 0 14 2;
+#X connect 11 0 14 3;
+#X connect 13 0 14 4;
+#X connect 14 0 12 0;
+#X connect 14 1 12 1;
+#X connect 14 2 8 0;
+#X connect 14 3 9 0;
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;
diff --git a/xfadeS.pd b/xfadeS.pd
new file mode 100644
index 0000000..772f107
--- /dev/null
+++ b/xfadeS.pd
@@ -0,0 +1,83 @@
+#N canvas 0 0 949 473 10;
+#X obj 45 24 inlet~;
+#X obj 357 24 inlet~;
+#X obj 45 416 outlet~;
+#X text 626 26 0 bis 100;
+#X text 46 4 0;
+#X text 358 6 100;
+#X obj 550 25 inlet fade;
+#X obj 550 180 t f f;
+#X obj 550 160 * 0.01;
+#X obj 550 204 !- 1;
+#X obj 550 48 clip 0 100;
+#X obj 580 223 sqrt;
+#X obj 550 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 409 69 pd init;
+#X text 691 82 \$1: initial value;
+#X obj 550 328 != 0;
+#X obj 550 366 outlet switch~_1;
+#X obj 670 328 != 0;
+#X obj 670 366 outlet switch~_2;
+#X obj 670 347 pre_switch 20;
+#X obj 550 347 pre_switch 20;
+#X obj 357 342 volctl~ 0 \$2;
+#X obj 45 342 volctl~ 1 \$2;
+#X text 691 102 \$2: interpolation time;
+#X obj 135 24 inlet~;
+#X obj 135 416 outlet~;
+#X text 136 4 0;
+#X obj 135 342 volctl~ 1 \$2;
+#X obj 237 24 inlet~;
+#X obj 237 342 volctl~ 0 \$2;
+#X text 238 6 100;
+#X obj 756 283 + 10;
+#X text 45 447 $Id$;
+#X connect 0 0 22 0;
+#X connect 1 0 21 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 21 1;
+#X connect 11 0 29 1;
+#X connect 12 0 15 0;
+#X connect 12 0 22 1;
+#X connect 12 0 27 1;
+#X connect 13 0 8 0;
+#X connect 13 1 22 2;
+#X connect 13 1 21 2;
+#X connect 13 1 27 2;
+#X connect 13 1 29 2;
+#X connect 13 1 31 1;
+#X connect 15 0 20 0;
+#X connect 17 0 19 0;
+#X connect 19 0 18 0;
+#X connect 20 0 16 0;
+#X connect 21 0 25 0;
+#X connect 22 0 2 0;
+#X connect 24 0 27 0;
+#X connect 27 0 25 0;
+#X connect 28 0 29 0;
+#X connect 29 0 2 0;
+#X connect 31 0 20 1;
+#X connect 31 0 19 1;