tests/bugs/modalg/bug827

   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 result1 result2] } ] } {
  20     puts "Faulty : an exception was caught"
  21 } else {
  22     if { [lsearch ${info_result} FAILED] > -1} {
  23         puts "Faulty OCC827 (case 1)"
  24     }
  25     checkshape a1
  26     checkshape a2
  27     checkshape a3
  28     checkshape result1
  29     checkshape result2
  30
  31     set ExplodeList [explode result1]
  32     if {[llength ${ExplodeList}] < 1} {
  33         puts "Faulty : Resulting shape is empty COMPOUND"
  34     }
  35
  36     set ExplodeList [explode result2]
  37     if {[llength ${ExplodeList}] < 1} {
  38         puts "Faulty : Resulting shape is empty COMPOUND"
  39     }
  40
  41     renamevar result2 result
  42 }
  43
  44 set square 11847.7
  45 set 2dviewer 0