hedgewars/uLandUtils.pas
changeset 11709 1694b379c83f
parent 10994 cd7f918eed30
child 12316 1b5a4807f8f4
equal deleted inserted replaced
11708:607e2e43acf0 11709:1694b379c83f
    28     SetLength(LandDirty, (LAND_HEIGHT div 32), (LAND_WIDTH div 32));
    28     SetLength(LandDirty, (LAND_HEIGHT div 32), (LAND_WIDTH div 32));
    29     // 0.5 is already approaching on unplayable
    29     // 0.5 is already approaching on unplayable
    30     if (width div 4096 >= 2) or (height div 2048 >= 2) then cMaxZoomLevel:= cMaxZoomLevel/2;
    30     if (width div 4096 >= 2) or (height div 2048 >= 2) then cMaxZoomLevel:= cMaxZoomLevel/2;
    31     cMinMaxZoomLevelDelta:= cMaxZoomLevel - cMinZoomLevel
    31     cMinMaxZoomLevelDelta:= cMaxZoomLevel - cMinZoomLevel
    32     end;
    32     end;
       
    33 initScreenSpaceVars();
    33 end;
    34 end;
    34 
    35 
    35 procedure InitWorldEdges();
    36 procedure InitWorldEdges();
    36 var cy, cx, lx, ly: LongInt;
    37 var cy, cx, lx, ly: LongInt;
    37     found: boolean;
    38     found: boolean;