puts "==============="
puts "    GER61351   "
puts "     CASE 2    "
puts "==============="
puts ""
puts "=================================="
puts "It takes visual check for this BUG"
puts "=================================="

vinit

GER61351 0 255 0

set x_coord 200
set y_coord 200

checkcolor $x_coord $y_coord 0 1 0

if {$stat != 1} {
   puts "Error : Background color is NOT 0 1 0."
}

set only_screen 1