13dd311c |
1 | puts "=================================================================" |
2 | puts "OCC31470: BOP common produces empty result (box and holed sphere)" |
3 | puts "=================================================================" |
4 | puts "" |
5 | |
6 | plane pln1 51.899912462 99.996691888 62.33204004 |
7 | psphere s1 pln1 15 |
8 | psphere s2 pln1 10 |
9 | bcut ss s1 s2 |
10 | box bb 100 100 100 |
11 | |
12 | bcommon result bb ss |
13 | savehistory hh |
14 | |
15 | explode ss f |
16 | modified ff hh ss_1 |
17 | generated ee hh ss_1 |
18 | |
19 | checkshape result |
20 | |
21 | checknbshapes result -solid 1 -shell 1 -face 3 -wire 6 -edge 8 -vertex 6 |
22 | |
23 | set tolres [checkmaxtol result] |
24 | |
25 | if { ${tolres} > 2.e-7} { |
26 | puts "Error: bad tolerance of result" |
27 | } |
28 | |
29 | checkprops result -v 4975.49 |
30 | |
31 | v2d |
32 | pcurve pc ee ff |
33 | trim pc pc |
34 | 2dfit |
35 | |
36 | checkview -screenshot -2d -path ${imagedir}/${test_image}.png |