tests/bugs/modalg/bug890

   1
   2 puts "======="
   3 puts "OCC890"
   4 puts "SAM1681"
   5 puts "======="
   6 puts ""
   7 ##############################
   8 ## No possibility to fuse the attached prisms.
   9 ##############################
  10
  11 restore [locate_data_file OCC890.brep] a
  12 explode a
  13
  14 puts [checkshape a_1]
  15 puts [checkshape a_2]
  16
  17 if { [ catch { bfuse result a_1 a_2 } catch_result ] } {
  18    puts "Faulty OCC890 (case 3)"
  19 }
  20
  21 set square 1.8276e+06
  22 set 2dviewer 0