mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-04 18:06:22 +03:00
b7d2387022
The functionality to decide, whether the edge is degenerated, was shared via BRepLib_MakeFace. The verification of producing degenerated edges was added to BRepLib_MakeShell. Test case for issue CR25591
19 lines
397 B
Plaintext
19 lines
397 B
Plaintext
puts "============"
|
|
puts "OCC25591"
|
|
puts "============"
|
|
puts ""
|
|
#################################
|
|
# Command mkshell produces wrong shell
|
|
#################################
|
|
|
|
sphere surf 100
|
|
mkshell sh surf 1
|
|
explode sh e
|
|
catch {mkcurve csh_2 sh_2}
|
|
|
|
if { [llength [dump csh_2]] > 0 } {
|
|
puts "Error: Command mkshell produces wrong shell"
|
|
} else {
|
|
puts "OK: Command mkshell produces good shell"
|
|
}
|