diff options
author | mertz | 2003-01-17 13:16:52 +0000 |
---|---|---|
committer | mertz | 2003-01-17 13:16:52 +0000 |
commit | 02b2cc44046d8fd4af4ab2c81de9a8db27d67e8c (patch) | |
tree | da8673b59073af3ff3ddeae76c93251c62fbdd08 | |
parent | e1bc5abf47ae6dbfab63b75f1a806436f75d176d (diff) | |
download | tkzinc-02b2cc44046d8fd4af4ab2c81de9a8db27d67e8c.zip tkzinc-02b2cc44046d8fd4af4ab2c81de9a8db27d67e8c.tar.gz tkzinc-02b2cc44046d8fd4af4ab2c81de9a8db27d67e8c.tar.bz2 tkzinc-02b2cc44046d8fd4af4ab2c81de9a8db27d67e8c.tar.xz |
- passage � zinc 3.2.6g, pour la gestion des index des points d'une courbe de bezier
-rw-r--r-- | Perl/demos/Tk/demos/zinc_lib/curve_bezier.pl | 10 |
1 files 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"); } |