puts "============"
puts "OCC23100"
puts "============"
puts ""
#######################################################################
# Wrong adjustment of p-curves on a cylinder
#######################################################################

set BugNumber OCC23100

restore [locate_data_file bug23100_qf.brep] qf 

explode qf
copy qf_1 b1
copy qf_2 b2

catch {bop b1 b2}
catch {bopfuse result}

checkprops result -s 50252.6 
checkshape result

checknbshapes result -vertex 34 -edge 62 -wire 30 -face 29 -shell 0 -solid 0 -compsolid 0 -compound 1 -shape 156
checkview -display result -3d -path ${imagedir}/${test_image}.png
