# NOT RUN {
#Here we produce an shadow map of the `volcano` elevation map with the light from the NE.
#The default angle is from 40-50 degrees azimuth, from the north east.
volcanoshadow = ray_shade(volcano)
#Turn off Lambertian shading to get a shadow map solely based on the raytraced shadows.
volcanoshadow = ray_shade(heightmap = volcano,
anglebreaks = seq(30,40,10),
sunangle = 45,
maxsearch = 100,
lambert = FALSE)
plot_map(volcanoshadow)
# }
Run the code above in your browser using DataLab