From c5bb75b75460cde8dfb5e027a081aa344a85b3be Mon Sep 17 00:00:00 2001
From: oan <oan@opencascade.com>
Date: Fri, 2 Apr 2021 11:46:35 +0300
Subject: [PATCH] 0032253: Mesh - The refactored Mesher fails to mesh correctly
 scaled (planar) faces

IMeshTools_ShapeExplorer: use transformation without scale factor
---
 src/IMeshTools/IMeshTools_ShapeExplorer.cxx | 6 ++++++
 1 file changed, 6 insertions(+)

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);
-- 
2.39.5