R语言rayrender包，csg_box渲染箱子

R语言rayrender包，csg_box渲染箱子

1.png 2.png 3.png 4.png

# Mon Jun 14 22:35:43 2021 -

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

scene = generate_ground(depth=-0.5,material = diffuse(checkercolor="blue")) %>%
  add_object(cube(x=0.7,
                  material=diffuse(noise=5,noisecolor="purple",color="black",noisephase=45),
                  angle=c(0,-30,0))) %>%
  add_object(sphere(x=-0.7,radius=0.5,material=metal(color="gold")))

render_scene(scene,parallel=TRUE)

# Mon Jun 14 22:37:51 2021 --
# 背景色
# 箱子颜色
# 背景
# 展示
generate_ground(material=diffuse(checkercolor="grey20")) %>%
  add_object(csg_object(csg_box(), material=glossy(color="#FF69B4"))) %>%
  add_object(sphere(y=5,x=5,radius=3,material=light(intensity=5))) %>%
  render_scene(clamp_value=10,lookfrom=c(7,6,7))

# 改变箱子尺寸
generate_ground(material=diffuse(checkercolor="grey20")) %>%
  add_object(csg_object(csg_box(width = c(2,1,0.5)), material=glossy(color="#FF69B4"))) %>%
  add_object(sphere(y=5,x=5,radius=3,material=light(intensity=5))) %>%
  render_scene(clamp_value=10,lookfrom=c(7,3,7))

#减去两个框来做楼梯
generate_ground(material=diffuse(checkercolor="grey20")) %>%
  add_object(csg_object(csg_combine(
    csg_box(),
    csg_box(x=0.5,y=0.5,width=c(1,1,1.1)),operation="subtract"),
    material=glossy(color="#FF69B4"))) %>%
  add_object(sphere(y=5,x=5,radius=3,material=light(intensity=5))) %>%
  render_scene(clamp_value=10,lookfrom=c(7,3,7),fov=13)
# Mon Jun 14 22:41:02 2021 --end
dev.copy(png, "5.png");dev.off()