tests/bugs/modalg/bug80

   1 puts "============"
   2 puts "BUC60877"
   3 puts "OCC80"
   4 puts "============"
   5 puts ""
   6 ##########################################################
   7 ## The command "section" in Draw gives exception "attempt to access to null objec "
   8 ##########################################################
   9
  10 restore [locate_data_file BUC60877_lh.brep] sh
  11 puts [checkshape sh]
  12
  13 plane pl 820 198 140 -1e-06 0 1
  14 mkface f pl -1000 500 -300 100
  15
  16 if [catch {bsection result sh f } catch_result] {
  17     puts "Faulty BUC60877: function SECTION works wrongly"
  18 } else {
  19     puts "BUC60877 OK: function SECTION works properly"
  20 }
  21 set length 1358.63
  22 set 2dviewer 0