0027126: Create command checktrinfo to verify meshes
[occt.git] / tests / bugs / modalg_6 / bug26897
1 puts "============"
2 puts "OCC26897"
3 puts "============"
4 puts ""
5 ###############################
6 ## The mesh should not rebuild on copied shape
7 ###############################
8
9 pload MODELING
10 set tol 1.0e-7
11
12 cone c 0 0 0 45 0
13 mkface f c 0 6.28318530717958647 0 10
14
15 # Mesh the face and store initial data
16 incmesh f 0.1
17 set base [trinfo f]
18 regexp {This shape contains ([0-9]+) triangles.\s* ([0-9]+) nodes.} $base dummy base_tria base_nodes
19 regexp {Maximal deflection ([-0-9.+eE]+)} $base dummy base_defl
20
21 # Copy face
22 tcopy -m f fc
23
24 # Remesh initial face and check it is not changed
25 incmesh f 1.0
26 checktrinfo f -tri ${base_tria} -nod ${base_nodes} -defl ${base_defl} -tol_abs_defl ${tol}
27
28 # Compare mesh info from copied shape
29 checktrinfo fc -tri ${base_tria} -nod ${base_nodes} -defl ${base_defl} -tol_abs_defl ${tol}
30
31 # Remesh copied shape and compare mesh once again
32 incmesh fc 1.0
33 checktrinfo fc -tri ${base_tria} -nod ${base_nodes} -defl ${base_defl} -tol_abs_defl ${tol}
34
35 copy fc result
36 checkview -display result -3d -path ${imagedir}/${test_image}.png