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
  12 set x_coord 88
  13 set y_coord 316
  14
  15 checkcolor $x_coord $y_coord 0 0.8 0.8
  16
  17 if {$stat != 1} {
  18    puts "Error : Box color is NOT CYAN3"
  19 }
  20
  21 set only_screen 1