diff options
| author | lecoanet | 2002-12-09 14:55:46 +0000 |
|---|---|---|
| committer | lecoanet | 2002-12-09 14:55:46 +0000 |
| commit | 009bc6b148ef420f685e63b9e35ffcd400a91cf7 (patch) | |
| tree | 0a01757744d19ad3c648a39109a59ef31570edac /Perl/demos/Tk | |
| parent | 0b88f05b6c90b404ac6ab3aeeaaeb8b439530cf1 (diff) | |
| download | tkzinc-009bc6b148ef420f685e63b9e35ffcd400a91cf7.zip tkzinc-009bc6b148ef420f685e63b9e35ffcd400a91cf7.tar.gz tkzinc-009bc6b148ef420f685e63b9e35ffcd400a91cf7.tar.bz2 tkzinc-009bc6b148ef420f685e63b9e35ffcd400a91cf7.tar.xz | |
* Correction du code permettant de d�placer le sommet d'un
contour (poign�e noire).
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; } |