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 }