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 bottom face should be highlighted." |
32 | |
33 | OCC137 1 |
34 | OCC137_z |
35 | |
36 | vselmode 4 1 |
37 | |
38 | set x_coord 105 |
39 | set y_coord 350 |
40 | |
4754e164 |
41 | vmoveto $x_coord $y_coord |
e54706ed |
42 | |
43 | set x_coord 105 |
44 | set y_coord 340 |
45 | |
46 | checkcolor $x_coord $y_coord 0 1 1 |
47 | |
4754e164 |
48 | 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 |
49 | set x_coord 105 |
50 | set y_coord 340 |
51 | |
52 | checkcolor $x_coord $y_coord 0.78 0.54 0.09 |
53 | |
54 | set only_screen 1 |