anchor.diff:          //so f.e. for 0 corner, and tile 'above' (tile to the top from tasrget cell(aCell)) we have to get terrainKind from corner 3
           //3 = 1 (I, start from top left alwaysm top tile is the 2nd tile) + 0 (aCorner) + 2
           //and so on
  -        TerKinds[K] := GetTileCornersTerrainKinds(RectCorners[J], fUseTempLand)[(I+aCorner+2) mod 4];
  +        TerKinds[K] := GetTileCornersTKinds(RectCorners[J])[(I+aCorner+2) mod 4];
           // Find diagTerKind, as its preferrable over other cells
           if (aCell.X <> RectCorners[J].X) and (aCell.Y <> RectCorners[J].Y) then
             DiagTerKind := TerKinds[K];
  
positive.code:   Tile: TKMTerrainTileBasic;
  
  begin
    SetLength(Result, 4);
  
    for I := 0 to 3 do
    begin
      TerKindFound[I] := False;
      Result[I] := tkCustom;
    end;
  
    if not aUseOnlyTileOwnTK then
    begin
      CheckTerKind(aCell.X,   aCell.Y,   0);
      CheckTerKind(aCell.X+1, aCell.Y,   1);
  
negative.code:     TerKind: TKMTerrainKind;
    begin
      if not gTerrain.VerticeInMapCoords(aX, aY)
        or (aGetOnlyTileCornersTK and not BrushAreaTerKindContains(KMPoint(aX, aY))) then
        Exit;
  
      TerKind := LandTerKind[aY,aX].TerKind;
  