
TO MESH :RAD1 :RAD2 :RAD3 :RAD4
PU HT
SETHEADING 90
SETPOS [0 100] PD
ARCS :RAD1 :RAD2
ARCS :RAD1 :RAD3
ARCS :RAD1 :RAD4
SETPENWIDTH 2
END


