obj通用3D文件可用于商业软件进一步处理
# Fri Oct 16 01:29:29 2020 -
# 字符编码：UTF-8
# R 版本：R x64 4.0.2 for window 10
# cgh163email@163.com
# 个人笔记不负责任
# —— 拎了个梨🍐
.rs.restartR()
# save_obj函数，保存对象为通用3D文件
require(rayshader)
rm(list=ls());gc()
volcano %>%
sphere_shade() %>%
plot_3d(volcano, zscale = 2)
save_obj(filename = 'huoshan.obj',
save_texture = T)
#保存没有纹理的火山模型
save_obj(filename_obj, save_texture = FALSE)
rgl::rgl.close()
#使水具有逼真的折射率
montereybay %>%
sphere_shade() %>%
plot_3d(montereybay,theta=45, water=TRUE)
save_obj(filename = 'water.obj', water_index_refraction = 1.5,save_texture = T)
rgl::rgl.close()
