From a3570a460160241c2690b0cff824d270e69ec33d Mon Sep 17 00:00:00 2001
From: Hans-Christoph Steiner <eighthave@users.sourceforge.net>
Date: Mon, 26 Dec 2005 02:07:50 +0000
Subject: added panning algorithms from
 http://www.csounds.com/ezine/autumn1999/beginners/

svn path=/trunk/externals/hcs/pan/; revision=4295
---
 linear_pan~.pd | 27 +++++++++++++++++++++++++++
 1 file changed, 27 insertions(+)
 create mode 100644 linear_pan~.pd

(limited to 'linear_pan~.pd')

diff --git a/linear_pan~.pd b/linear_pan~.pd
new file mode 100644
index 0000000..32d29a1
--- /dev/null
+++ b/linear_pan~.pd
@@ -0,0 +1,27 @@
+#N canvas 438 88 458 368 10;
+#X obj 23 38 inlet~;
+#X obj 193 36 inlet;
+#X obj 23 262 outlet~;
+#X obj 81 262 outlet~;
+#X text 30 282 left;
+#X text 84 282 right;
+#X obj 193 112 expr if($f1 > 0 \, $f1 \, 0);
+#X obj 193 93 expr if($f1 < 1 \, $f1 \, 1);
+#X text 206 79 filter so 0 < f < 1;
+#X obj 40 150 expr 1 - $f1;
+#X text 130 318 (C) Copyright 2004 Hans-Christoph Steiner;
+#X text 234 334 released under the GNU GPL;
+#X text 10 17 [linearpan~];
+#X obj 23 203 pan_core~;
+#X obj 268 32 loadbang;
+#X msg 268 52 0.5;
+#X connect 0 0 13 0;
+#X connect 1 0 7 0;
+#X connect 6 0 9 0;
+#X connect 6 0 13 2;
+#X connect 7 0 6 0;
+#X connect 9 0 13 1;
+#X connect 13 0 2 0;
+#X connect 13 1 3 0;
+#X connect 14 0 15 0;
+#X connect 15 0 7 0;
-- 
cgit v1.2.1