a1378a86c7f376e44dd07eeb4ced5c5bb1a9ac49
[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 set tri_info [trinfo s]
32 regexp { +([-0-9.+eE]+) +triangles} $tri_info full triAutoTrShape
33 vfit
34 vdump $aShapeAutoTr
35
36 vclear
37 vdefaults -autoTriang off
38 tclean  s
39 incmesh s 0.1 -a 45
40 set tri_info [trinfo s]
41 regexp { +([-0-9.+eE]+) +triangles} $tri_info full triIncmesh2
42
43 vdisplay s
44 set tri_info [trinfo s]
45 regexp { +([-0-9.+eE]+) +triangles} $tri_info full triNotAutoTrShape
46 vfit
47 vdump $aShapeNotAutoTr
48
49 if {${triIncmesh1} == ${triAutoTrShape}} {
50   puts "ERROR : Test failed. Incorrect triangulation in case of enabled auto triangulation feature."
51 }
52 if {${triIncmesh2} != ${triNotAutoTrShape}} {
53   puts "ERROR : Test failed. Incorrect triangulation in case of disabled auto triangulation feature."
54 }