puts "============"
puts "OCC25111"
puts "============"
puts ""
#######################################################################
# Incomplete section curve between Conical and Toroidal surfaces
#######################################################################

restore [locate_data_file bug25111_s1.draw] s1
restore [locate_data_file bug25111_s2.draw] s2

mkface f1 s1
mkface f2 s2

bop f1 f2
bopsection result

checkprops result -l 53.1714 
checkshape result 
checksection result

checknbshapes result -vertex 4 -edge 2 -wire 0 -face 0 -shell 0 -solid 0 -compsolid 0 -compound 1 -shape 7
checkview -display result -2d -path ${imagedir}/${test_image}.png
