adityaa1729

``` elev_matrix %>% sphere_shade(texture = "imhof4") %>% add_water(watermap, color = "imhof4") %>% add_overlay(overlay_img, alphalayer = 0.5) %>% add_shadow(raymat, max_darken = 0.5) %>% add_shadow(ambmat, max_darken = 0.5) %>% plot_3d(elev_matrix, zscale =...