| dfdfa61f |
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 | } |
projects / occt.git / blame