bcb8fa43 |
1 | puts "========" |
2 | puts "OCC28157" |
3 | puts "========" |
4 | puts "" |
5 | ####################################################################################################################### |
6 | # Setting the tolerance of a face to a small value and then fixing it leads to a face with vertex-vertex intersections |
7 | ####################################################################################################################### |
8 | |
9 | brunparallel 1 |
10 | |
11 | restore [locate_data_file bug28157_init.brep] n |
12 | whatis n |
13 | tolerance n |
14 | checkshape n |
15 | bopcheck n |
16 | |
17 | restore [locate_data_file bug28157_solid.brep] s |
18 | whatis s |
19 | tolerance s |
20 | checkshape s |
21 | bopcheck s |
22 | |
23 | bop s n |
24 | bopcommon r |
25 | whatis r |
26 | |
27 | explode r |
28 | whatis r_1 |
29 | tolerance r_1 |
30 | |
31 | settolerance r_1 1e-7 |
32 | fixshape rr r_1 |
33 | tolerance rr |
34 | checkshape rr |
35 | |
36 | set Log [bopcheck rr] |
37 | if {[regexp "This shape seems to be OK" ${Log}] != 1} { |
38 | puts "Error: there are vertex-vertex intersections" |
39 | } |
40 | |
41 | checkview -display rr -2d -path ${imagedir}/${test_image}.png |