geom_catenary function

Draw a catenary curve