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
---
 linear_pan~.pd | 25 +++++++++++--------------
 1 file changed, 11 insertions(+), 14 deletions(-)

(limited to 'linear_pan~.pd')

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