hedgewars/uLand.pas
changeset 7974 7ac6699b6228
parent 7939 f951c4b5b335
child 8003 7d8bce524daf
--- a/hedgewars/uLand.pas	Tue Nov 06 00:28:47 2012 +0400
+++ b/hedgewars/uLand.pas	Mon Nov 05 22:03:26 2012 -0500
@@ -54,6 +54,9 @@
 
     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;
+    cMinMaxZoomLevelDelta:= cMaxZoomLevel - cMinZoomLevel
     end;
 end;