adding pan~ abstractions

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

4 files changed, 121 insertions, 0 deletions

diff --git a/_pan~math.pd b/_pan~math.pd
new file mode 100644
index 0000000..70360f0
--- /dev/null
+++ b/_pan~math.pd
@@ -0,0 +1,55 @@
+#N canvas 356 113 633 535 10;
+#X obj 47 21 inlet;
+#X obj 47 72 clip -45 45;
+#X obj 47 93 deg2rad;
+#X obj 47 115 t b b f f;
+#X obj 105 136 sin;
+#X obj 105 157 v \$0-sin;
+#X obj 85 196 v \$0-cos;
+#X obj 85 176 cos;
+#X obj 66 215 t b b;
+#X obj 66 234 v \$0-cos;
+#X obj 66 270 +;
+#X obj 47 342 t b b;
+#X obj 47 361 v \$0-cos;
+#X obj 47 416 *;
+#X obj 301 55 expr sqrt(2) / 2;
+#X obj 271 14 loadbang;
+#X obj 66 289 *;
+#X obj 66 308 outlet;
+#X obj 47 435 outlet;
+#X text 43 465 as discribed in http://www.csounds.com/ezine/autumn1999/beginners/
+;
+#X obj 271 34 t b b;
+#X obj 96 253 v \$0-sin;
+#X obj 77 380 v \$0-sin;
+#X obj 47 397 -;
+#X text 43 503 $Id: _pan~math.pd 196 2005-11-20 01:40:43Z tim $;
+#X obj 271 55 \$1;
+#X connect 0 0 1 0;
+#X connect 1 0 2 0;
+#X connect 2 0 3 0;
+#X connect 3 0 11 0;
+#X connect 3 1 8 0;
+#X connect 3 2 7 0;
+#X connect 3 3 4 0;
+#X connect 4 0 5 0;
+#X connect 7 0 6 0;
+#X connect 8 0 9 0;
+#X connect 8 1 21 0;
+#X connect 9 0 10 0;
+#X connect 10 0 16 0;
+#X connect 11 0 12 0;
+#X connect 11 1 22 0;
+#X connect 12 0 23 0;
+#X connect 13 0 18 0;
+#X connect 14 0 13 1;
+#X connect 14 0 16 1;
+#X connect 15 0 20 0;
+#X connect 16 0 17 0;
+#X connect 20 0 25 0;
+#X connect 20 1 14 0;
+#X connect 21 0 10 1;
+#X connect 22 0 23 1;
+#X connect 23 0 13 0;
+#X connect 25 0 1 0;
diff --git a/panS~-help.pd b/panS~-help.pd
new file mode 100644
index 0000000..36efb20
--- /dev/null
+++ b/panS~-help.pd
@@ -0,0 +1,20 @@
+#N canvas 599 324 443 253 10;
+#X obj 35 176 dacer~;
+#X obj 54 16 osc~ 440;
+#X obj 69 35 osc~ 444;
+#X obj 53 90 panS~;
+#X obj 198 35 osc~ 440;
+#X obj 199 73 pan~;
+#X obj 179 177 dacer~;
+#X floatatom 83 63 5 0 0 0 - - -;
+#X floatatom 222 57 5 0 0 0 - - -;
+#X text 36 233 $Id: panS~-help.pd 188 2005-11-20 00:26:53Z tim $;
+#X connect 1 0 3 0;
+#X connect 2 0 3 1;
+#X connect 3 0 0 0;
+#X connect 3 1 0 1;
+#X connect 4 0 5 0;
+#X connect 5 0 6 0;
+#X connect 5 1 6 1;
+#X connect 7 0 3 2;
+#X connect 8 0 5 1;
diff --git a/panS~.pd b/panS~.pd
new file mode 100644
index 0000000..8ba14f3
--- /dev/null
+++ b/panS~.pd
@@ -0,0 +1,24 @@
+#N canvas 162 192 507 282 10;
+#X obj 35 13 inlet~;
+#X obj 132 14 inlet~;
+#X obj 196 15 inlet pan;
+#X obj 35 131 volctl~ 0 100;
+#X obj 132 131 volctl~ 0 100;
+#X obj 35 150 outlet~;
+#X obj 132 150 outlet~;
+#X text 365 190 \$1: pan;
+#X text 365 210 \$2: ramp;
+#X text 33 249 $Id: panS~.pd 196 2005-11-20 01:40:43Z tim $;
+#X obj 391 43 init \$2;
+#X obj 391 65 moses 0;
+#X obj 196 64 _pan~math \$1;
+#X connect 0 0 3 0;
+#X connect 1 0 4 0;
+#X connect 2 0 12 0;
+#X connect 3 0 5 0;
+#X connect 4 0 6 0;
+#X connect 10 0 11 0;
+#X connect 11 1 4 2;
+#X connect 11 1 3 2;
+#X connect 12 0 3 1;
+#X connect 12 1 4 1;
diff --git a/pan~.pd b/pan~.pd
new file mode 100644
index 0000000..313ae9e
--- /dev/null
+++ b/pan~.pd
@@ -0,0 +1,22 @@
+#N canvas 685 294 476 248 10;
+#X obj 35 23 inlet~;
+#X obj 131 23 inlet pan;
+#X obj 35 113 volctl~ 0 100;
+#X obj 146 113 volctl~ 0 100;
+#X obj 35 132 outlet~;
+#X obj 146 132 outlet~;
+#X text 40 182 $Id: pan~.pd 196 2005-11-20 01:40:43Z tim $;
+#X obj 315 33 init \$2;
+#X obj 315 55 moses 0;
+#X text 311 126 \$1: pan;
+#X text 311 146 \$2: ramp;
+#X obj 131 80 _pan~math \$1;
+#X connect 0 0 2 0;
+#X connect 0 0 3 0;
+#X connect 1 0 11 0;
+#X connect 2 0 4 0;
+#X connect 3 0 5 0;
+#X connect 7 0 8 0;
+#X connect 8 1 3 2;
+#X connect 11 0 2 1;
+#X connect 11 1 3 1;