0030760: Modeling Algorithms - Intersection fails in Occt 7.3.0
[occt.git] / tests / bugs / modalg_7 / bug28157
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