mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
34 lines
727 B
Plaintext
34 lines
727 B
Plaintext
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_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
|