0027126: Create command checktrinfo to verify meshes
[occt.git] / tests / bugs / vis / bug23200
1 puts "============"
2 puts "CR23200"
3 puts "Check that the shape is automatic re-triangulated with deflection-check logic"
4 puts "in case of enabled auto triangulation feature (its own triangulation can be lost)."
5 puts "And it keeps its already computed triangulation"
6 puts "in case of disabled auto triangulation feature."
7 puts "============"
8 puts ""
9
10 set aDefaultShape $imagedir/${casename}_shape.png
11 set aShapeAutoTr $imagedir/${casename}_shape_auto_triangulation.png
12 set aShapeNotAutoTr $imagedir/${casename}_shape_not_auto_triangulation.png
13
14 vinit View1
15 vclear
16 vaxo
17 vsetdispmode 1
18 vdefaults -autoTriang on
19 psphere s 0.5
20 vdisplay s
21 vfit
22 vdump $aDefaultShape
23
24 vclear
25 tclean s
26 incmesh s 0.1 -a 45
27 set tri_info [trinfo s]
28 regexp { +([-0-9.+eE]+) +triangles} $tri_info full triIncmesh1
29
30 vdisplay s
31
32 checktrinfo s -tri !${triIncmesh1}
33
34 vfit
35 vdump $aShapeAutoTr
36
37 vclear
38 vdefaults -autoTriang off
39 tclean  s
40 incmesh s 0.1 -a 45
41 set tri_info [trinfo s]
42 regexp { +([-0-9.+eE]+) +triangles} $tri_info full triIncmesh2
43
44 vdisplay s
45
46 checktrinfo s -tri ${triIncmesh2}
47
48 vfit
49 vdump $aShapeNotAutoTr