0028247: Effect of minSize parameter of BRepMesh_IncrementalMesh seems to be too...
[occt.git] / tests / bugs / mesh / bug28247
index c73a9fb..408b30c 100644 (file)
@@ -6,40 +6,35 @@ puts ""
 # Effect of minSize parameter of BRepMesh_IncrementalMesh seems to be too strong
 ################################################################################
 
-restore [locate_data_file bug28247_face.brep] f
-whatis f
-tolerance f
+restore [locate_data_file bug28247_face.brep] result
+whatis result
+tolerance result
 
 vinit
+vdefaults -autoTriang 0
 vsetdispmode 1
-vdisplay f
-vfit
 
-tclean f
-incmesh f 0.59
-trinfo f
-vdisplay f
+tclean result
+incmesh result 0.59
+vdisplay result -redisplay
 vfit
+
+checktrinfo result -tri 1235 
 checkview -screenshot -3d -path ${imagedir}/${test_image}-1.png
 
-tclean f
-incmesh f 0.59 -a 11.45
-set tri_info_1 [trinfo f]
-regexp { +([-0-9.+eE]+) +triangles} $tri_info_1 full tri_1
-regexp { +([-0-9.+eE]+) +nodes} $tri_info_1 full nod_1
-vdisplay f
+tclean result
+incmesh result 0.59 -a 11.45
+vdisplay result -redisplay
 vfit
+
+checktrinfo result -tri 6438
 checkview -screenshot -3d -path ${imagedir}/${test_image}-2.png
 
-tclean f
-incmesh f 0.59 -a 11.45 -min 0.035
-set tri_info_2 [trinfo f]
-regexp { +([-0-9.+eE]+) +triangles} $tri_info_2 full tri_2
-regexp { +([-0-9.+eE]+) +nodes} $tri_info_2 full nod_2
-vdisplay f
+tclean result
+incmesh result 0.59 -a 11.45 -min 0.035
+vdisplay result -redisplay
 vfit
+
+checktrinfo result -tri 7079
 checkview -screenshot -3d -path ${imagedir}/${test_image}-3.png
 
-if { ${tri_1} > ${tri_2} } {
-   puts "Error: Effect of minSize parameter of BRepMesh_IncrementalMesh seems to be too strong"
-}