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