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: 
  
  //Get tile corners terrain kinds
  procedure TKMTerrain.GetTileCornersTerKinds(aX, aY: Word; out aCornerTerKinds: TKMTerrainKindCorners);
  var
    K: Integer;
  begin
  
negative.code: 
  
  //Get tile corners terrain id
  function TKMTerrain.TileCornersTerrains(aX, aY: Integer): TKMWordArray;
  var
    K: Integer;
    cornersTKinds: TKMTerrainKindCorners;
  