R语言rayrender包,light发光材料

R语言rayrender包,light发光材料

# Thu Jul 01 01:55:37 2021 -

# 字符编码:UTF-8
# R 版本:R x64 4.1 for window 10
# [email protected]
# 个人笔记不负责任,拎了个梨
#.rs.restartR()
require(rayrender)
rm(list = ls());gc()

?   light   #   光材料
#Generate the cornell box without a light and add a single white sphere to the center
scene = generate_cornell(light=FALSE) %>%
  add_object(sphere(x=555/2,y=555/2,z=555/2,radius=555/8,material=light()))

render_scene(scene, lookfrom=c(278,278,-800),lookat = c(278,278,0), samples=500,
             aperture=0, fov=40, ambient_light=FALSE, parallel=TRUE)
kittyR::meowR(sound = 4)#猫叫

#Remove the light for direct camera rays, but keep the lighting
scene = generate_cornell(light=FALSE) %>%
  add_object(sphere(x=555/2,y=555/2,z=555/2,radius=555/8,
                    material=light(intensity=15,invisible=TRUE)))

render_scene(scene, lookfrom=c(278,278,-800),lookat = c(278,278,0), samples=500,
             aperture=0, fov=40, ambient_light=FALSE, parallel=TRUE)

kittyR::meowR(sound = 4)#猫叫
#All gather around the orb
scene = generate_ground(material = diffuse(checkercolor="grey50")) %>%
  add_object(sphere(radius=0.5,material=light(intensity=5,color="red"))) %>%
  add_object(obj_model(r_obj(), z=-3,x=-1.5,y=-1, angle=c(0,45,0))) %>%
  add_object(pig(scale=0.3, x=1.5,z=-2,y=-1.5,angle=c(0,-135,0)))

render_scene(scene, samples=500, parallel=TRUE, clamp_value=10)

kittyR::meowR(sound = 4)#猫叫
dev.copy(png, "3.png");dev.off()

1.png
2.png
3.png

你可能感兴趣的:(R语言rayrender包,light发光材料)