tests/offset/begin

   1 # To prevent loops limit to 10 minutes
   2 cpulimit 900
   3 if { [array get Draw_Groups "TOPOLOGY Feature commands"] == "" } {
   4     pload TOPTEST
   5 }
   6 if { [array get Draw_Groups "Shape Healing"] == "" } {
   7     pload XSDRAW
   8 }
   9 if { [info exists imagedir] == 0 } {
  10    set imagedir .
  11 }
  12 if { [info exists test_image ] == 0 } {
  13    set test_image photo
  14 }
  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 }