replaced complicated [expr] with simple [clip]

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

1 files changed, 11 insertions, 14 deletions

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;