Create a headshape

make_head(r)