puts "===========" puts "OCC24388" puts "===========" puts "" ################################################################## # 0024388: Option to enable visualization of hidden lines in DRAW # Checks if dotted hidden lines are displayed properly in HLR mode. ################################################################## set m_pi2 1,57 pcone a 5 0 10 vinit vdisplay a vrotate 35 0 0 vfit vhlr on 0 vhlrtype algo a vrotate -$m_pi2 -$m_pi2 0 vfit set x_coord 131 set y_coord 240 checkcolor $x_coord $y_coord 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 set x_coord 131 set y_coord 240 # Check display of dotted hidden lines checkcolor $x_coord $y_coord 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