c5d8782c |
1 | puts "========" |
2 | puts "OCC26420" |
3 | puts "========" |
4 | puts "" |
5 | ###################################################### |
6 | # BOPAlgo_Builder resets "Closed" flag in the result |
7 | ###################################################### |
8 | |
9 | polyline pp 0 4 0 7 4 0 7 6 0 0 6 0 0 4 0 |
10 | mkplane ff pp |
11 | vertex v0 5 4 0 |
12 | vertex v1 4 6 0 |
13 | bclearobjects |
14 | bcleartools |
15 | baddobjects v0 v1 ff |
16 | bfillds |
17 | bbuild r |
18 | explode r w |
19 | set bug_info [whatis r_1] |
20 | if {[lindex $bug_info 8] != "Closed"} { |
21 | puts "ERROR: OCC26420 is reproduced. Flag CLOSED is not set." |
22 | } |