tests/bugs/modalg_7/bug26077_2

   1 puts "TODO OCC26077 ALL: Error: Boolean operation of the given type is not allowed on the given inputs"
   2 puts "TODO OCC26077 ALL: ERROR: OCC26077 is reproduced."
   3 puts "TODO OCC26077 ALL: ERROR: Problematic shape in OCC26077:"
   4
   5 puts "========"
   6 puts "OCC26077"
   7 puts "========"
   8 puts ""
   9 #################################################
  10 # nurbsconvert of psphere fails the bopargcheck
  11 #################################################
  12
  13 ellipse Ellipse002-untrimmed 0 0 0 8.2 6.2
  14 mkedge Ellipse002 Ellipse002-untrimmed 0 6.283185307179586
  15 trotate Ellipse002 0 0 0 0 0 1 90
  16 ttranslate Ellipse002 0 0 15
  17 prism Extrude_Ellipse Ellipse002 0 0 6
  18 ttranslate Extrude_Ellipse 0 0 -4
  19 restore [locate_data_file bug26077_ellipsoid1-tcl-Loft-00-section.brep] Loft-00-section
  20 restore [locate_data_file bug26077_ellipsoid1-tcl-Loft-01-section.brep] Loft-01-section
  21 thrusections Loft 1 0 Loft-00-section Loft-01-section
  22 psphere Ellipsoid-sphere 12.5
  23 deform Ellipsoid Ellipsoid-sphere 1 1.04 1.2
  24
  25 set bug_info [string trim [bopargcheck Loft]]
  26 if {$bug_info != "Shape(s) seem(s) to be valid for BOP."} {
  27   puts "ERROR: Problematic shape in OCC26077: Shape Loft is not valid for BOP."
  28 }
  29
  30 set bug_info [string trim [bopargcheck Ellipsoid]]
  31 if {$bug_info != "Shape(s) seem(s) to be valid for BOP."} {
  32   puts "ERROR: Problematic shape in OCC26077: Shape Ellipsoid is not valid for BOP."
  33 }
  34
  35 set bug_info [string trim [bfuse Fusion Loft Ellipsoid]]
  36 if {[string length $bug_info] == 0} {
  37   puts "OCC26077: Operation bfuse (bfuse Fusion Loft Ellipsoid) has been finished with OK status."
  38 } else {
  39   puts "ERROR: OCC26077 is reproduced. Operation bfuse (bfuse Fusion Loft Ellipsoid) has been finished with KO status."
  40 }
  41
  42 set bug_info [string trim [bopargcheck Extrude_Ellipse]]
  43 if {$bug_info != "Shape(s) seem(s) to be valid for BOP."} {
  44   puts "ERROR: Problematic shape in OCC26077: Shape Extrude_Ellipse is not valid for BOP."
  45 }
  46
  47 set bug_info [string trim [bopargcheck Fusion]]
  48 if {$bug_info != "Shape(s) seem(s) to be valid for BOP."} {
  49   puts "ERROR: Problematic shape in OCC26077: Shape Fusion is not valid for BOP."
  50 }
  51
  52 set bug_info [string trim [bfuse Fusion002 Extrude_Ellipse Fusion]]
  53 if {[string length $bug_info] == 0} {
  54   puts "OCC26077: Operation bfuse (bfuse Fusion002 Extrude_Ellipse Fusion) has been finished with OK status."
  55 } else {
  56   puts "ERROR: OCC26077 is reproduced. Operation bfuse (bfuse Fusion002 Extrude_Ellipse Fusion) has been finished with KO status."
  57 }