1puts "============"
2puts "OCC3721"
3puts "============"
4puts ""
5######################################################
6# When using Boolean Operations exception is raised for some tolerance vals.
7######################################################
8## (new topology)
9## (boptuc)
10######################################################
11
12restore [locate_data_file OCC3721-1.brep] b1
13restore [locate_data_file OCC3721-2.brep] b2
14
15checkshape b1
16checkshape b2
17
18bop b1 b2
19if { [catch {boptuc result} catch_result] } {
20   puts "Faulty OCC3721"
21}
22
23checkshape result
24
25checkprops result -s 71185
26checkview -display result -3d -path ${imagedir}/${test_image}.png
27