puts "========"                                                                                   
puts "BUC60814"                                                                                   
puts "========"                                                                                   
puts ""                                                                                           

vinit
BUC60814
vfit

set x_coord 131
set y_coord 352

checkcolor $x_coord $y_coord 0 0 1

#AKI.111002.Against **Exception..-it's on lin.Changed coord of trihedron.

if {$stat != 1} {
   puts "Error : Circle has NOT blue color."
}

set x_coord 170
set y_coord 319

checkcolor $x_coord $y_coord 0 0 1

if {$stat != 1} {
   puts "Error : Trihedron has NOT blue color."
}

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