4c513386 |
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 |
5d7a0489 |
31 | |
32 | checktrinfo s -tri !${triIncmesh1} |
33 | |
4c513386 |
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 |
5d7a0489 |
45 | |
46 | checktrinfo s -tri ${triIncmesh2} |
47 | |
4c513386 |
48 | vfit |
49 | vdump $aShapeNotAutoTr |