40093367 |
1 | # To prevent loops limit to 10 minutes |
5805221e |
2 | cpulimit 900 |
40093367 |
3 | if { [array get Draw_Groups "TOPOLOGY Feature commands"] == "" } { |
5805221e |
4 | pload TOPTEST |
5 | } |
6 | if { [array get Draw_Groups "Shape Healing"] == "" } { |
7 | pload XSDRAW |
40093367 |
8 | } |
40093367 |
9 | if { [info exists imagedir] == 0 } { |
10 | set imagedir . |
11 | } |
12 | if { [info exists test_image ] == 0 } { |
13 | set test_image photo |
14 | } |
40093367 |
15 | proc OFFSETSHAPE {distance faces calcul type} { |
16 | global GlobFaces |
17 | set GlobFaces $faces |
18 | uplevel #0 explode s f |
19 | uplevel #0 offsetparameter 1e-7 $calcul $type |
20 | uplevel #0 offsetload s $distance $faces |
21 | uplevel #0 offsetperform result |
22 | } |