aboutsummaryrefslogtreecommitdiff
path: root/Perl/demos/Tk
diff options
context:
space:
mode:
Diffstat (limited to 'Perl/demos/Tk')
-rw-r--r--Perl/demos/Tk/demos/zinc_lib/contours.pl6
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;
}