on ne devrait plus faire de divisions par 0 lors d'un scaling

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;