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

vinit
box b 10 20 30
GER61351 b RED2
vfit

set x_coord 89
set y_coord 363

checkcolor $x_coord $y_coord 0.93 0 0

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

checkview -screenshot -3d -path ${imagedir}/${test_image}.png
