#Generate a purple rectangle in the cornell box.
if(run_documentation()) {
generate_cornell() %>%
add_object(yz_rect(x = 100, y = 100, z = 555/2, ywidth = 200, zwidth = 200,
material = diffuse(color = "purple"))) %>%
render_scene(lookfrom = c(278, 278, -800) ,lookat = c(278, 278, 0), fov = 40,
ambient_light = FALSE, samples = 16, parallel = TRUE, clamp_value = 5)
}
#Generate a gold plane in the cornell box
if(run_documentation()) {
generate_cornell() %>%
add_object(yz_rect(x = 100, y = 100, z = 555/2,
ywidth = 200, zwidth = 200, angle = c(0, 30, 0),
material = metal(color = "gold"))) %>%
render_scene(lookfrom = c(278, 278, -800) ,lookat = c(278, 278, 0), fov = 40,
ambient_light = FALSE, samples = 16, parallel = TRUE, clamp_value = 5)
}
Run the code above in your browser using DataLab