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