anchor.diff:  end;
   
   
  -function TKMTerrain.TileCornerTerKind(aX, aY: Word; aCorner: Byte): TKMTerrainKind;
  +function TKMTerrain.TileCornerTerKind(aX, aY: Integer; aCorner: Byte): TKMTerrainKind;
   var
     L: Integer;
   begin
  
positive.code:     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);
  
      procedure GetVerticeTerKinds(const aLoc: TKMPoint; out aVerticeTerKinds: TKMTerrainKindCorners);
  
  
negative.code: 
  
  //Get tile corner terrain id
  function TKMTerrain.TileCornerTerrain(aX, aY: Integer; aCorner: Byte): Word;
  const
    TOO_BIG_VALUE = 50000;
  var
  