+ ShapeAnalysis_ShapeTolerance aSatol;
+ Standard_Real ainitTol = aSatol.Tolerance(theOldShape,0);
+
+ // PAL6487: san -- preserve the original shape from being modified
+ TopoDS_Shape anOldShape;
+ TColStd_IndexedDataMapOfTransientTransient aMap;
+ TNaming_CopyShape::CopyTool(theOldShape, aMap, anOldShape);
+ // PAL6487: san -- preserve the original shape from being modified
+
+ theNewShape = myOperations.PrepareShape(anOldShape,mySaveHistoryMode,myLevel);