if(run_documentation()) {
#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