mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-04 18:06:22 +03:00
23 lines
591 B
Plaintext
23 lines
591 B
Plaintext
# To prevent loops limit to 10 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
|
|
uplevel #0 explode s f
|
|
uplevel #0 offsetparameter 1e-7 $calcul $type
|
|
uplevel #0 offsetload s $distance $faces
|
|
uplevel #0 offsetperform result
|
|
}
|