0032147: Documentation - drop mentioning of WOK from build_3rdparty
[occt.git] / tests / offset / begin
1 # To prevent loops limit to 15 minutes
2 cpulimit 900
3 if { [array get Draw_Groups "TOPOLOGY Feature commands"] == "" } {
4     pload TOPTEST
5     setfillhistory 0
6 }
7 if { [array get Draw_Groups "Shape Healing"] == "" } {
8     pload XSDRAW
9 }
10 if { [info exists imagedir] == 0 } {
11    set imagedir .
12 }
13 if { [info exists test_image ] == 0 } {
14    set test_image photo
15 }
16 proc OFFSETSHAPE {distance faces  calcul type} {
17     global GlobFaces
18     set GlobFaces $faces
19     if {[llength $faces] > 0} {uplevel #0 explode s f}
20     uplevel #0 offsetparameter 1e-7 $calcul $type
21     uplevel #0 offsetload s $distance $faces
22     uplevel #0 offsetperform result
23 }