hedgewars/uLandGraphics.pas
changeset 818 635e58295079
parent 772 e8d530ca77be
child 828 de0af1ad2610
--- a/hedgewars/uLandGraphics.pas	Fri Mar 21 20:34:48 2008 +0000
+++ b/hedgewars/uLandGraphics.pas	Fri Mar 21 20:41:23 2008 +0000
@@ -215,7 +215,8 @@
     inc(y, dY)
     end;
 
-UpdateLandTexture(0, 1024)
+
+UpdateLandTexture(0, 1023)
 end;
 
 //
@@ -279,8 +280,8 @@
     ny:= ny + dX;
     end;
 
-t:= max(stY - HalfWidth * 3 div 2 - 4, 0);
-ty:= min(stY + HalfWidth * 3 div 2 + 4, 1023) - t;
+t:= max(stY - HalfWidth * 2 - 4, 0);
+ty:= min(stY + HalfWidth * 2 + 4, 1023) - t;
 UpdateLandTexture(t, ty)
 end;