puts "========"
puts "OCC26310"
puts "========"
puts ""
#################################################
# Very slow boolean cut operations on cylinders
#################################################

restore [locate_data_file OCC26310-b1.brep] b1 
restore [locate_data_file OCC26310-b2.brep] b2 

bclearobjects
bcleartools
baddobjects b2
baddtools b1
bfillds


# SECTION
bbop rr 4

# CUT 1-2
bbop res1 2

# CUT 2-1
bbop res2 3

checkshape res1
checkshape res2

set log1 [bopargcheck res1 #F]
set log2 [bopargcheck res2 #F]

if { [string compare -nocase $log1 "Shape(s) seem(s) to be valid for BOP.\n"] } {
  puts "ERROR. res1 is not valid for BOP"
}

if { [string compare -nocase $log2 "Shape(s) seem(s) to be valid for BOP.\n"] } {
  puts "ERROR. res2 is not valid for BOP"
}

checknbshapes res1 -wire 6 -face 6 -shell 1 -solid 1 -t
checknbshapes res2 -wire 6 -face 6 -shell 1 -solid 1 -t

smallview
donly res1
fit
xwd ${imagedir}/${casename}_1.png
donly rr
fit
donly res2
xwd ${imagedir}/${casename}_2.png