db2f1498 |
1 | puts "========" |
2 | puts "OCC26233" |
3 | puts "========" |
4 | puts "" |
5 | ################################################ |
6 | # BRepOffset_MakeOffset makes incorrect result |
7 | ################################################ |
8 | |
9 | psphere a 100 |
10 | explode a f |
11 | thickshell r a_1 10 i 1.e-7 |
12 | explode r |
13 | |
14 | set bug_info [whatis r] |
15 | if {$bug_info != "r is a shape SOLID FORWARD Free Modified Closed\n"} { |
16 | puts "ERROR: OCC26233 is reproduced. Shape r has incorrect characteristics." |
17 | } |
18 | |
19 | set bug_info [whatis r_1] |
20 | if {$bug_info != "r_1 is a shape SHELL FORWARD Modified Orientable Closed\n"} { |
21 | puts "ERROR: OCC26233 is reproduced. Shape r_1 has incorrect characteristics." |
22 | } |
23 | |
24 | set bug_info [whatis r_2] |
25 | if {$bug_info != "r_2 is a shape SHELL REVERSED Modified Orientable Closed\n"} { |
26 | puts "ERROR: OCC26233 is reproduced. Shape r_2 has incorrect characteristics." |
27 | } |