if (FALSE) { # interactive() || isTRUE(as.logical(Sys.getenv("IN_PKGDOWN")))
#Subdivide the included R mesh
obj_mesh(r_obj(),position=c(-0.5,0,0)) |>
add_shape(subdivide_mesh(obj_mesh(r_obj(),position=c(0.5,0,0)),
subdivision_levels = 2)) |>
rasterize_scene(light_info = directional_light(direction=c(0.2,0.5,1)),fov=13)
}
Run the code above in your browser using DataLab