01b5b3df |
1 | puts "========" |
2 | puts "0027519: Inconsistent result of SECTION operation" |
3 | puts "========" |
4 | puts "" |
5 | |
6 | restore [locate_data_file bug27448_b1255_2.brep] b |
7 | plane p 0 -36.8067 0 0 1 0 |
8 | mkface f p |
9 | bsection result b f |
10 | set chsec [checksection result] |
11 | puts $chsec |
12 | if {![regexp {nb alone Vertices : 4} $chsec]} { |
13 | puts "Error: the section is not closed" |
14 | } |
15 | |
16 | set chsi [bopcheck result] |
17 | puts $chsi |
18 | if {![regexp {This shape seems to be OK.} $chsi]} { |
19 | puts "Error: the section is self-interfered" |
20 | } |