equal
deleted
inserted
replaced
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; |