tests/bugs/modalg_4/bug827_3

   1 pload QAcommands
   2
   3 puts "======="
   4 puts "OCC827"
   5 puts "======="
   6 puts ""
   7 ####################################
   8 ## BRepAlgoAPI_Fuse fails on cylinder and torus
   9 ####################################
  10
  11 #
  12 # a1 - Cylinder
  13 # a2 - Torus1
  14 # a3 - Torus1
  15 # res1 - Fuse(Torus1 & Cylinder)
  16 # res2 - Fuse(Torus2 & res1)
  17 #
  18
  19 if { [ catch { set info_result [OCC827 a1 a2 a3 a4 a5] } ] } {
  20     puts "Faulty OCC827"
  21 } else {
  22     checkshape a1
  23     checkshape a2
  24     checkshape a3
  25     bop a2 a1
  26     bopfuse res1
  27     checkshape res1
  28     set ExplodeList [explode res1]
  29     if {[llength ${ExplodeList}] < 1} {
  30         puts "Faulty OCC827 : Resulting shape is empty COMPOUND"
  31     }
  32     bop a3 res1
  33     bopfuse result
  34
  35     set ExplodeList [explode result]
  36     if {[llength ${ExplodeList}] < 1} {
  37         puts "Faulty OCC827 : Resulting shape is empty COMPOUND"
  38     }
  39 }
  40
  41 set square 11847.7
  42 set 2dviewer 1
  43