1 # To prevent loops limit to 10 minutes
3 if { [array get Draw_Groups "TOPOLOGY Feature commands"] == "" } {
6 if { [array get Draw_Groups "Shape Healing"] == "" } {
9 if { [info exists imagedir] == 0 } {
12 if { [info exists test_image ] == 0 } {
15 proc OFFSETSHAPE {distance faces calcul type} {
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