View source: R/generate_studio.R
generate_studio | R Documentation |
Generates a curved studio backdrop.
generate_studio(
depth = -1,
distance = -10,
width = 100,
height = 100,
curvature = 8,
material = diffuse()
)
depth |
Default '-1'. Depth of the ground in the scene. |
distance |
Default '-10'. Distance to the backdrop in the scene from the origin, on the z-axis. |
width |
Default '100'. Width of the backdrop. |
height |
Default '100'. height of the backdrop. |
curvature |
Default '2'. Radius of the curvature connecting the bottom plane to the vertical backdrop. |
material |
Default |
Tibble representing the scene.
#Generate the ground and add some objects
scene = generate_studio(depth=-1, material = diffuse(color="white")) %>%
add_object(obj_model(r_obj(),y=-0.5,x=0.5, scale=1.2,
material=glossy(color="darkred"),angle=c(0,-20,0))) %>%
add_object(sphere(x=-0.5,radius=0.5,material=dielectric())) %>%
add_object(sphere(y=3,x=-2,z=20,material=light(intensity=600)))
if(run_documentation()) {
render_scene(scene, parallel = TRUE, lookfrom = c(0,2,10), lookat=c(0,-0.25,0),
fov = 14, clamp_value = 10, samples = 16)
}
#Zooming out to show the full default scene
if(run_documentation()) {
render_scene(scene, parallel=TRUE,lookfrom=c(0,200,400),clamp_value=10,samples=16)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.