0027126: Create command checktrinfo to verify meshes
[occt.git] / tests / bugs / mesh / bug25469_1
1 puts "========="
2 puts "CR25469"
3 puts "========="
4 puts ""
5 ###############################################
6 # BRepMesh corrupts triangulation of another not connected shape
7 ###############################################
8
9 restore [locate_data_file bug25469_common_edge.brep] a
10
11 explode a
12
13 incmesh a_1 0.04
14 set report [tricheck a_1]
15 if {$report != ""} {
16    puts "Error: incorrect meshing of shape 1"
17 }
18
19 incmesh a_2 0.04
20 set report [tricheck a_1]
21 if {$report != ""} {
22    puts "Error: meshing of shape 2 corrupts mesh of shape 1"
23 }
24
25 vinit
26 vsetdispmode 1
27 vdisplay a_1 a_2
28 vfit
29
30 checkview -screenshot -3d -path ${imagedir}/${test_image}.png