1056     TryDo(tmpsurf <> nil, 'Error creating pre-land surface', true);

  1056     TryDo(tmpsurf <> nil, 'Error creating pre-land surface', true);

  1057     ColorizeLand(tmpsurf);

  1057     ColorizeLand(tmpsurf);

  1058     AddOnLandObjects(tmpsurf);

  1058     AddOnLandObjects(tmpsurf);

  1059 

  1059 

  1060     LandSurface2LandPixels(tmpsurf);

  1060     LandSurface2LandPixels(tmpsurf);

  1061     if (cReducedQuality and rqBlurryLand) = 0 then

  1062     if (cReducedQuality and rqBlurryLand) = 0 then

  1062         for x:= leftX+2 to rightX-2 do

  1063         for x:= leftX+2 to rightX-2 do

  1063             for y:= topY+2 to LAND_HEIGHT-3 do

  1064             for y:= topY+2 to LAND_HEIGHT-3 do

  1064                 if (Land[y, x] = 0) and 

  1065                 if (Land[y, x] = 0) and 

  1065                    (((Land[y, x-1] <> 0) and ((Land[y+1,x]<>0)) or (Land[y-1,x]<>0)) or

  1066                    (((Land[y, x-1] <> 0) and ((Land[y+1,x]<>0)) or (Land[y-1,x]<>0)) or