e54706ed |
1 | puts "========================" |
2 | puts "OCC137" |
3 | puts "========================" |
4 | ############################################################### |
5 | #Patch description: |
6 | # |
7 | #MIT010717 : 3D selection management |
8 | #>>> MIT010717 : Selection management |
9 | # |
10 | # * Package OpenGl (OpenGl_execstruct.c) |
11 | # |
12 | # @ Avoid drawing quality problem on selected face, |
13 | # enable/disable Z offset on highlighted faces. |
14 | # |
15 | #>>> MIT010717 : drawing management |
16 | # |
17 | # * Package OpenGl (OpenGl_indexpolygon.c, ...) |
18 | # |
19 | # @ Avoid to undraw faces with confused points |
20 | ############################################################### |
21 | puts "========================" |
22 | |
23 | vinit |
24 | box b 10 10 10 |
25 | vdisplay b |
26 | vfit |
27 | vsetdispmode 1 |
28 | |
29 | puts "Whole shape should be highlighted." |
30 | |
31 | OCC137 1 |
32 | |
33 | set x_coord 105 |
34 | set y_coord 100 |
35 | |
4754e164 |
36 | vmoveto $x_coord $y_coord |
e54706ed |
37 | |
38 | checkcolor $x_coord $y_coord 0 1 1 |
39 | |
40 | set only_screen 1 |
41 | |