0027986: Visualization - AIS_InteractiveContext::SetLocation() does not update dynami...
[occt.git] / tests / bugs / vis / bug24388_2
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