R/mesh_to_points.R

In habtools: Tools and Metrics for 3D Surfaces and Objects

#' Transform mesh to 3D point cloud
#'
#' @param mesh A triangular mesh of class mesh3d.
#'
#' @return A data frame with XYZ coordinates.
#' @export
#'
#'

mesh_to_points <- function(mesh) {
  out <- data.frame(t(mesh$vb)[,1:3])
  colnames(out) <- c("x", "y", "z")
  out
}