diff options
author | mertz | 2002-03-26 13:51:58 +0000 |
---|---|---|
committer | mertz | 2002-03-26 13:51:58 +0000 |
commit | dea4ce32cdccac9867535440e754d7a95fa1d656 (patch) | |
tree | ed9e24c6cdf136c325b2e9bdf6d1c77677054617 /Perl/demos | |
parent | 14a2b9aff38d096a9a5bc6360d4b698aa711026f (diff) | |
download | tkzinc-dea4ce32cdccac9867535440e754d7a95fa1d656.zip tkzinc-dea4ce32cdccac9867535440e754d7a95fa1d656.tar.gz tkzinc-dea4ce32cdccac9867535440e754d7a95fa1d656.tar.bz2 tkzinc-dea4ce32cdccac9867535440e754d7a95fa1d656.tar.xz |
on ne devrait plus faire de divisions par 0 lors d'un scaling
Diffstat (limited to 'Perl/demos')
-rw-r--r-- | Perl/demos/Tk/demos/zinc_lib/tkZincLogo.pl | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/Perl/demos/Tk/demos/zinc_lib/tkZincLogo.pl b/Perl/demos/Tk/demos/zinc_lib/tkZincLogo.pl index 076bc0f..0102be3 100644 --- a/Perl/demos/Tk/demos/zinc_lib/tkZincLogo.pl +++ b/Perl/demos/Tk/demos/zinc_lib/tkZincLogo.pl @@ -125,6 +125,7 @@ sub zoom { } else { $maxy = $cur_y; } + return if ($maxx == 0 || $maxy == 0); $sx = 1.0 + ($lx - $cur_x)/$maxx; $sy = 1.0 + ($ly - $cur_y)/$maxy; $cur_x = $lx; |