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