anchor.diff:    end;
   
   var
  -  centerTerType, terType: TTerrainType;
  +  terType: TTerrainType;
     centerTerGroup: TTerrainGroup;
   
     totalPoints: Integer;
  
positive.code:     begin
        cur_tinfo := getTinfo(cx,cy);
  
        if cur_tinfo.TerType <> centerTerType then
          isAlien := True;
      end;
  
  
negative.code:     info := GetTileInfo(x,y);
      Result := true;
    end;
  end;
  
  procedure TEditTerrain.Redo;
  