X-Git-Url: https://git.mxchange.org/?a=blobdiff_plain;f=utils%2FModeller%2Fac3d-despeckle;h=abecec42c2452894a84106b4ff3126306016e2c5;hb=030742fa4ae7d99facb517381da71fa404c4ee2b;hp=d9ff26566da7e84964e2880437f9d11a8e027f1c;hpb=837cf56c1fb80e0f81a505acaf985a872133fa3a;p=flightgear.git

diff --git a/utils/Modeller/ac3d-despeckle b/utils/Modeller/ac3d-despeckle
index d9ff26566..abecec42c 100755
--- 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,.*\/,,;
@@ -131,7 +130,7 @@ while (<>) {
 		if ($n < 3 or $n > 4) {
 			report("?") if $VERBOSE;
 			unless ($NOOP) {
-				print scalar(<>) foreach (0 .. $n);
+				print scalar(<>) foreach (1 .. $n);
 			}
 			next;
 		}
@@ -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;