# Make sure the example does not run when compiling
# or check the package
if(FALSE) {
volume <- array(0, dim = c(8,8,8))
volume[4:5, 4:5, 4:5] <- 1
mesh <- mesh_from_volume(volume, verbose = FALSE)
rgl_view({
rgl_call("shade3d", mesh, col = 3)
rgl_plot_normals(mesh)
})
}
Run the code above in your browser using DataLab