R语言rayrender包，obj_modelobj文件对象

R语言rayrender包，obj_modelobj文件对象

# Sat Jul 17 00:31:32 2021 -

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

?   obj_model   #   obj文件对象的

generate_ground(material = diffuse(checkercolor = "grey50")) %>%
  add_object(obj_model(y = -0.8, filename = r_obj(),
                       material = metal(color = "gold", fuzz = 0.025))) %>%
  add_object(obj_model(x = 1.8, y = -0.8, filename = r_obj(),
                       material = diffuse(color = "lightblue"))) %>%
  add_object(obj_model(x = -1.8, y = -0.8, filename = r_obj() ,
                       material = dielectric(color = "pink"))) %>%
  add_object(sphere(z = 20, x = 20, y = 20, radius = 10,
                    material = light(intensity = 20))) %>%
  render_scene(parallel = TRUE, samples = 500,
               tonemap = "reinhold", aperture = 0.05, fov = 32, lookfrom = c(0, 2, 10))


#使用scale\u obj使对象变大——这比一般的scale参数更健壮。
generate_ground(material = diffuse(checkercolor = "grey50")) %>%
  add_object(obj_model(y = -0.8, filename = r_obj(), scale_obj = 2,
                       material = diffuse(noise = TRUE, noiseintensity = 10,noisephase=45))) %>%
  add_object(sphere(z = 20, x = 20, y = 20, radius = 10,
                    material = light(intensity = 10))) %>%
  render_scene(parallel = TRUE, samples = 500, ambient = TRUE,
               backgroundhigh="blue", backgroundlow="red",
               aperture = 0.05, fov = 32, lookfrom = c(0, 2, 10),
               lookat = c(0,1,0))
# Sat Jul 17 00:34:27 2021 --
dev.copy(png, "2.png");dev.off()

image.png
image.png