hedgewars/uLandGraphics.pas
changeset 8828 4ae5233abe76
parent 8795 b5b79a8f9354
child 8833 c13ebed437cb
child 9080 9b42757d7e71
--- a/hedgewars/uLandGraphics.pas	Sun Mar 31 15:45:24 2013 -0400
+++ b/hedgewars/uLandGraphics.pas	Mon Apr 01 23:07:24 2013 +0400
@@ -382,10 +382,10 @@
         FillRoundInLand(x, y, Radius - 15, nullPixel);
     FillRoundInLand(X, Y, Radius, 0);
     FillRoundInLand(x, y, Radius + 4, ebcPixel);
-    tx:= Max(X - Radius - 1, 0);
-    dx:= Min(X + Radius + 1, LAND_WIDTH) - tx;
-    ty:= Max(Y - Radius - 1, 0);
-    dy:= Min(Y + Radius + 1, LAND_HEIGHT) - ty;
+    tx:= Max(X - Radius - 5, 0);
+    dx:= Min(X + Radius + 5, LAND_WIDTH) - tx;
+    ty:= Max(Y - Radius - 5, 0);
+    dy:= Min(Y + Radius + 5, LAND_HEIGHT) - ty;
     UpdateLandTexture(tx, dx, ty, dy, false);
 end;