0029470: Samples - eliminate references to deprecated Local Context from MFC sample
[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 vselmode p -set EDGE 1
33 vmoveto 130 80
34 vdump $imagedir/${casename}_local_h_pres.png
35
36 # Explode object on faces
37 explode p F
38 # Create colored shape: set another color to one face
39 vaspects p -subshapes p_3 -setcolor RED
40
41 vselmode p -set 0 1
42 vmoveto 100 100
43 vdump $imagedir/${casename}_h_sub_pres.png
44
45 vselmode p -set EDGE 1
46 vmoveto 130 80
47 vdump $imagedir/${casename}_local_h_sub_pres.png