equal
deleted
inserted
replaced
25 SetLength(LandPixels, LAND_HEIGHT div 2, LAND_WIDTH div 2); |
25 SetLength(LandPixels, LAND_HEIGHT div 2, LAND_WIDTH div 2); |
26 |
26 |
27 SetLength(Land, LAND_HEIGHT, LAND_WIDTH); |
27 SetLength(Land, LAND_HEIGHT, LAND_WIDTH); |
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:= 0.5; |
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 end; |
33 end; |
34 |
34 |
35 procedure InitWorldEdges(); |
35 procedure InitWorldEdges(); |