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