# HG changeset patch
# User unc0rr
# Date 1252586816 0
# Node ID e3989519731b996676b9222fe817bdd795c7bcaf
# Parent  f3e7a066c2b8e2b61eaeed1b65c2e3ccd248925c
Fix background and horizont positions when zooming

diff -r f3e7a066c2b8 -r e3989519731b hedgewars/CCHandlers.inc
--- 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);
diff -r f3e7a066c2b8 -r e3989519731b hedgewars/uWorld.pas
--- 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)