0030760: Modeling Algorithms - Intersection fails in Occt 7.3.0
[occt.git] / tests / bugs / modalg_7 / bug26077_2
CommitLineData
dfdfa61f 1puts "TODO OCC26077 ALL: Error: Boolean operation of the given type is not allowed on the given inputs"
2puts "TODO OCC26077 ALL: ERROR: OCC26077 is reproduced."
3puts "TODO OCC26077 ALL: ERROR: Problematic shape in OCC26077:"
4
5puts "========"
6puts "OCC26077"
7puts "========"
8puts ""
9#################################################
10# nurbsconvert of psphere fails the bopargcheck
11#################################################
12
13ellipse Ellipse002-untrimmed 0 0 0 8.2 6.2
14mkedge Ellipse002 Ellipse002-untrimmed 0 6.283185307179586
15trotate Ellipse002 0 0 0 0 0 1 90
16ttranslate Ellipse002 0 0 15
17prism Extrude_Ellipse Ellipse002 0 0 6
18ttranslate Extrude_Ellipse 0 0 -4
19restore [locate_data_file bug26077_ellipsoid1-tcl-Loft-00-section.brep] Loft-00-section
20restore [locate_data_file bug26077_ellipsoid1-tcl-Loft-01-section.brep] Loft-01-section
21thrusections Loft 1 0 Loft-00-section Loft-01-section
22psphere Ellipsoid-sphere 12.5
23deform Ellipsoid Ellipsoid-sphere 1 1.04 1.2
24
25set bug_info [string trim [bopargcheck Loft]]
26if {$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
30set bug_info [string trim [bopargcheck Ellipsoid]]
31if {$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
35set bug_info [string trim [bfuse Fusion Loft Ellipsoid]]
36if {[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
42set bug_info [string trim [bopargcheck Extrude_Ellipse]]
43if {$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
47set bug_info [string trim [bopargcheck Fusion]]
48if {$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
52set bug_info [string trim [bfuse Fusion002 Extrude_Ellipse Fusion]]
53if {[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}