surface3d.md

  library(anglr)
  dem <- gebco
  mesh <- as.mesh3d(dem, triangles = FALSE)
  mesh$material$color <- colourvalues::colour_values(mesh$vb[3, ]); mesh$meshColor <- "vertices"
  plot3d(mesh)
  rgl::aspect3d(1, 1, .1)
  
  
  ## surface3d way
  library(raster)  ## don't @me give me a reprex with x, y vectors and a z matrix ;)
  z <- t(as.matrix(dem))
  x <- xFromCol(dem)
  y <- yFromRow(dem)
  
  surface3d(x, y, z, col = colourvalues::colour_values(z, "magma"))
  
  

  
  z <- matrix(c(1:5, 4:1), 3)
  x <- 1:3
  y <- 1:3
  open3d()
  surface3d(x, y, z, col = viridis::viridis(9)[z])
  wire3d(as.mesh3d(raster(list(x = x, y = y, z = z)), triangles = FALSE))
  aspect3d(1, 1, .2)
  

pixel vs. point