puts "========="
puts "OCC24618"
puts "========="
puts ""
###########################################################
# Embedding vertex in BOP depends on the order of arguments
###########################################################

# Create a cylindrical face
cylinder c1 20
trimv c1 c1 0 50
mkface c1 c1

# Create a vertex
vertex v1 0 20 25

# Build partition
bclearobjects
bcleartools
#---------------#
baddobjects v1 c1
#---------------#
bfillds
bbuild r

# Explode the result compound
explode r

# Check number of shapes
renamevar r_2 result

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