0030760: Modeling Algorithms - Intersection fails in Occt 7.3.0
[occt.git] / tests / bugs / modalg_7 / bug29183
CommitLineData
47a27171 1puts "========"
2puts "OCC29183"
3puts "========"
4puts ""
5#################################################
6# Result of general fuse of shell and edge
7# produces a shape with too large tolerance
8#################################################
9
10set MaxTol 30
11
12restore [locate_data_file bug29183_shapes.brep] ss
13bclearobjects
14bcleartools
15baddcompound ss
16bfillds
17bbuild r
18
19regexp {Tolerance MAX=([-0-9.+eE]+)} [tolerance r] full toler
20
21if {$toler > $MaxTol} {
22 puts "Error: Tolerance after fusing is too large"
23}
24
25checknbshapes r -m "Fusing result" -edge 18 -face 7
26
27smallview
28don r
29fit
30checkview -screenshot -2d -path ${imagedir}/${test_image}_1.png