tests/bugs/modalg_2/bug497_5

   1 puts "TODO OCC24861 ALL: Faulty shapes in variables faulty_1 to faulty_"
   2 puts "TODO OCC24861 ALL: Error : The square of result shape is"
   3
   4 puts "========="
   5 puts " OCC497 "
   6 puts "(case 5)"
   7 puts "========="
   8 puts ""
   9 ########################################################
  10 ## Result of cut and fuse operation are faulty shapes although arguments are valid.
  11 ########################################################
  12
  13 restore [locate_data_file OCC497i.brep] a_1
  14 checkshape a_1
  15
  16 restore [locate_data_file OCC497j.brep] a_2
  17 checkshape a_2
  18
  19 if [catch {bfuse result a_1 a_2 } catch_result] {
  20     puts "Faulty OCC497:function FUSE works wrongly "
  21 } else {
  22     puts "OCC497 : function FUSE works without hangs up "
  23 }
  24 set square 3280.73
  25 set 2dviewer 0