# offset_udf_3
# written by John Dannenhoffer

# basic shape
SKBEG     0  0 -6
   LINSEG 2  0 -6
   LINSEG 2  2 -6
   LINSEG 4  1 -6
   LINSEG 4  4 -6
   LINSEG 1  4 -6
   LINSEG 0  3 -6
   LINSEG 0  0 -6
SKEND
EXTRUDE   0  0 12

CYLINDER -5  2  0  5  2  0  2.2
ROTATEX  90  2  0
INTERSECT

# color all Edges magenta
SELECT    EDGE
ATTRIBUTE _color   $magenta

# offset on one Face
UDPARG    offset    faceList  9              # Face to be cut
UDPARG    offset    edgeList  9;14;18;21       # Edges that are offset
UDPRIM    offset    dist      0.2            # offset distance

# color the new offset Faces white
SELECT    FACE     $__offsetFace__  $*
ATTRIBUTE _color   $white
ASSERT    @sellist.size  4

END