2c12770c |
1 | puts "============" |
2 | puts "CR25814" |
3 | puts "Check that the discretization of the sub-shape is identical in shaded and wireframe modes" |
4 | puts "if the whole shape was already displayed" |
5 | puts "============" |
6 | puts "" |
7 | |
8 | set aSubShapeTriang $imagedir/${casename}_subshape_triangulation.png |
9 | set aShapeTriang $imagedir/${casename}_shape_triangulation.png |
10 | set aDiff $imagedir/${casename}_diff.png |
11 | |
12 | pcylinder c 100 350 |
13 | explode c f |
14 | |
15 | vinit View1 w=900 h=900 |
16 | vclear |
17 | vsetdispmode 1 |
18 | |
19 | vdisplay c_3 |
20 | vfit |
21 | vzoom 4 |
22 | vtranslateview 70 20 0 |
23 | vmoveto 200 200 |
24 | vdump $aSubShapeTriang |
25 | |
26 | vclear |
27 | tclean c_3 |
28 | |
29 | vdisplay c |
30 | vfit |
31 | vclear |
32 | |
33 | vdisplay c_3 |
34 | vfit |
35 | vzoom 4 |
36 | vtranslateview 70 20 0 |
37 | vmoveto 200 200 |
38 | vdump $aShapeTriang |
39 | |
40 | set aDiffRes [diffimage $aSubShapeTriang $aShapeTriang 0.1 0 0 $aDiff] |
41 | if {$aDiffRes != 0} { |
42 | puts "ERROR : Test failed: there is a difference between images. Discretization of the sub-shape in wireframe mode is incorrect" |
43 | } |