d0fdf989 |
1 | puts "========" |
2 | puts "OCC21670" |
3 | puts "========" |
4 | puts "" |
5 | ################################### |
6 | # BOP section produces bad result |
7 | ################################### |
8 | |
9 | smallview |
10 | |
11 | restore [locate_data_file bug21633_SECC19_1_IZQ.brep] a |
12 | |
13 | explode a f |
14 | mksurface s a_1 |
15 | mkface f s |
16 | |
17 | restore [locate_data_file bug21670-bug_prj_wire.brep] w |
18 | |
19 | explode w |
20 | prism p w_1 0 0 -1 |
21 | |
22 | donly f p |
23 | fit |
24 | |
25 | puts "Checking f: [bopcheck f] [checkshape f] [tolerance f]" |
26 | puts "Checking p: [bopcheck p] [checkshape p] [tolerance p]" |
27 | |
28 | bsection result f p |
29 | |
30 | set bug_info [explode result] |
31 | if {[llength $bug_info] != 1} { |
32 | puts "ERROR: OCC21670 is reproduced. Result of bsection command is set of shapes." |
33 | } |
34 | |
5747059b |
35 | checkview -screenshot -2d -path ${imagedir}/${test_image}.png |