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()


网友评论