# NOT RUN {
#Generate a checkered ground
scene = generate_ground(depth=-0.5,
material=diffuse(color="white", checkercolor="grey30",checkerperiod=2))
# }
# NOT RUN {
render_scene(scene,parallel=TRUE)
# }
# NOT RUN {
#Add a glass sphere
# }
# NOT RUN {
scene %>%
add_object(sphere(x=-0.5,radius=0.5,material=dielectric())) %>%
render_scene(parallel=TRUE,samples=400)
# }
# NOT RUN {
#Add a rotated colored glass cube
# }
# NOT RUN {
scene %>%
add_object(sphere(x=-0.5,radius=0.5,material=dielectric())) %>%
add_object(cube(x=0.5,xwidth=0.5,material=dielectric(color="darkgreen"),angle=c(0,-45,0))) %>%
render_scene(parallel=TRUE,samples=40)
# }
# NOT RUN {
#Add an area light behind and at an angle and turn off the ambient lighting
# }
# NOT RUN {
scene %>%
add_object(sphere(x=-0.5,radius=0.5,material=dielectric())) %>%
add_object(cube(x=0.5,xwidth=0.5,material=dielectric(color="darkgreen"),angle=c(0,-45,0))) %>%
add_object(yz_rect(z=-3,y=1,x=0,zwidth=3,ywidth=1.5,
material=diffuse(lightintensity=15),
angle=c(0,-90,45), order_rotation = c(3,2,1))) %>%
render_scene(parallel=TRUE,aperture=0, ambient_light=FALSE,samples=1000)
# }
Run the code above in your browser using DataLab