mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-05 18:16:23 +03:00
32 lines
635 B
Plaintext
32 lines
635 B
Plaintext
puts "========="
|
|
puts "OCC24597"
|
|
puts "========="
|
|
puts ""
|
|
###########################################################
|
|
# Missing internal vertex in the result of General Fuse Operation
|
|
###########################################################
|
|
|
|
cylinder c1 20
|
|
trimv c1 c1 0 50
|
|
mkface b1 c1
|
|
vertex v1 0 20 25
|
|
orientation v1 I
|
|
add v1 b1
|
|
box b2 -30 -30 5 60 60 40
|
|
|
|
# add the arguments
|
|
bclearobjects
|
|
bcleartools
|
|
baddobjects b1 b2
|
|
|
|
# intersection step
|
|
bfillds
|
|
|
|
# building step
|
|
bbuild result
|
|
|
|
set square 33136.3
|
|
|
|
checknbshapes result -vertex 13 -edge 19 -wire 13 -face 11 -shell 2 -solid 2 -compsolid 0 -compound 1 -shape 61
|
|
set 2dviewer 1
|