Example rotating sunangle

example_rayshader_4walls_hole.r

library(rayshader)
library(av)
library(future)
plan(multiprocess)


# set up an elevation matrix with a wall around the outside and a gap on each of
# the walls.
elmat1 = matrix(0, 500, 500)
elmat1[1:100, 1:200] = 3000
elmat1[1:100, 300:500] = 3000
elmat1[400:500, 1:200] = 3000
elmat1[400:500, 300:500] = 3000

elmat1[1:200, 400:500] = 3000
elmat1[300:500, 400:500] = 3000

elmat1[1:200, 1:100] = 3000
elmat1[300:500, 1:100] = 3000

# rotate the sun angle around from 0 360 and generate a snapshot for each angle
furrr::future_map(seq(0,360,5), ~{
  sunangle = .x
  rgl::rgl.clear()
  elmat1 %>%
    sphere_shade %>%
    add_shadow(ray_shade(elmat1,zscale=3,maxsearch = 1000, sunangle = sunangle),0.5) %>%
    plot_3d(elmat1,zscale=10,fov=0,theta=65,zoom=0.75, phi=65, windowsize = c(1000,800))
  render_snapshot(filename=paste0("frame",sunangle))
  
  print(glue::glue("{sunangle} {Sys.time()}"))
  .x
})

# all the png files created
png_files = sprintf("frame%d.png", seq(0,360,5))

# make mp4 from individual snapshots
av::av_encode_video(png_files, 'output2.mp4', framerate = 5)

# view the video
utils::browseURL('output2.mp4')