if (FALSE) { # interactive() || identical(Sys.getenv("IN_PKGDOWN"), "true")
generate_ground(material=diffuse(color="darkgreen")) |>
add_object(sphere(material=diffuse(checkercolor="red"))) |>
render_preview()
#Change the light direction
generate_ground(material=diffuse(color="darkgreen")) |>
add_object(sphere(material=diffuse(checkercolor="red"))) |>
render_preview(light_direction = c(-1,-1,0))
#Change the Phong exponent
generate_ground(material=diffuse(color="darkgreen")) |>
add_object(sphere(material=diffuse(checkercolor="red"))) |>
render_preview(light_direction = c(-1,-1,0), exponent=100)
}
Run the code above in your browser using DataLab