From dd16680eaf2a154c938ad3e2737821ea4a265632 Mon Sep 17 00:00:00 2001
From: Hans-Christoph Steiner <eighthave@users.sourceforge.net>
Date: Sat, 27 May 2006 10:59:24 +0000
Subject: replaced complicated [expr] with simple [clip]

svn path=/trunk/externals/hcs/pan/; revision=5142
---
 equal_power_pan~.pd | 27 +++++++++++-------------
 gogins_pan~.pd      | 61 +++++++++++++++++++++++++----------------------------
 linear_pan~.pd      | 25 ++++++++++------------
 3 files changed, 52 insertions(+), 61 deletions(-)

diff --git a/equal_power_pan~.pd b/equal_power_pan~.pd
index dec6ffa..4f161de 100644
--- a/equal_power_pan~.pd
+++ b/equal_power_pan~.pd
@@ -1,13 +1,10 @@
-#N canvas 509 36 445 434 10;
+#N canvas 509 36 449 438 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~;
@@ -16,14 +13,14 @@
 #X obj 39 184 expr cos($f1 * 3.14159 / 2);
 #X obj 234 184 expr sin($f1 * 3.14159 / 2);
 #X text 10 17 [equal_power_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 1;
-#X connect 15 0 11 2;
+#X obj 234 124 clip 0 1;
+#X connect 0 0 8 0;
+#X connect 1 0 14 0;
+#X connect 8 0 2 0;
+#X connect 8 1 3 0;
+#X connect 9 0 10 0;
+#X connect 10 0 14 0;
+#X connect 11 0 8 1;
+#X connect 12 0 8 2;
+#X connect 14 0 11 0;
+#X connect 14 0 12 0;
diff --git a/gogins_pan~.pd b/gogins_pan~.pd
index dd7f3be..1034915 100644
--- a/gogins_pan~.pd
+++ b/gogins_pan~.pd
@@ -1,13 +1,10 @@
-#N canvas 612 28 518 582 10;
+#N canvas 612 28 522 586 10;
 #X obj 23 38 inlet~;
 #X obj 139 47 inlet;
 #X obj 23 482 outlet~;
 #X obj 81 482 outlet~;
 #X text 30 502 left;
 #X text 84 502 right;
-#X obj 139 93 expr if($f1 > 0 \, $f1 \, 0);
-#X obj 139 74 expr if($f1 < 1 \, $f1 \, 1);
-#X text 174 59 filter so 0 < f < 1;
 #X text 130 528 (C) Copyright 2004 Hans-Christoph Steiner;
 #X text 234 544 released under the GNU GPL;
 #X obj 23 443 pan_core~;
@@ -30,31 +27,31 @@
 list;
 #X obj 207 326 +;
 #X obj 107 324 -;
-#X connect 0 0 11 0;
-#X connect 1 0 7 0;
-#X connect 6 0 22 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 19 0;
-#X connect 15 0 23 1;
-#X connect 17 0 14 0;
-#X connect 17 0 18 0;
-#X connect 18 0 21 1;
-#X connect 18 0 20 1;
-#X connect 19 0 22 1;
-#X connect 19 1 15 0;
-#X connect 20 0 11 1;
-#X connect 21 0 11 2;
-#X connect 22 0 23 0;
-#X connect 23 0 24 0;
-#X connect 24 0 25 0;
-#X connect 24 1 26 0;
-#X connect 25 0 28 0;
-#X connect 25 0 29 0;
-#X connect 26 0 28 1;
-#X connect 26 0 29 1;
-#X connect 28 0 21 0;
-#X connect 29 0 20 0;
+#X obj 139 74 clip 0 1;
+#X connect 0 0 8 0;
+#X connect 1 0 27 0;
+#X connect 8 0 2 0;
+#X connect 8 1 3 0;
+#X connect 9 0 10 0;
+#X connect 10 0 27 0;
+#X connect 11 0 16 0;
+#X connect 12 0 20 1;
+#X connect 14 0 11 0;
+#X connect 14 0 15 0;
+#X connect 15 0 18 1;
+#X connect 15 0 17 1;
+#X connect 16 0 19 1;
+#X connect 16 1 12 0;
+#X connect 17 0 8 1;
+#X connect 18 0 8 2;
+#X connect 19 0 20 0;
+#X connect 20 0 21 0;
+#X connect 21 0 22 0;
+#X connect 21 1 23 0;
+#X connect 22 0 25 0;
+#X connect 22 0 26 0;
+#X connect 23 0 25 1;
+#X connect 23 0 26 1;
+#X connect 25 0 18 0;
+#X connect 26 0 17 0;
+#X connect 27 0 19 0;
diff --git a/linear_pan~.pd b/linear_pan~.pd
index 32d29a1..5e58973 100644
--- a/linear_pan~.pd
+++ b/linear_pan~.pd
@@ -1,13 +1,10 @@
-#N canvas 438 88 458 368 10;
+#N canvas 438 88 462 372 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;
@@ -15,13 +12,13 @@
 #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;
+#X obj 193 112 clip 0 1;
+#X connect 0 0 10 0;
+#X connect 1 0 13 0;
+#X connect 6 0 10 1;
+#X connect 10 0 2 0;
+#X connect 10 1 3 0;
+#X connect 11 0 12 0;
+#X connect 12 0 13 0;
+#X connect 13 0 6 0;
+#X connect 13 0 10 2;
-- 
cgit v1.2.1