added panning algorithms from http://www.csounds.com/ezine/autumn1999/beginners/

svn path=/trunk/externals/hcs/pan/; revision=4295

1 files changed, 51 insertions, 0 deletions

diff --git a/pan_core~.pd b/pan_core~.pd
new file mode 100644
index 0000000..51b2007
--- /dev/null
+++ b/pan_core~.pd
@@ -0,0 +1,51 @@
+#N canvas 405 25 454 576 10;
+#X obj 11 96 inlet~;
+#X obj 216 116 inlet;
+#X obj 70 443 *~;
+#X obj 70 472 outlet~;
+#X obj 200 442 *~;
+#X obj 200 471 outlet~;
+#X text 77 492 left;
+#X text 203 491 right;
+#X text 130 518 (C) Copyright 2004 Hans-Christoph Steiner;
+#X text 234 534 released under the GNU GPL;
+#X obj 216 418 line~;
+#X obj 86 418 line~;
+#X obj 307 183 loadbang;
+#X floatatom 315 244 7 0 0 3 blocksize_in_ms - -;
+#X obj 290 184 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
+-1;
+#X obj 216 337 t f b;
+#X obj 246 356 f;
+#X obj 216 379 pack f f;
+#X msg 216 399 \$1 \$2;
+#X obj 86 337 t f b;
+#X obj 116 356 f;
+#X obj 86 379 pack f f;
+#X msg 86 399 \$1 \$2;
+#X obj 307 215 blocksize_in_ms;
+#X obj 86 117 inlet;
+#X text 10 17 [pan_core~];
+#X connect 0 0 2 0;
+#X connect 0 0 4 0;
+#X connect 1 0 15 0;
+#X connect 2 0 3 0;
+#X connect 4 0 5 0;
+#X connect 10 0 4 1;
+#X connect 11 0 2 1;
+#X connect 12 0 23 0;
+#X connect 14 0 23 0;
+#X connect 15 0 17 0;
+#X connect 15 1 16 0;
+#X connect 16 0 17 1;
+#X connect 17 0 18 0;
+#X connect 18 0 10 0;
+#X connect 19 0 21 0;
+#X connect 19 1 20 0;
+#X connect 20 0 21 1;
+#X connect 21 0 22 0;
+#X connect 22 0 11 0;
+#X connect 23 0 13 0;
+#X connect 23 0 16 1;
+#X connect 23 0 20 1;
+#X connect 24 0 19 0;