puts "TODO OCC25929 ALL: ERROR in bopargcheck res1"
puts "TODO OCC25929 ALL: ERROR. res1 with continuity C0"
puts "TODO OCC25929 ALL: ERROR in bopargcheck res2"
puts "TODO OCC25929 ALL: ERROR. res2 with continuity C0"

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 

bop b2 b1

bopcut res1
boptuc res2

checkshape res1
checkshape res2

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

if { [string first "Faulties for FIRST  shape found : 2" $log1] >= 0 } {
  puts "ERROR in bopargcheck res1"
}

if { [string first "Shapes with Continuity C0       : YES  Cases(2)  Total shapes(2)" $log1] >= 0 } {
  puts "ERROR. res1 with continuity C0."
}

if { [string first "Faulties for FIRST  shape found : 2" $log2] >= 0 } {
  puts "ERROR in bopargcheck res2"
}

if { [string first "Shapes with Continuity C0       : YES  Cases(2)  Total shapes(2)" $log2] >= 0 } {
  puts "ERROR. res2 with continuity C0."
}

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