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 displayed properly in HLR mode. |
8 | ################################################################## |
9 | |
10 | set m_pi2 1,57 |
11 | pcone a 5 0 10 |
12 | vinit |
13 | vdisplay a |
14 | vrotate 35 0 0 |
15 | vfit |
16 | vhlr on 0 |
17 | vhlrtype algo a |
18 | vrotate -$m_pi2 -$m_pi2 0 |
19 | vfit |
20 | |
21 | set x_coord 131 |
22 | set y_coord 240 |
23 | |
24 | checkcolor $x_coord $y_coord 0 0 0 |
25 | |
26 | if { $stat != 1 } { |
27 | puts "Error : Drawing hidden lines as dotted lines produces wrong result." |
28 | } |
29 | |
30 | vdump $imagedir/${casename}_without_lines.png |
31 | |
32 | vhlr on 1 |
33 | |
34 | set x_coord 131 |
35 | set y_coord 240 |
36 | |
37 | # Check display of dotted hidden lines |
38 | checkcolor $x_coord $y_coord 0.2 0.2 0.2 |
39 | |
40 | if { $stat != 1 } { |
41 | puts "Error : Drawing hidden lines as dotted lines produces wrong result." |
42 | } |
43 | |
44 | vdump $imagedir/${casename}_with_lines.png |