library(MeshesOperations)
library(rgl)
vf <- readMeshFile(
system.file("extdata", "beethoven.ply", package = "MeshesOperations")
)
mesh <- Mesh(
vf[["vertices"]], vf[["faces"]], normals = TRUE, clean = TRUE
)
rglmesh <- toRGL(mesh)
open3d(windowRect = c(50, 50, 562, 562))
view3d(0, 0, zoom = 0.8)
shade3d(rglmesh, color = "palevioletred")
Run the code above in your browser using DataLab