| 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 |