mdsumner/surface3d.md

Created May 23, 2020 03:30

Star (1) You must be signed in to star a gist
Fork (0) You must be signed in to fork a gist

Learn more about clone URLs
Clone this repository at <script src="https://gist.github.com/mdsumner/75bbdd7aea552d8843866ccbadd63a2b.js"></script>
Save mdsumner/75bbdd7aea552d8843866ccbadd63a2b to your computer and use it in GitHub Desktop.

Raw

  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"))

Author

mdsumner commented May 23, 2020

  
  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