Convert 3-D coordinates to 3-D mesh

Source: R/convert_points_to_mesh.R

Computes alpha-shape of three-dimensional coordinates, see here for more info

convert_points_to_mesh(point_matrix, alpha, showme = TRUE)

Arguments

point_matrix

Coordinate data as matrix (individual points, x/y/z coordinates)
alpha

See ashape3d
showme

Return default 3D plot

Value

3D mesh

Examples


if (FALSE) {

# CREATE EXAMPLE POINT MATRIX
path_to_ply <- system.file("extdata", "ply", package="facefuns")
data <- read_vertices(path_to_ply)

shapedata <- facefuns(data = data,
                      pc_criterion = "broken_stick",
                      quiet = TRUE)

point_matrix <- shapedata$pc_plot$PC1$minus

# RUN FUNCTION
mesh <- convert_points_to_mesh(point_matrix = point_matrix,
                               alpha = 1.2,
                               showme = FALSE)

# PLOT RESULT
rgl::open3d()
rgl::plot3d(mesh,
            type = "wire", col = "gray",
            box = FALSE, axes = FALSE,
            xlab = "", ylab = "", zlab = "",
            specular = "black")
rgl::aspect3d("iso")
}