1
0
mirror of https://git.dev.opencascade.org/repos/occt.git synced 2025-04-03 17:56:21 +03:00
occt/tests/bugs/modalg_2/bug5805_41
jgv 8948e18df8 0031845: Modeling Algorithms - BRepOffsetAPI_MakeThickSolid fails
Multiple changes in BRepOffset_MakeOffset algorithm:
- correct fusing vertices;
- correct building intersection edges;
- correct intersecting new edges in 2D;
- correct building wire on a new face;
- correct building history.
2021-01-22 19:09:02 +03:00

56 lines
1.5 KiB
Plaintext
Executable File

puts "TODO OCC25925 ALL: Error: The command cannot be built"
puts "TODO OCC25925 ALL: TEST INCOMPLETE"
puts "TODO OCC25925 ALL: Tcl Exception: Error : command \\\"nbshapes result\\\" gives an empty result"
puts "============"
puts "OCC5805"
puts "============"
#######################################################################
# BRepOffsetAPI_MakeThickSolid behaves unstably and produces very different results.
#######################################################################
set BugNumber OCC5805
set z1 5
set z2 -5
# beziercurve1
beziercurve bc1 5 5 5 ${z1} 5 -5 ${z1} -5 -5 ${z1} -5 5 ${z1} 5 5 ${z1}
mkedge e1 bc1
wire UpCover e1
# beziercurve2
beziercurve bc2 5 4 4 ${z2} 4 -4 ${z2} -4 -4 ${z2} -4 4 ${z2} 4 4 ${z2}
mkedge e2 bc2
wire BottomCover e2
set issolid 1
set isruled 1
if [catch { thrusections s ${issolid} ${isruled} UpCover BottomCover } catch_result] {
puts "Faulty ${BugNumber} : thrusections is wrong"
}
set distance -0.001
catch { OFFSETSHAPE $distance {} $calcul $type }
# Null result
checkprops result -s 495.635
checknbshapes result -vertex 2 -edge 3 -wire 3 -face 3 -shell 1 -solid 1 -compsolid 0 -compound 0 -shape 13
set index [lsearch [whatis s] Closed]
if {$index == -1} {
puts "Faulty ${BugNumber} : s is not Closed shape"
}
set index [lsearch [whatis result] Closed]
if {$index == -1} {
puts "Faulty ${BugNumber} : result is not Closed shape"
}
checkview -display result -2d -path ${imagedir}/${test_image}.png