tests/bugs/vis/ger61351_6

   1 puts "==============="
   2 puts "    GER61351   "
   3 puts "============================"
   4 puts "CASE 6 takes visual check   "
   5 puts "============================"
   6
   7 vinit
   8 box b 20 10 30
   9 GER61351 b CYAN3
  10 vfit
  11 QAUpdateLights
  12
  13 set x_coord 88
  14 set y_coord 316
  15
  16 checkcolor $x_coord $y_coord 0 0.8 0.8
  17
  18 if {$stat != 1} {
  19    puts "Error : Box color is NOT CYAN3"
  20 }
  21
  22 set only_screen 1