From: oan <oan@opencascade.com>
Date: Fri, 2 Apr 2021 08:46:35 +0000 (+0300)
Subject: 0032253: Mesh - The refactored Mesher fails to mesh correctly scaled (planar) faces
X-Git-Url: http://git.dev.opencascade.org/gitweb/?a=commitdiff_plain;h=c5bb75b75460cde8dfb5e027a081aa344a85b3be;p=occt-copy.git

0032253: Mesh - The refactored Mesher fails to mesh correctly scaled (planar) faces

IMeshTools_ShapeExplorer: use transformation without scale factor
---

diff --git a/src/IMeshTools/IMeshTools_ShapeExplorer.cxx b/src/IMeshTools/IMeshTools_ShapeExplorer.cxx
index c80888deab..1ddb7603cd 100644
--- a/src/IMeshTools/IMeshTools_ShapeExplorer.cxx
+++ b/src/IMeshTools/IMeshTools_ShapeExplorer.cxx
@@ -95,6 +95,9 @@ void IMeshTools_ShapeExplorer::Accept (
   for (; aFaceIter.More (); aFaceIter.Next ())
   {
     TopoDS_Shape aFaceNoLoc = aFaceIter.Value ();
+    
+    gp_Trsf aTrsf = (gp_Trsf)(aFaceNoLoc.Location());
+    
     aFaceNoLoc.Location (aEmptyLoc);
     if (!aFaceMap.Add(aFaceNoLoc))
     {
@@ -106,6 +109,9 @@ void IMeshTools_ShapeExplorer::Accept (
     {
       continue;
     }
+    
+    aTrsf.SetScaleFactor (1.0);
+    aFaceNoLoc.Location (TopLoc_Location (aTrsf));
 
     // Explore all edges in face.
     visitEdges (theVisitor, aFace, Standard_False, TopAbs_EDGE);