Pathtraced ripple effect in R with rayshader/rayrender

ripple.R

library(rayshader)
wave = matrix(0,200,200)

for(t in seq(1,360,1)) {
  for(i in 1:200) {
    for(j in 1:200) {
      wave[i,j] = 50*sinpi(sqrt((i-100)^2 + (j-100)^2)/30-t/180) * exp(-(sqrt((i-100)^2 + (j-100)^2))/100)
    }
  }
  wave %>% height_shade() %>% plot_3d(wave, soliddepth = -50, shadowdepth = -70, theta=315,zoom=1.1)
  render_highquality(filename = glue::glue("ripple{t}"),clamp_value=10, clear = TRUE)
}