e9224045 |
1 | puts "===========" |
2 | puts "OCC24388" |
3 | puts "===========" |
4 | puts "" |
5 | ################################################################## |
6 | # 0024388: Option to enable visualization of hidden lines in DRAW |
7 | # Checks if dotted hidden lines are highlighted properly. |
8 | ################################################################## |
9 | |
10 | box b 15 0 0 10 10 10 |
11 | vinit |
12 | vdisplay b |
13 | vrotate 35 0 0 |
14 | vfit |
15 | vhlr on 1 |
1eeef710 |
16 | vhlrtype algo b |
e9224045 |
17 | |
18 | vmoveto 76 304 |
19 | |
20 | set x_coord 115 |
21 | set y_coord 203 |
22 | checkcolor $x_coord $y_coord 0 1 1 |
23 | |
24 | if { $stat != 1 } { |
25 | puts "Error : Highlighting of dotted hidden lines in the box is wrong." |
26 | } |
27 | |
28 | set x_coord 122 |
29 | set y_coord 200 |
30 | |
31 | checkcolor $x_coord $y_coord 0 0 0 |
32 | |
33 | if { $stat != 1 } { |
34 | puts "Error : Highlighting of dotted hidden lines in the box is wrong." |
35 | } |
36 | |
5747059b |
37 | checkview -screenshot -3d -path ${imagedir}/${test_image}.png |