# removeNodes_udf_1
# written by John Dannenhoffer

# plate
SKBEG      0  0  0
   LINSEG  3  0  0
   LINSEG  3  1  0
   LINSEG  3  2  0
   LINSEG  2  2  0
   LINSEG  1  2  0
   LINSEG  0  2  0
   CIRARC -1  1  0  0  0  0
SKEND

# put a hole in it
CYLINDER   1  1 -1  1  1  1  1/4
SUBTRACT

# make a copy that is translated up
RESTORE   .
TRANSLATE 0  3  0

# remove Nodes with small dihedral angles
UDPRIM    removeNodes   angle 5

END
