mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-04 18:06:22 +03:00
b672545674
Looking for inverted edges among the neutral ones while checking the offset edges on validity (BRepOffset_MakeOffset_1::FindInvalidEdges). Test cases for the issue.
23 lines
619 B
Plaintext
23 lines
619 B
Plaintext
# To prevent loops limit to 15 minutes
|
|
cpulimit 900
|
|
if { [array get Draw_Groups "TOPOLOGY Feature commands"] == "" } {
|
|
pload TOPTEST
|
|
}
|
|
if { [array get Draw_Groups "Shape Healing"] == "" } {
|
|
pload XSDRAW
|
|
}
|
|
if { [info exists imagedir] == 0 } {
|
|
set imagedir .
|
|
}
|
|
if { [info exists test_image ] == 0 } {
|
|
set test_image photo
|
|
}
|
|
proc OFFSETSHAPE {distance faces calcul type} {
|
|
global GlobFaces
|
|
set GlobFaces $faces
|
|
if {[llength $faces] > 0} {uplevel #0 explode s f}
|
|
uplevel #0 offsetparameter 1e-7 $calcul $type
|
|
uplevel #0 offsetload s $distance $faces
|
|
uplevel #0 offsetperform result
|
|
}
|