1puts "=========="
2puts "BUC60712"
3puts "=========="
4puts ""
5puts "=================================="
6puts "It takes visual check for this BUG"
7puts "=================================="
8
9#
10# OCC22070: Grid Tests: CHL set, detected problems
11# Problems:
12#  The shape buc60712a.brep is self-interferred.
13#  thus it can not be used as the argument for Boolean Operation Algorithm.
14#
15# Proposals:
16#  The Case chl/902/F3 should be removed or rewritten:
17
18restore [locate_data_file buc60712a.brep] a
19checkshape a
20
21restore [locate_data_file buc60712b.brep] b
22checkshape b
23
24# Recompute "a" shape
25explode a f
26
27bop a_1 a_2
28bopfuse r12
29
30bop a_3 a_4
31bopfuse r34
32
33bop r12 r34
34
35bopfuse r
36
37# Start boolean operation
38bop r b
39bopsection result
40
41# Check result
42regexp {nb alone Vertices : ([-0-9.+eE]+)} [checksection result] full num
43# Resume
44if { $num != 0 } {
45    puts " Faulty BUC60712: Result shape is INcorrect !!! "
46} else {
47    puts "BUC60712 OK: Result shape is correct "
48}
49checkprops result -l 1.88145
50checkshape result
51checksection result
52checkview -display result -2d -path ${imagedir}/${test_image}.png
53