tests/bugs/modalg/bug823_1

   1 pload QAcommands
   2
   3 puts "============"
   4 puts "OCC823"
   5 puts "============"
   6 puts ""
   7 ################################
   8 ## BRepAlgoAPI_Fuse fails on two cylinders
   9 ################################
  10 ##
  11 ## Note: test for old topology
  12 ##
  13 ################################
  14
  15 if { [ catch { set info_result [OCC823 a1 a2 a3] } ] } {
  16     puts "Faulty : exception was caught"
  17 } else {
  18     checkshape a1
  19     checkshape a2
  20     bfuse result a1 a2
  21
  22     set ExplodeList [explode result]
  23     if {[llength ${ExplodeList}] < 1} {
  24         puts "Faulty : Resulting shape is empty COMPOUND"
  25     }
  26 }
  27
  28 set square 23189.5
  29 set 2dviewer 0
  30