obj通用3D文件可用于商業(yè)軟件進(jìn)一步處理
# Fri Oct 16 01:29:29 2020 -
# 字符編碼：UTF-8
# R 版本：R x64 4.0.2 for window 10
# cgh163email@163.com
# 個(gè)人筆記不負(fù)責(zé)任
# —— 拎了個(gè)梨??
.rs.restartR()
# save_obj函數(shù)樟结，保存對(duì)象為通用3D文件
require(rayshader)
rm(list=ls());gc()
volcano %>%
sphere_shade() %>%
plot_3d(volcano, zscale = 2)
save_obj(filename = 'huoshan.obj',
save_texture = T)
#保存沒(méi)有紋理的火山模型
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()
