tests/bugs/modalg_2/bug528

   1
   2 puts "========================"
   3 puts "OCC528"
   4 puts "========================"
   5 puts ""
   6 ##############################################
   7 ## Result of bcut command is faulty although arguments are valid
   8 ##############################################
   9
  10 restore [locate_data_file OCC528_1.brep] c1
  11 checkshape c1
  12
  13 restore [locate_data_file OCC528_2.brep] c2
  14 checkshape c2
  15
  16 if { [catch { bcut result c1 c2 } catch_result] } {
  17     puts "OCC528 Faulty: function BCUT works wrongly"
  18 } else {
  19     puts "OCC528 OK:function BCUT works properly"
  20 }
  21
  22 set square 124.092
  23 set 2dviewer 0