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 c1 v1
#---------------#
bfillds
bbuild r

# Explode the result compound
explode r

# Check number of shapes
renamevar r_1 result

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