+
−unit uLandUtils;
+
−interface
+
−
+
−procedure ResizeLand(width, height: LongWord);
+
−
+
−implementation
+
−uses uUtils, uConsts, uVariables;
+
−
+
−procedure ResizeLand(width, height: LongWord);
+
−var potW, potH: LongInt;
+
−begin
+
−potW:= toPowerOf2(width);
+
−potH:= toPowerOf2(height);
+
−if (potW <> LAND_WIDTH) or (potH <> LAND_HEIGHT) then
+
−    begin
+
−    LAND_WIDTH:= potW;
+
−    LAND_HEIGHT:= potH;
+
−    LAND_WIDTH_MASK:= not(LAND_WIDTH-1);
+
−    LAND_HEIGHT_MASK:= not(LAND_HEIGHT-1);
+
−    cWaterLine:= LAND_HEIGHT;
+
−    if (cReducedQuality and rqBlurryLand) = 0 then
+
−        SetLength(LandPixels, LAND_HEIGHT, LAND_WIDTH)
+
−    else
+
−        SetLength(LandPixels, LAND_HEIGHT div 2, LAND_WIDTH div 2);
+
−
+
−    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;
+
−
+
−end.