mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
420b38fde9
Extend the Offset operation (Join Type "Intersection", mode "Complete") to allow different offset values on adjacent co-planar faces. The gap between adjacent faces is closed by creating artificial face perpendicular to the face. Adding test cases.
24 lines
640 B
Plaintext
24 lines
640 B
Plaintext
# To prevent loops limit to 15 minutes
|
|
cpulimit 900
|
|
if { [array get Draw_Groups "TOPOLOGY Feature commands"] == "" } {
|
|
pload TOPTEST
|
|
setfillhistory 0
|
|
}
|
|
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
|
|
}
|