mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-10 18:51:21 +03:00
20 lines
587 B
Plaintext
20 lines
587 B
Plaintext
puts "=========="
|
|
puts "OCC25715"
|
|
puts "=========="
|
|
puts ""
|
|
#############################################################
|
|
# Intersection between cylinders produces excess vertices
|
|
#############################################################
|
|
# don't change nbshapes values according to 25715
|
|
|
|
pcylinder s1 0.069 0.6
|
|
pcylinder s2 0.024, 0.4
|
|
trotate s1 0 0 0 0 0 1 90
|
|
trotate s2 0 0 0 0 1 0 90
|
|
trotate s2 0 0 0 1 0 0 -45
|
|
ttranslate s2 -0.2 0 0.48
|
|
bcut result s1 s2
|
|
|
|
checknbshapes result -vertex 4 -edge 6 -wire 6 -face 4 -shell 1 -solid 1 -compsolid 0 -compound 1 -shape 23
|
|
set 2dviewer 1
|