# splitEdges_udc_1
# written by John Dannenhoffer

# D-shaped cross-sestion
SKBEG     0 -1  0
   CIRARC 1  0  0  0  1  0
   LINSEG 0 -1  0
SKEND

# break circular Edge at its center
SELECT    EDGE  1 0 0
ATTRIBUTE splitLocs "0.50"

# break straight Edge at 1/3 and 2/3 of the Edge
SELECT    EDGE  0 0 0
ATTRIBUTE splitLocs "1/3; 2/3"

UDPRIM    $$/splitEdges

# show the Nodes and orientations of the Edges
SELECT    NODE
ATTRIBUTE _viz $on
SELECT    EDGE
ATTRIBUTE _ori $on

END

