mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-07-30 13:05:50 +03:00
28 lines
789 B
Plaintext
Executable File
28 lines
789 B
Plaintext
Executable File
puts "================"
|
|
puts "OCC21754"
|
|
puts "================"
|
|
puts ""
|
|
#################################################################
|
|
# Section of face by plane yields empty result
|
|
#################################################################
|
|
|
|
set BugNumber OCC21754
|
|
|
|
# load shape and make face with natural bounds, to excluse possibility of
|
|
# lame excuse saying that it contains small edges
|
|
restore [locate_data_file OCC21754-bug_bsection_empty.brep] a
|
|
mksurface s a
|
|
mkface f s
|
|
|
|
# create plane at Z=-0.410 (the bug is reproduced for Z in range [-0.405;-0.420])
|
|
plane pl 0 0 -0.410 0 0 1
|
|
mkface p pl 0 10 -5 5
|
|
|
|
bsection result f p -na
|
|
|
|
checknbshapes result -vertex 2 -edge 1 -wire 0 -face 0 -shell 0 -solid 0 -compsolid 0 -compound 1 -shape 4
|
|
set length 0.592137
|
|
|
|
set 2dviewer 0
|
|
|