# offset_udf_4
# 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 8 Faces
UDPARG    offset    faceList  1;2;3;4;5;6;7;8  # Faces 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