anchor.diff:      function TileIsWalkable(const Loc: TKMPoint): Boolean; inline;
       function TileIsRoadable(const Loc: TKMPoint): Boolean; inline;
   
  -    function TileCornerTerrain(aX, aY: Word; aCorner: Byte): Word;
  -    function TileCornersTerrains(aX, aY: Word): TKMWordArray;
  -    function TileCornerTerKind(aX, aY: Word; aCorner: Byte): TKMTerrainKind;
  -    procedure GetTileCornersTerKinds(aX, aY: Word; out aCornerTerKinds: TKMTerrainKindCorners);
  +    function TileCornerTerrain(aX, aY: Integer; aCorner: Byte): Word;
  +    function TileCornersTerrains(aX, aY: Integer): TKMWordArray;
  +    function TileCornerTerKind(aX, aY: Integer; aCorner: Byte): TKMTerrainKind;
  +    procedure GetTileCornersTerKinds(aX, aY: Integer; out aCornerTerKinds: TKMTerrainKindCorners);
   
       procedure GetVerticeTerKinds(const aLoc: TKMPoint; out aVerticeTerKinds: TKMTerrainKindCorners);
   
  
positive.code: end;
  
  
  function TKMTerrain.TileCornerTerKind(aX, aY: Word; aCorner: Byte): TKMTerrainKind;
  var
    L: Integer;
  begin
  
negative.code: 
  
  //Get tile corners terrain kinds
  procedure TKMTerrain.GetTileCornersTerKinds(aX, aY: Integer; out aCornerTerKinds: TKMTerrainKindCorners);
  var
    K: Integer;
  begin
  