389b9d5c |
1 | puts "=================================================" |
2 | puts "OCC30714: UnifySameDomain corrupts original shape" |
3 | puts "=================================================" |
4 | puts "" |
5 | |
6 | restore [locate_data_file bug30714.brep] s |
7 | explode s |
8 | bcut r s_1 s_2 |
9 | unifysamedom result r |
10 | |
11 | checkshape result |
12 | checkshape s_1 |
13 | |
14 | checknbshapes result -solid 1 -shell 1 -face 10 -wire 12 -edge 24 -vertex 16 |
15 | |
16 | set tolres [checkmaxtol result] |
17 | |
18 | if { ${tolres} > 1.000008e-07} { |
19 | puts "Error: bad tolerance of result" |
20 | } |
21 | |
22 | checkprops result -v 1.20292 |