Illustrated with example: ``` r library(mooring) m <- mooring(anchor(depth=100), wire(length=200), float()) plot(knockdown(discretise(m), u=1)) ```  <sup>Created on 2022-03-07 by the [reprex package](https://reprex.tidyverse.org) (v2.0.1)</sup>