library(MeshesOperations)
library(rgl)
mesh <- Mesh(
truncatedIcosahedron[["vertices"]], truncatedIcosahedron[["faces"]],
triangulate = TRUE, numbersType = "lazyExact"
)
rglmesh <- toRGL(mesh, segments = t(mesh[["edges"]]))
open3d(windowRect = c(50, 50, 562, 562), zoom = 0.9)
shade3d(rglmesh, color = "darkred")
Run the code above in your browser using DataLab