From 02b2cc44046d8fd4af4ab2c81de9a8db27d67e8c Mon Sep 17 00:00:00 2001
From: mertz
Date: Fri, 17 Jan 2003 13:16:52 +0000
Subject: - passage � zinc 3.2.6g, pour la gestion des index des points d'une
 courbe de bezier

---
 Perl/demos/Tk/demos/zinc_lib/curve_bezier.pl | 10 +++-------
 1 file changed, 3 insertions(+), 7 deletions(-)

diff --git a/Perl/demos/Tk/demos/zinc_lib/curve_bezier.pl b/Perl/demos/Tk/demos/zinc_lib/curve_bezier.pl
index 652f878..ffa426a 100644
--- a/Perl/demos/Tk/demos/zinc_lib/curve_bezier.pl
+++ b/Perl/demos/Tk/demos/zinc_lib/curve_bezier.pl
@@ -163,7 +163,7 @@ sub press {
 	    $ptNum = $1;
 	}
     }
-    print "bezierNum=$bezierNum ptNum=$ptNum\n";
+#    print "bezierNum=$bezierNum ptNum=$ptNum\n";
 }
 
 sub motion {
@@ -206,12 +206,8 @@ sub moveHandle {
 	$zinc->coords($lineB, 0,0, [ $x+$dx, $y+$dy ] );
     }
 
-    ## correctif d'erreur (zinc 3.2.6e)
-    my @coords = $zinc->coords("bezier$bezierNum", 0);
-    $num = $#coords +1 - $ptNum;
-    
-    my ($x,$y,$control) = $zinc->coords("bezier$bezierNum", 0,$num);
-    $zinc->coords("bezier$bezierNum", 0,$num, [ [$x+$dx, $y+$dy, $control] ] );
+    my ($x,$y,$control) = $zinc->coords("bezier$bezierNum", 0,$ptNum-1);
+    $zinc->coords("bezier$bezierNum", 0,$ptNum-1, [ [$x+$dx, $y+$dy, $control] ] );
     &setText ("bezier$bezierNum");
 	
 }
-- 
cgit v1.1