puts "==========="
puts "0024388: Option to enable visualization of hidden lines in DRAW"
puts "Checks if dotted hidden lines are displayed properly in HLR mode."
puts "==========="
puts ""

pload MODELING VISUALIZATION
set m_pi2 1,57
pcone a 5 0 10
vinit View1
vdisplay a
vrotate 35 0 0
vfit
vhlr on 0
vhlrtype algo a
vrotate -$m_pi2 -$m_pi2 0
vfit
checkcolor 131 240 0 0 0

if { $stat != 1 } { puts "Error : Drawing hidden lines as dotted lines produces wrong result." }
vdump $imagedir/${casename}_without_lines.png

vhlr on 1

# Check display of dotted hidden lines
checkcolor 131 240 0.2 0.2 0.2
if { $stat != 1 } { puts "Error : Drawing hidden lines as dotted lines produces wrong result." }

vdump $imagedir/${casename}_with_lines.png