hedgewars/uLand.pas
changeset 7974 7ac6699b6228
parent 7939 f951c4b5b335
child 8003 7d8bce524daf
equal deleted inserted replaced
7972:0dffb91eeb82 7974:7ac6699b6228
    52     else
    52     else
    53         SetLength(LandPixels, LAND_HEIGHT div 2, LAND_WIDTH div 2);
    53         SetLength(LandPixels, LAND_HEIGHT div 2, LAND_WIDTH div 2);
    54 
    54 
    55     SetLength(Land, LAND_HEIGHT, LAND_WIDTH);
    55     SetLength(Land, LAND_HEIGHT, LAND_WIDTH);
    56     SetLength(LandDirty, (LAND_HEIGHT div 32), (LAND_WIDTH div 32));
    56     SetLength(LandDirty, (LAND_HEIGHT div 32), (LAND_WIDTH div 32));
       
    57     // 0.5 is already approaching on unplayable
       
    58     if (width div 4096 >= 2) or (height div 2048 >= 2) then cMaxZoomLevel:= 0.5;
       
    59     cMinMaxZoomLevelDelta:= cMaxZoomLevel - cMinZoomLevel
    57     end;
    60     end;
    58 end;
    61 end;
    59 
    62 
    60 procedure ColorizeLand(Surface: PSDL_Surface);
    63 procedure ColorizeLand(Surface: PSDL_Surface);
    61 var tmpsurf: PSDL_Surface;
    64 var tmpsurf: PSDL_Surface;