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 | } |