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