0029740: Draw Harness - eliminate redundant casts to AIS_InteractiveObject
[occt.git] / tests / bugs / vis / bug137_2
1
2 puts "========================"
3 puts "OCC137"
4 puts "========================"                                                                                         
5 ###############################################################
6 #Patch description:
7 #
8 #MIT010717 : 3D selection management
9 #>>>     MIT010717 : Selection management 
10 #
11 #        * Package OpenGl (OpenGl_execstruct.c) 
12 #
13 #          @ Avoid drawing quality problem on selected face, 
14 #            enable/disable Z offset on highlighted faces. 
15 #
16 #>>>     MIT010717 : drawing management 
17 #
18 #        * Package OpenGl (OpenGl_indexpolygon.c, ...) 
19 #
20 #          @ Avoid to undraw faces with confused points 
21 ###############################################################
22 puts "========================"
23
24 vinit
25 box b 10 10 10
26 vdisplay b
27 vfit
28 vsetdispmode 1
29
30 puts "Only top face should be highlighted."
31
32 vselmode 4 1
33
34 OCC137 1
35
36 set x_coord 105
37 set y_coord 100
38
39 vmoveto $x_coord $y_coord
40
41 checkcolor $x_coord $y_coord 0 1 1
42
43 set x_coord 105
44 set y_coord 340
45
46 checkcolor $x_coord $y_coord 0.78 0.54 0.09
47
48 checkview -screenshot -3d -path ${imagedir}/${test_image}.png