tests/bugs/vis/bug24388_1

   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 highlighted properly.
   8 ##################################################################
   9
  10 box b 15 0 0 10 10 10
  11 vinit
  12 vdisplay b
  13 vrotate 35 0 0
  14 vfit
  15 vhlr on 1
  16 vhlrtype algo a
  17
  18 vmoveto 76 304
  19
  20 set x_coord 115
  21 set y_coord 203
  22 checkcolor $x_coord $y_coord 0 1 1
  23
  24 if { $stat != 1 } {
  25   puts "Error : Highlighting of dotted hidden lines in the box is wrong."
  26 }
  27
  28 set x_coord 122
  29 set y_coord 200
  30
  31 checkcolor $x_coord $y_coord 0 0 0
  32
  33 if { $stat != 1 } {
  34   puts "Error : Highlighting of dotted hidden lines in the box is wrong."
  35 }
  36
  37 checkview -screenshot -3d -path ${imagedir}/${test_image}.png