Turn a screenshot into a 3D animation with depth of field

screenshot_with_depth_rayshader.R

library(rayshader)

screenpng = png::readPNG("screenshot.png")

elmat = matrix(0,nrow = nrow(screenpng),ncol=ncol(screenpng))

plot_3d(screenpng,t(elmat),soliddepth = -100,windowsize=c(1000,1000),
        background = "lightblue",shadowdepth = -200,
        shadowcolor = "#185054",shadowwidth = 100)

phivec = 50 + 40 * 1/(1 + exp(seq(-2, 10, length.out = 360)*2))
thetavec =  -44 + 45 * 1/(1 + exp(seq(-2, 10, length.out = 360)*2))
zoomvec =  0.6 + 0.25 * 1/(1 + exp(seq(-2, 10, length.out = 360)*2))
focusvec = 0.55 + -0.25 * 1/(1 + exp(seq(-4, 8, length.out = 360)/2))

for(i in 1:360) {
  render_camera(phi=phivec[i],theta=thetavec[i],zoom=zoomvec[i],fov=0)
  render_depth(focus = focusvec[i], focallength = 100,filename = glue::glue("screenshot{i}"))
}