Fix problem with invalid shape generation in MakePipe function: replace previous...

diff --git a/src/GEOMImpl/GEOMImpl_PipeDriver.cxx b/src/GEOMImpl/GEOMImpl_PipeDriver.cxx
index 530d3801215c91ab19d37bc0bcaa1abb8db21385..9812da16af8b6518df08ad6fb722c75c6fe71e5c 100644 (file)
--- a/src/GEOMImpl/GEOMImpl_PipeDriver.cxx
+++ b/src/GEOMImpl/GEOMImpl_PipeDriver.cxx
@@ -97,6 +97,13 @@
 
 #include "utilities.h"
 
+//////////////////////////////////////////////////////////////////////////
+// Uncomment below macro to perform gluing in the end of MakePipe operation
+// as fix of issue 0020207.
+//////////////////////////////////////////////////////////////////////////
+//#define GLUE_0020207
+
+
 //=======================================================================
 //function : GetID
 //purpose  :
@@ -2477,6 +2484,8 @@ Standard_Integer GEOMImpl_PipeDriver::Execute (TFunction_Logbook& log) const
   }
 
   // Glue (for bug 0020207)
+  // No gluing is needed as the bug 0020207 is fixed in OCCT.
+#ifdef GLUE_0020207
   TopExp_Explorer anExpV (aShape, TopAbs_VERTEX);
   if (anExpV.More()) {
     Standard_Real aVertMaxTol = -RealLast();
@@ -2490,6 +2499,7 @@ Standard_Integer GEOMImpl_PipeDriver::Execute (TFunction_Logbook& log) const
     aShape = GEOMImpl_GlueDriver::GlueFaces(aShape, aVertMaxTol, Standard_True);
     //aShape = GEOMImpl_GlueDriver::GlueFaces(aShape, Precision::Confusion(), Standard_True);
   }
+#endif
 
   TopoDS_Shape aRes = GEOMUtils::CompsolidToCompound(aShape);
   aFunction->SetValue(aRes);