puts "TODO OCC12345 ALL: An exception was caught"
puts "TODO OCC12345 ALL: \\*\\* Exception \\*\\*.*"
puts "TODO OCC12345 ALL: TEST INCOMPLETE"

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

vinit

box b 30 20 10
GER61351 b 0 0 255
vfit

set x_coord 89
set y_coord 363

checkcolor $x_coord $y_coord 0 1 1

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

set only_screen 1
