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

vinit
GER61351 RED2 

set x_coord 200
set y_coord 200

if {"[vreadpixel $x_coord $y_coord rgb name]" != "RED2"} {
   puts "Error : Background color is NOT RED2."
}

set only_screen 1