7 restore [locate_data_file BUC60849.brep] result
10 set bndb [ lindex [bounding result] 3 ]
12 if { $bndb > 100.000001 } {
13 puts "Faulty BUC60849 : Bounding box of spherical surface is created wroughly."
15 puts "BUC60849 OK :Bounding box of spherical surface is created properly."