puts "==============="
puts "    GER61351   "
puts "=================================="
puts "CASE 1 :takes visual check        "
puts "=================================="

vinit
GER61351 RED2 

set x_coord 200
set y_coord 200

checkcolor $x_coord $y_coord 0.93 0 0

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

set only_screen 1