R语言rayrender包，csg_triangle二维三角板

R语言rayrender包，csg_triangle二维三角板

# Thu Jun 17 22:56:56 2021 -

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


csg_triangle二维三角板
generate_ground(material=diffuse(checkercolor="grey20")) %>%
  add_object(csg_object(csg_triangle(),material=diffuse(color="red"))) %>%
  add_object(sphere(y=5,z=3,material=light(intensity=30))) %>%
  render_scene(clamp_value=10,fov=20)

#Change a vertex:
generate_ground(material=diffuse(checkercolor="grey20")) %>%
  add_object(csg_object(csg_triangle(v1 = c(1,1,0)),material=diffuse(color="green"))) %>%
  add_object(sphere(y=5,z=3,material=light(intensity=30))) %>%
  render_scene(clamp_value=10,fov=20)

#Change all three vertices:
generate_ground(material=diffuse(checkercolor="grey20")) %>%
  add_object(csg_object(csg_triangle(v1 = c(0.5,1,0), v2 = c(1,-0.5,0), v3 = c(-1,0.5,0)),
                        material=diffuse(color="blue"))) %>%
  add_object(sphere(y=5,z=3,material=light(intensity=30))) %>%
  render_scene(clamp_value=10,fov=20,lookfrom=c(0,5,10))
dev.copy(png, "1.png");dev.off()