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 bottom face should be highlighted." |
31 | |
32 | vselmode 4 1 |
33 | |
34 | OCC137 1 |
35 | OCC137_z |
36 | |
37 | set x_coord 105 |
38 | set y_coord 350 |
39 | |
4754e164 |
40 | vmoveto $x_coord $y_coord |
e54706ed |
41 | |
42 | set x_coord 105 |
43 | set y_coord 340 |
44 | |
45 | checkcolor $x_coord $y_coord 0 1 1 |
46 | |
47 | set x_coord 105 |
48 | set y_coord 340 |
4754e164 |
49 | vviewparams 60.6309 7.07107 4.08248 0.592163 -0.60038 -0.537482 0.369921 -0.390032 0.843228 -3.28175 3.38875 3.0464 |
e54706ed |
50 | |
51 | checkcolor $x_coord $y_coord 0.78 0.54 0.09 |
52 | |
53 | set only_screen 1 |