hedgewars/uLand.pas
changeset 12092 78e9fbd52ffc
parent 12091 ba1807589eaa
child 12105 166725555e57
--- a/hedgewars/uLand.pas	Sat Nov 26 23:46:31 2016 +0100
+++ b/hedgewars/uLand.pas	Sun Nov 27 00:00:25 2016 +0100
@@ -706,7 +706,7 @@
                         c:= AMask
                     else
                         c:= AMask or RMask or GMask; // FF00FFFF
-                    if (y + rightX - 5 + w) mod 32 < 16 then
+                    if (y + rightX - w) mod 32 < 16 then
                         c2:= AMask
                     else
                         c2:= AMask or RMask or GMask; // FF00FFFF
@@ -714,12 +714,12 @@
                     if (cReducedQuality and rqBlurryLand) = 0 then
                         begin
                         LandPixels[y, leftX + w]:= c;
-                        LandPixels[y, rightX - 5 + w]:= c2;
+                        LandPixels[y, rightX - w]:= c2;
                         end
                     else
                         begin
                         LandPixels[y div 2, (leftX + w) div 2]:= c;
-                        LandPixels[y div 2, (rightX - 5 + w) div 2]:= c2;
+                        LandPixels[y div 2, (rightX - w) div 2]:= c2;
                         end;
                     end;