0025814: Visualization, Prs3d_WFShape::AddPolygon() - always use polygonal representa...
[occt.git] / tests / bugs / vis / bug25814
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 }