R语言rayrender包，csg_group多个元素组合

作者: youmigo | 来源:发表于2021-07-28 22:37 被阅读0次

csg_group多个元素组合.png

# Wed Jun 16 00:50:15 2021 -

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

# csg_group多个元素组合
generate_ground(material=diffuse(checkercolor="grey20")) %>%
  add_object(csg_object(csg_combine(
    csg_group(list(csg_sphere(x=1,z=1, radius=0.5),csg_sphere(x=-1,z=1, radius=0.5),
                   csg_sphere(x=1,z=-1, radius=0.5),csg_sphere(x=-1,z=-1, radius=0.5))),
    csg_box(y=0.5, width=c(2,0.2,2)), operation="blend"), material=glossy(color="red"))) %>%
  add_object(sphere(y=10,x=-5,radius=3,material=light(intensity=10))) %>%
  render_scene(clamp_value=10,lookfrom=c(5,5,10))

dev.copy(png, "csg_group多个元素组合.png");dev.off()