From: oan <oan@opencascade.com>
Date: Wed, 31 Mar 2021 11:54:00 +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=6c403f08f06dc5adcd57bade3c77b3af4d0a0295;p=occt-copy.git

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

IMeshTools_ShapeExplorer: process face without any transformation
---

diff --git a/src/IMeshTools/IMeshTools_ShapeExplorer.cxx b/src/IMeshTools/IMeshTools_ShapeExplorer.cxx
index 322b10beaa..c80888deab 100644
--- a/src/IMeshTools/IMeshTools_ShapeExplorer.cxx
+++ b/src/IMeshTools/IMeshTools_ShapeExplorer.cxx
@@ -101,7 +101,7 @@ void IMeshTools_ShapeExplorer::Accept (
       continue; // already processed
     }
 
-    const TopoDS_Face& aFace = TopoDS::Face (aFaceIter.Value ());
+    const TopoDS_Face& aFace = TopoDS::Face (aFaceNoLoc);
     if (!BRep_Tool::IsGeometric (aFace))
     {
       continue;
diff --git a/tests/bugs/mesh/bug32253 b/tests/bugs/mesh/bug32253
new file mode 100644
index 0000000000..7dca1fa708
--- /dev/null
+++ b/tests/bugs/mesh/bug32253
@@ -0,0 +1,23 @@
+puts "======="
+puts "0032253: Mesh - The refactored Mesher fails to mesh correctly scaled (planar) faces"
+puts "======="
+puts ""
+
+pload XDE
+
+XOpen [locate_data_file bug32253.xbf] D
+
+XGetOneShape result D
+
+vinit
+vdisplay result -dispMode 1
+vfit
+
+set log [tricheck result]
+if { [llength $log] != 0 } {
+  puts "ERROR: OCC32253 is reproduced. Non-triangulated faces have been detected."
+} else {
+  puts "Mesh is OK"
+}
+
+checkview -screenshot -3d -path ${imagedir}/${test_image}.png