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

puts "=========="
puts "BUC60547"
puts "========================="
puts "It takes visul check for this BUG"
puts "We must see 4 contours"
puts "========================="

vinit
BUC60547 f
vfit
QAUpdateLights

set x_coord 290
set y_coord 33

checkcolor $x_coord $y_coord 1 0 0

set only_screen 1