puts "============"
puts "OCC25542: Boolean operation fai-lure for Cylinder and Cone in critical location."
puts "============"
puts ""

restore [locate_data_file bug25542_cylinder.brep] b1
restore [locate_data_file bug25542_cone.brep] b2

smallview

bop b1 b2

puts ""
puts "FUSE"

bopfuse rfu
donly rfu
fit
xwd ${imagedir}/${casename}_rfu.png

puts ""
puts "COMMON"

bopcommon rco
donly rco
fit
xwd ${imagedir}/${casename}_rco.png

puts ""
puts "CUT"

bopcut rcu
donly rcu
fit
xwd ${imagedir}/${casename}_rcu.png

puts ""
puts "TUC"

boptuc rtu
donly rtu
fit
xwd ${imagedir}/${casename}_rtu.png


set exp_nbshapes_rfu "
Number of shapes in shape
 VERTEX    : 6
 EDGE      : 14
 WIRE      : 8
 FACE      : 8
 SHELL     : 1
 SOLID     : 1
 COMPSOLID : 0
 COMPOUND  : 1
 SHAPE     : 39
"

set exp_nbshapes_rco "
Number of shapes in shape
 VERTEX    : 3
 EDGE      : 5
 WIRE      : 3
 FACE      : 3
 SHELL     : 1
 SOLID     : 1
 COMPSOLID : 0
 COMPOUND  : 1
 SHAPE     : 17
"

set exp_nbshapes_rcu "
Number of shapes in shape
 VERTEX    : 5
 EDGE      : 9
 WIRE      : 5
 FACE      : 5
 SHELL     : 1
 SOLID     : 1
 COMPSOLID : 0
 COMPOUND  : 1
 SHAPE     : 27
"

set exp_nbshapes_rtu "
Number of shapes in shape
 VERTEX    : 4
 EDGE      : 8
 WIRE      : 4
 FACE      : 4
 SHELL     : 1
 SOLID     : 1
 COMPSOLID : 0
 COMPOUND  : 1
 SHAPE     : 23
"

checknbshapes rfu -ref ${exp_nbshapes_rfu} -t -m "FUSE"
checknbshapes rco -ref ${exp_nbshapes_rco} -t -m "COMMON"
checknbshapes rcu -ref ${exp_nbshapes_rcu} -t -m "CUT"
checknbshapes rtu -ref ${exp_nbshapes_rtu} -t -m "TUC"

checkshape rfu
checkshape rco
checkshape rcu
checkshape rtu

checkprops rfu -s 59099.9
checkprops rco -s 6951.3
checkprops rcu -s 57145.3
checkprops rtu -s 7759.96
