746bb46a |
1 | |
e54706ed |
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 | |
4754e164 |
39 | vmoveto $x_coord $y_coord |
e54706ed |
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 | set only_screen 1 |