0027986: Visualization - AIS_InteractiveContext::SetLocation() does not update dynami...
[occt.git] / tests / bugs / vis / bug25540
1 puts "============"
2 puts "CR25540"
3 puts "Check that the discretization of local selection,"
4 puts "wireframe and shaded presentation of shape is identical."
5 puts "============"
6 puts ""
7
8 vinit View1 w=912 h=912
9 vclear
10
11 # Create object in shaded mode
12 vsetdispmode 1
13 pcylinder p 1 100
14 vdisplay p
15 vfit
16
17 # Setup field of view
18 vrotate 1 1.5 0
19 vfit
20 vtranslateview 24 18.5 0
21 vzoom 32
22 vtranslateview -0.1 -0.6 0
23 vzoom 2
24
25 vdump $imagedir/${casename}_shaded_pres.png
26
27 vmoveto 100 100
28 vdump $imagedir/${casename}_h_pres.png
29
30 # Activate the local selection by edges and hilight small circle edge.
31 # It's discretization should coincide with discretization of whole shape hiligting.
32 vsetam 2
33 vmoveto 130 80
34 vdump $imagedir/${casename}_local_h_pres.png
35
36 vunsetam
37
38 # Explode object on faces
39 explode p F
40 # Create colored shape: set another color to one face
41 vaspects p -subshapes p_3 -setcolor RED
42
43 vsetam 0
44 vmoveto 100 100
45 vdump $imagedir/${casename}_h_sub_pres.png
46
47 vsetam 2
48 vmoveto 130 80
49 vdump $imagedir/${casename}_local_h_sub_pres.png