aboutsummaryrefslogtreecommitdiff
path: root/square_root_pan~.pd
diff options
context:
space:
mode:
authorHans-Christoph Steiner <eighthave@users.sourceforge.net>2005-12-26 02:07:50 +0000
committerHans-Christoph Steiner <eighthave@users.sourceforge.net>2005-12-26 02:07:50 +0000
commita3570a460160241c2690b0cff824d270e69ec33d (patch)
tree35fc3acd1d2213e23493754c204a63415331647a /square_root_pan~.pd
parentffbeedb25bedaa0745bdd0552c78a1bfcbc2edaf (diff)
added panning algorithms from http://www.csounds.com/ezine/autumn1999/beginners/
svn path=/trunk/externals/hcs/pan/; revision=4295
Diffstat (limited to 'square_root_pan~.pd')
-rw-r--r--square_root_pan~.pd29
1 files changed, 29 insertions, 0 deletions
diff --git a/square_root_pan~.pd b/square_root_pan~.pd
new file mode 100644
index 0000000..760ed5d
--- /dev/null
+++ b/square_root_pan~.pd
@@ -0,0 +1,29 @@
+#N canvas 509 36 441 430 10;
+#X obj 23 38 inlet~;
+#X obj 234 48 inlet;
+#X obj 23 322 outlet~;
+#X obj 81 322 outlet~;
+#X text 30 342 left;
+#X text 84 342 right;
+#X obj 234 124 expr if($f1 > 0 \, $f1 \, 0);
+#X obj 234 105 expr if($f1 < 1 \, $f1 \, 1);
+#X text 247 91 filter so 0 < f < 1;
+#X text 130 368 (C) Copyright 2004 Hans-Christoph Steiner;
+#X text 234 384 released under the GNU GPL;
+#X obj 23 263 pan_core~;
+#X obj 309 44 loadbang;
+#X msg 309 64 0.5;
+#X obj 80 239 sqrt;
+#X obj 50 158 expr sqrt(1 - $f1);
+#X text 10 17 [square_root_pan~];
+#X connect 0 0 11 0;
+#X connect 1 0 7 0;
+#X connect 6 0 14 0;
+#X connect 6 0 15 0;
+#X connect 7 0 6 0;
+#X connect 11 0 2 0;
+#X connect 11 1 3 0;
+#X connect 12 0 13 0;
+#X connect 13 0 7 0;
+#X connect 14 0 11 2;
+#X connect 15 0 11 1;