9026dea8 |
1 | puts "TODO OCC28366 ALL: Error: BOP" |
2 | |
3 | puts "============" |
4 | puts "OCC28366" |
5 | puts "============" |
6 | puts "" |
7 | ############################################# |
8 | # BOP Common fails with solid and planar face |
9 | ############################################# |
10 | |
11 | pload XDE |
12 | |
13 | stepread [locate_data_file bug28366_fuselage.stp] a * |
14 | renamevar a_1 a |
15 | |
16 | # Sew all the faces and make a solid. |
17 | explode a f |
18 | sewing shell 1.0e-6 a_1 a_2 a_3 a_4 a_5 a_6 a_7 a_8 |
19 | mkvolume fuselage shell |
20 | |
21 | # Make a xy-plane at the origin. |
22 | plane pln |
23 | mkface face pln |
24 | |
25 | # Try a bcommon |
26 | set Log_1 [bcommon common face fuselage] |
27 | if {[regexp "Warning" ${Log_1}] == 1} { |
28 | puts "Error: BOP Common fails with solid and planar face" |
29 | } |
30 | set Log [bopcheck common] |
31 | if {[regexp "This shape seems to be OK" ${Log}] != 1} { |
32 | puts "Error: BOP Common fails with solid and planar face" |
33 | } |
34 | checkview -display common -2d -path ${imagedir}/${test_image}_common.png |
35 | |
36 | # Try bsection |
37 | set Log_2 [bsection section face fuselage] |
38 | if {[regexp "Warning" ${Log_1}] == 1} { |
39 | puts "Error: BOP Section fails with solid and planar face" |
40 | } |
41 | set Log [bopcheck section] |
42 | if {[regexp "This shape seems to be OK" ${Log}] != 1} { |
43 | puts "Error: BOP Section fails with solid and planar face" |
44 | } |