0025551: BRepMesh can produce internal nodes outside the face interior based on disto...
[occt.git] / tests / bugs / mesh / bug25551
index 74e2f39..e4ddf10 100644 (file)
@@ -1,5 +1,3 @@
-puts "TODO OCC25551 ALL: Error: BRepMesh can produce internal nodes outside the face interior based on distorted BSpline surface"
-
 puts "================"
 puts "OCC25551"
 puts "================"
@@ -8,26 +6,27 @@ puts ""
 # BRepMesh can produce internal nodes outside the face interior based on distorted BSpline surface
 #######################################################################################
 
-restore [locate_data_file bug25551_m-a-i-B6.brep] res
-
-explode res f
-
-triangles res_2
-
-set ExpectedArea 0.208305
-set tol_abs 0.00001
+restore [locate_data_file bug25551_m-a-i-B6.brep] result
 
-set prop [ sprops res_2]
-regexp {Mass\s*:\s*([0-9.e+-]+)} $prop prop_s Area
-
-if { [expr abs($Area - $ExpectedArea)] > $tol_abs } {
-  puts "OK: BRepMesh not produce internal nodes outside the face interior based on distorted BSpline surface"
-} else {
-  puts "Error: BRepMesh can produce internal nodes outside the face interior based on distorted BSpline surface"
-}
+tclean result
+vdisplay -noupdate -redisplay result
+vsetdispmode 1
+vclear
+explode result f
+triangles result_2
+isos result_2 0
 
 smallview
-donly res_2
+donly result_2
 top
 fit
-checkview -screenshot -2d -path ${imagedir}/${test_image}.png
+
+vtop
+vdefaults -autoTriang 0
+vdisplay result_2
+vdefaults -autoTriang 1
+vfit
+
+checkview -screenshot -2d -path ${imagedir}/${test_image}_2d.png
+checkview -screenshot -3d -path ${imagedir}/${test_image}_3d.png