add_anchor function

A ggproto for drawing anchor points