puts "==============="
puts "    GER61351   "
puts "============================"
puts "CASE 6 takes visual check   "
puts "============================"

vinit
box b 20 10 30
GER61351 b CYAN3
vfit

set x_coord 88
set y_coord 316

checkcolor $x_coord $y_coord 0 0.8 0.8

if {$stat != 1} {
   puts "Error : Box color is NOT CYAN3"
}

set only_screen 1
