tests/bugs/modalg_1/buc60849

   1
   2 puts "============"
   3 puts "BUC60849"
   4 puts "============"
   5 puts ""
   6
   7 restore [locate_data_file BUC60849.brep] result
   8 checkshape result
   9
  10 set bndb [ lindex [bounding result] 3 ]
  11
  12 if { $bndb  > 100.000001 } {
  13     puts "Faulty BUC60849 : Bounding box of spherical surface is created wroughly."
  14 } else {
  15     puts "BUC60849 OK :Bounding box of spherical surface is created properly."
  16 }
  17 set square 125663
  18 set 2dviewer 0
  19