746bb46a |
1 | puts "TODO ?OCC12345 ALL: Error : Colors are not equal in default coordinate and in the near coordinates too" |
2 | |
e54706ed |
3 | puts "========================" |
4 | puts "OCC137" |
5 | puts "========================" |
6 | ############################################################### |
7 | #Patch description: |
8 | # |
9 | #MIT010717 : 3D selection management |
10 | #>>> MIT010717 : Selection management |
11 | # |
12 | # * Package OpenGl (OpenGl_execstruct.c) |
13 | # |
14 | # @ Avoid drawing quality problem on selected face, |
15 | # enable/disable Z offset on highlighted faces. |
16 | # |
17 | #>>> MIT010717 : drawing management |
18 | # |
19 | # * Package OpenGl (OpenGl_indexpolygon.c, ...) |
20 | # |
21 | # @ Avoid to undraw faces with confused points |
22 | ############################################################### |
23 | puts "========================" |
24 | |
25 | vinit |
26 | box b 10 10 10 |
27 | vdisplay b |
28 | vfit |
29 | vsetdispmode 1 |
30 | |
31 | puts "Only top face should be highlighted." |
32 | |
33 | vselmode 4 1 |
34 | |
35 | OCC137 1 |
36 | |
37 | set x_coord 105 |
38 | set y_coord 100 |
39 | |
4754e164 |
40 | vmoveto $x_coord $y_coord |
e54706ed |
41 | |
42 | checkcolor $x_coord $y_coord 0 1 1 |
43 | |
44 | set x_coord 105 |
45 | set y_coord 340 |
46 | |
47 | checkcolor $x_coord $y_coord 0.78 0.54 0.09 |
48 | |
49 | set only_screen 1 |