mesh_plot for TIN

[mdsumner]

Now in silicate dev which has sc_path and sc_coord for this

mesh_plot.sfc_TIN <- function(x, ...) {
  cds <- sc_coord(x)
  fourth <- seq(4, nrow(cds), by = 4)
  cds <- cds[-fourth, ]
  mesh_plot(rgl::tmesh3d(t(cbind(as.matrix(cds), h = 1)),
               matrix(1:(dim(cds)[1L]), nrow = 3L)))
}

e.g.

mesh_plot(silicate:::tri_to_sf(TRI0(minimal_mesh)))