R语言rayrender包，render_animation渲染

R语言rayrender包，render_animation渲染动画

# Tue Jul 13 03:27:03 2021 -

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

?   render_animation    #   渲染动画。

set.seed(3)
elliplist = list()
ellip_colors = rainbow(8)
for(i in 1:1200) {
  elliplist[[i]] = ellipsoid(x=10*runif(1)-5,y=10*runif(1)-5,z=10*runif(1)-5,
                             angle = 360*runif(3), a=0.1,b=0.05,c=0.1,
                             material=glossy(color=sample(ellip_colors,1)))
}
ellip_scene = do.call(rbind, elliplist)

camera_pos = list(c(0,1,15),c(5,-5,5),c(-5,5,-5),c(0,1,-15))

#打印相机路径并使用路径对象从上方渲染：
generate_ground(material=diffuse(checkercolor="grey20"),depth=-10) %>%
  add_object(ellip_scene) %>%
  add_object(sphere(y=50,radius=10,material=light(intensity=30))) %>%
  add_object(path(camera_pos, material=diffuse(color="red"))) %>%
  render_scene(lookfrom=c(0,20,0), width=800,height=800,samples=32,
               camera_up = c(0,0,1),
               fov=80)

#侧视图
generate_ground(material=diffuse(checkercolor="grey20"),depth=-10) %>%
  add_object(ellip_scene) %>%
  add_object(sphere(y=50,radius=10,material=light(intensity=30))) %>%
  add_object(path(camera_pos, material=diffuse(color="red"))) %>%
  render_scene(lookfrom=c(20,0,0),width=800,height=800,samples=32,
               fov=80)

#从头开始看
generate_ground(material=diffuse(checkercolor="grey20"),depth=-10) %>%
  add_object(ellip_scene) %>%
  add_object(sphere(y=50,radius=10,material=light(intensity=30))) %>%
  add_object(path(camera_pos, material=diffuse(color="red"))) %>%
  render_scene(lookfrom=c(0,1.5,16),width=800,height=800,samples=32,
               fov=80)
# Tue Jul 13 03:31:02 2021 --
dev.copy(png, "3.png");dev.off()
# Tue Jul 13 03:30:55 2021 ----2--------------------------

#生成摄影机移动，将注视位置设置为与摄影机位置相同，但偏移
#稍微在前面。我们将渲染12帧，但在真实动画中可能需要更多帧。

camera_motion =  generate_camera_motion(positions = camera_pos, lookats = camera_pos,
                                        offset_lookat = 1, fovs=80, frames=12)

#这将返回由三次贝塞尔曲线插值的各个相机位置的数据帧。
camera_motion

#将要打印的文件名传递给设备。我们将保持路径并稍微偏移它以查看
#我们要去哪里。这就产生了“过山车”效应。
generate_ground(material=diffuse(checkercolor="grey20"),depth=-10) %>%
  add_object(ellip_scene) %>%
  add_object(sphere(y=50,radius=10,material=light(intensity=30))) %>%
  add_object(obj_model(r_obj(),x=10,y=-10,scale_obj=3, angle=c(0,-45,0),
                       material=dielectric(attenuation=c(1,1,0.3)))) %>%
  add_object(pig(x=-7,y=10,z=-5,scale=1,angle=c(0,-45,80),emotion="angry")) %>%
  add_object(pig(x=0,y=-0.25,z=-15,scale=1,angle=c(0,225,-20), order_rotation=c(3,2,1),
                 emotion="angry", spider=TRUE)) %>%
  add_object(path(camera_pos, y=-0.2,material=diffuse(color="red"))) %>%
  render_animation(filename = NA, camera_motion = camera_motion, samples=100,
                   sample_method="sobol_blue",
                   clamp_value=10, width=400, height=400)
dev.copy(png, "4.png");dev.off()

1.png 2.png 3.png
image.png