R语言rayrender包，generate_cornell生成

R语言rayrender包，generate_cornell生成康奈尔盒子

# Thu Jul 01 01:22:47 2021 -

# 字符编码：UTF-8
# R 版本：R x64 4.1 for window 10
# cgh163email@163.com
# 个人笔记不负责任，拎了个梨🍐🌷
#.rs.restartR()
require(rayrender)
rm(list = ls());gc()


?   generate_cornell    #   生成康奈尔盒子
#生成并渲染默认的康奈尔长方体。
scene = generate_cornell()
scene
render_scene(scene, samples=400,aperture=0, fov=40, ambient_light=FALSE, parallel=TRUE)


#在房间中央放一盏小得多的灯。
scene = generate_cornell(lightwidth=200,lightdepth=200)

render_scene(scene, samples=400,aperture=0, fov=40, ambient_light=FALSE, parallel=TRUE)

# 把一个球体放在盒子的中间。
scene = scene %>%
  add_object(sphere(x=555/2,y=555/2,z=555/2,radius=555/4))

render_scene(scene, samples=400,aperture=0, fov=40, ambient_light=FALSE, parallel=TRUE)


#通过在render\u scene（）中设置钳制值来减少“萤火虫”

render_scene(scene, samples=400,aperture=0, fov=40, ambient_light=FALSE,
             parallel=TRUE,clamp_value=3)

#更改康奈尔盒子的配色方案

new_cornell = generate_cornell(leftcolor="purple", rightcolor="yellow")
render_scene(new_cornell, samples=400,aperture=0, fov=40, ambient_light=FALSE,
             parallel=TRUE,clamp_value=3)
# Thu Jul 01 01:26:11 2021 --
dev.copy(png, "3.png");dev.off()