mesh <- vcg_sphere()
mesh <- vcg_uniform_remesh(mesh)
waypoints <- diag(1, 3)
patches <- vcg_mesh_patch(mesh, waypoints)
plot_mesh_polygon(
patches,
col = list("red", 'gray'),
alpha = list(1, 0.5),
eye = c(10, 10, 10)
)
Run the code above in your browser using DataLab