1
0
mirror of https://git.dev.opencascade.org/repos/occt.git synced 2025-04-03 17:56:21 +03:00

0021821: Section of face by plane is not built due to small edges

Added test case bugs/modalg_6/bug21821
This commit is contained in:
apn 2015-04-16 13:08:51 +03:00 committed by bugmaster
parent 0c015ee26c
commit 67680042bc
2 changed files with 42 additions and 0 deletions

20
tests/bugs/modalg_6/begin Normal file
View File

@ -0,0 +1,20 @@
set subgroup modalg
set calcul "p"
set type "i"
proc OFFSETSHAPE {distance faces calcul type} {
uplevel #0 explode s f
uplevel #0 offsetparameter 1e-7 $calcul $type
uplevel #0 offsetload s $distance $faces
uplevel #0 offsetperform result
}

View File

@ -0,0 +1,22 @@
puts "=========="
puts "OCC21821"
puts "=========="
puts ""
############################################################
# Section of face by plane is not built due to small edges
############################################################
restore [locate_data_file bug21821_plane_tailtop.brep] a
plane p 28.85 0 0 1 0 0
mkface f p -10 10 -10 10
bsection result a f
set length 2.95277
smallview
clear
display result
display f
display a
fit
set only_screen_axo 1