Fix background and horizont positions when zooming
authorunc0rr
Thu, 10 Sep 2009 12:46:56 +0000 (2009-09-10)
changeset 2373 e3989519731b
parent 2372 f3e7a066c2b8
child 2374 d584bb4b836e
Fix background and horizont positions when zooming
hedgewars/CCHandlers.inc
hedgewars/uWorld.pas
--- a/hedgewars/CCHandlers.inc	Thu Sep 10 12:42:01 2009 +0000
+++ b/hedgewars/CCHandlers.inc	Thu Sep 10 12:46:56 2009 +0000
@@ -687,7 +687,7 @@
 
 procedure chZoomOut(var s: shortstring);
 begin
-if ZoomValue > 0.5 then ZoomValue:= ZoomValue - 0.25;
+if ZoomValue > 1.0 then ZoomValue:= ZoomValue - 0.25;
 end;
 
 procedure chChat(var s: shortstring);
--- a/hedgewars/uWorld.pas	Thu Sep 10 12:42:01 2009 +0000
+++ b/hedgewars/uWorld.pas	Thu Sep 10 12:46:56 2009 +0000
@@ -287,8 +287,7 @@
     w:= SpritesData[spr].Width;
     i:= Shift mod w;
     if i > 0 then dec(i, w);
-    dec(i, sw);
-    //addfilelog(inttostr(sw));
+    dec(i, w * (sw div w + 1));
     repeat
       DrawSprite(spr, i, WorldDy + LAND_HEIGHT - SpritesData[spr].Height, 0);
       inc(i, w)