hedgewars/uLandUtils.pas
branchqmlfrontend
changeset 11071 3851ce4f2061
parent 10994 cd7f918eed30
child 11704 1694b379c83f
--- a/hedgewars/uLandUtils.pas	Sat Aug 15 16:23:00 2015 +0300
+++ b/hedgewars/uLandUtils.pas	Thu Sep 03 20:59:48 2015 +0300
@@ -27,7 +27,7 @@
     SetLength(Land, LAND_HEIGHT, LAND_WIDTH);
     SetLength(LandDirty, (LAND_HEIGHT div 32), (LAND_WIDTH div 32));
     // 0.5 is already approaching on unplayable
-    if (width div 4096 >= 2) or (height div 2048 >= 2) then cMaxZoomLevel:= 0.5;
+    if (width div 4096 >= 2) or (height div 2048 >= 2) then cMaxZoomLevel:= cMaxZoomLevel/2;
     cMinMaxZoomLevelDelta:= cMaxZoomLevel - cMinZoomLevel
     end;
 end;