tests/bugs/vis/ger61351_3

   1 puts "==============="
   2 puts "    GER61351   "
   3 puts "=================================="
   4 puts "CASE 3 :takes visual check        "
   5 puts "=================================="
   6
   7 vinit
   8 box b 10 20 30
   9 GER61351 b RED2
  10 vfit
  11
  12 set x_coord 89
  13 set y_coord 363
  14
  15 checkcolor $x_coord $y_coord 0.93 0 0
  16
  17 if {$stat != 1} {
  18    puts "Error : Box color is NOT RED2."
  19 }
  20
  21 checkview -screenshot -3d -path ${imagedir}/${test_image}.png