anchor.diff:          Inc(Cnt);
   
       //Consider tile has parameter if it has 3 corners with that parameter or if it has 2 corners and base layer has the parameter
  -    Result := (Cnt >= 3) or ((Cnt = 2) and aCheckTileFunc(Land[Y, X].BaseLayer.Terrain));
  +    Result := (Cnt >= 3) or (aAllow2CornerTiles and (Cnt = 2) and aCheckTileFunc(Land[Y, X].BaseLayer.Terrain));
     end;
   end;
   
  
positive.code: end;
  
  
  function TKMTerrain.TileHasParameter(X,Y: Word; aCheckTileFunc: TBooleanWordFunc): Boolean;
  var
    K, Cnt: Integer;
    Corners: TKMWordArray;
  
negative.code: //  Ter: Word;
  //  TerInfo: TKMGenTerrainInfo;
  begin
    Result := TileHasParameter(Loc.X, Loc.Y, fTileset.TileIsRoadable, False);
  //  Result := fTileset.TileIsRoadable(Land[Loc.Y, Loc.X].BaseLayer.Terrain);
  //  for L := 0 to Land[Loc.Y, Loc.X].LayersCnt - 1 do
  //  begin
  