1puts "=========="
2puts "OCC26938  "
3puts "=========="
4puts ""
5#####################################################
6# Boolean operations fail between two ellipsoids
7#####################################################
8
9restore [locate_data_file bug26938.brep] a
10explode a
11
12bcommon result a_1 a_2
13
14# Check shape validity
15checkshape result
16
17# Check area
18checkprops result -s 3.52497e+006
19
20# Check self-intersection
21set info [bopcheck result]
22if { [regexp "This shape seems to be OK" ${info}] != 1 } {
23    puts "Error : The result of General Fuse operation is self-interfered shape"
24}
25
26checknbshapes result -solid 1 -shell 1 -t -m "Result"
27
28checkview -display result -2d -path ${imagedir}/${test_image}.png
29