anchor.diff:        begin
           if (recDepth = 0) and FMap.IsOnMap(FLevel, currentPos.X,currentPos.Y) then
           begin
  -          if cur_tinfo.TerType = centerTerType  then
  +          if cur_tinfo.TerType = info.TerType  then
             begin
  -            patternForRule := FMap.TerrainManager.PatternConfig.GetTerrainViewPatternById(TERRAIN_GROUPS[centerTerType], rule.name);
  +            patternForRule := FMap.TerrainManager.PatternConfig.GetTerrainViewPatternById(centerTerGroup, rule.name);
   
               if Assigned(patternForRule) then
               begin
  
positive.code:   currentCoord: TMapCoord;
    delta: TMapCoord;
  begin
  
     while not FInQueue.IsEmpty do
     begin
       centerTile := FInQueue.NMin^.Data;
  
negative.code:     info := GetTileInfo(x,y);
      Result := true;
    end;
  end;
  
  procedure TEditTerrain.Redo;
  