R语言rayrender包，generate_ground生成地

R语言rayrender包，generate_ground生成地面

# Thu Jul 01 01:29:02 2021 -

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

?   generate_ground #   生成地面

scene = generate_ground(depth=-0.5,
                        material = diffuse(noise=1,noisecolor="blue",noisephase=10)) %>%
  add_object(cube(x=0.7,material=diffuse(color="red"),angle=c(0,-15,0))) %>%
  add_object(sphere(x=-0.7,radius=0.5,material=dielectric(color="white")))

render_scene(scene, parallel=TRUE,lookfrom=c(0,2,10))


#更改康奈尔盒子的配色方案
scene = generate_ground(depth=-0.5, spheresize=10000,
                        material = diffuse(checkercolor="grey50")) %>%
  add_object(cube(x=0.7,material=diffuse(color="red"),angle=c(0,-15,0))) %>%
  add_object(sphere(x=-0.7,radius=0.5,material=dielectric(color="white")))

render_scene(scene, parallel=TRUE,lookfrom=c(0,1,10))
dev.copy(png, "2.png");dev.off()