sphere <- vcg_sphere()
mesh <- vcg_uniform_remesh(sphere, voxel_size = 0.45)
if(is_not_cran()) {
rgl_view({
rgl_call("mfrow3d", 1, 2)
rgl_call("title3d", "Input")
rgl_call("wire3d", sphere, col = 2)
rgl_call("next3d")
rgl_call("title3d", "Re-meshed to 0.1mm edge distance")
rgl_call("wire3d", mesh, col = 3)
})
}
Run the code above in your browser using DataLab