diff options
Diffstat (limited to 'Perl/demos/Tk')
| -rw-r--r-- | Perl/demos/Tk/demos/zinc_lib/contours.pl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/Perl/demos/Tk/demos/zinc_lib/contours.pl b/Perl/demos/Tk/demos/zinc_lib/contours.pl index b225d20..039c159 100644 --- a/Perl/demos/Tk/demos/zinc_lib/contours.pl +++ b/Perl/demos/Tk/demos/zinc_lib/contours.pl @@ -178,9 +178,9 @@ sub moveHandle { print "Translating of ", $x-$x_orig, ",", $y-$y_orig, "\n"; # LA LIGNE SUIVANTE EST OK LA 1ERE FOIS ET BUGGUE LES SUIVANTES! # NB: CELA MARCHOTTE POUR LE CONTOUR 0, MAIS CE N'EST PAS CORRECT! - my ($vertexX,$vertxY) = $zinc->coords($curve5,0,1); - print "Vertex: $vertexX,$vertxY\n"; - $zinc->coords($curve5,0,1, [$x-$x_orig, $y-$y_orig]); + my ($vertxX,$vertxY) = $zinc->coords($curve5,0,1); + print "Vertex: $vertxX,$vertxY\n"; + $zinc->coords($curve5,0,1, [$vertxX+($x-$x_orig), $vertxY+($y-$y_orig)]); $x_orig = $x; $y_orig = $y; } |