anchor.diff:  
   
   //Get tile corner terrain id
  -function TKMTerrain.TileCornerTerrain(aX, aY: Word; aCorner: Byte): Word;
  +function TKMTerrain.TileCornerTerrain(aX, aY: Integer; aCorner: Byte): Word;
   const
     TOO_BIG_VALUE = 50000;
   var
  
positive.code: 
  
  //Get tile corners terrain kinds
  procedure TKMTerrain.GetTileCornersTerKinds(aX, aY: Word; out aCornerTerKinds: TKMTerrainKindCorners);
  var
    K: Integer;
  begin
  
negative.code: end;
  
  
  function TKMTerrain.TileCornerTerKind(aX, aY: Integer; aCorner: Byte): TKMTerrainKind;
  var
    L: Integer;
  begin
  