anchor.diff:  
   begin
     SetLength(Result, 4);
  -
  -  if aUseTempLand then
  -    Tile := fTempLand[aCell.Y, aCell.X]
  -  else
  -    Tile := GetTerrainTileBasic(gTerrain.Land[aCell.Y, aCell.X]);
   
     for I := 0 to 3 do
     begin
  
positive.code:             if I in Tile.Layer[L].Corners then
                Result[I] := gRes.Sprites.GetGenTerrainInfo(Tile.Layer[L].Terrain).TerKind;
        end;
  end;
  
  
  
negative.code:     LandTerKind: array of array of TKMPainterTile;
      RandomizeTiling: Boolean;
      procedure InitEmpty;
  
      procedure LoadFromFile(const aFileName: UnicodeString);
      procedure SaveToFile(const aFileName: UnicodeString); overload;
  