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:"
9 #################################################
10 # nurbsconvert of psphere fails the bopargcheck
11 #################################################
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
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."
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."
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."
39 puts "ERROR: OCC26077 is reproduced. Operation bfuse (bfuse Fusion Loft Ellipsoid) has been finished with KO status."
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."
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."
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."
56 puts "ERROR: OCC26077 is reproduced. Operation bfuse (bfuse Fusion002 Extrude_Ellipse Fusion) has been finished with KO status."