# 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