tests/bugs/vis/buc60738

   1 puts "========================"
   2 puts "BUC60738"
   3 puts "========================"
   4 puts ""
   5 puts "=================================="
   6 puts "It takes visual check for this BUG"
   7 puts "=================================="
   8
   9 vinit
  10 BUC60738
  11 vfit
  12 vsetdispmode 1
  13
  14
  15 set x_coord 261
  16 set y_coord 314
  17
  18 checkcolor $x_coord $y_coord 0 1 0
  19
  20 if {$stat != 1} {
  21    puts "Error : The style of edge is NOT dash"
  22 }
  23
  24 checkview -screenshot -3d -path ${imagedir}/${test_image}.png