catenary <- arrow_head_catenary(plot = TRUE)
stlouis <-
arrow_head_catenary(
plot = TRUE,
a = 0.4,
base_width = 0.2,
thickness = .09
)
bluntnosed_catenary <-
arrow_head_catenary(
plot = TRUE,
a = .2,
thickness = 1.2
)
Run the code above in your browser using DataLab