simplification

diff --git a/utils/Modeller/ac3d-despeckle b/utils/Modeller/ac3d-despeckle
index d9ff26566da7e84964e2880437f9d11a8e027f1c..fc4c3466dc6ceeae2e889a2f95cc6e9e71162452 100755 (executable)
--- a/utils/Modeller/ac3d-despeckle
+++ b/utils/Modeller/ac3d-despeckle
@@ -10,7 +10,6 @@
 # texture area if necessary.
 #
 use strict;
-use POSIX qw(floor);
 
 my $SELF = $0;
 $SELF =~ s,.*\/,,;
@@ -156,8 +155,8 @@ while (<>) {
                        $y = 0.0 if $y < 0.0;
                        $y = 1.0 - $PIXH if $y > 1.0 - $PIXH;
 
-                       $x -= $x - POSIX::floor($x / $PIXW) * $PIXW;
-                       $y -= $y - POSIX::floor($y / $PIXH) * $PIXH;
+                       $x = int($x / $PIXW) * $PIXW;
+                       $y = int($y / $PIXH) * $PIXH;
 
                        $ref0[1] = $x, $ref0[2] = $y;
                        $ref1[1] = $x + $PIXW;