
puts "============"
puts "BUC60849"
puts "============"
puts ""

restore [locate_data_file BUC60849.brep] result
checkshape result

set bndb [ lindex [bounding result] 3 ]

if { $bndb  > 100.000001 } {
    puts "Faulty BUC60849 : Bounding box of spherical surface is created wroughly."
} else {
    puts "BUC60849 OK :Bounding box of spherical surface is created properly."
}
set square 125663
set 2dviewer 0

