Generate Maps with Lighting Based on Sun Position 

Create a map of your country with the lighting set by the position of the Sun between sunrise and sunset.

show complete Wolfram Language inputhide input

In[1]:=

X horizonCoordinatesToLightingAngle[{azimuth_, altitude_}] := {(2 \[Pi] - QuantityMagnitude[UnitConvert[azimuth, "Radians"]] + \[Pi]/2), QuantityMagnitude[UnitConvert[altitude, "Radians"]]}; frames = Rasterize[ GeoGraphics[{GeoStyling["ReliefMap", LightingAngle -> horizonCoordinatesToLightingAngle[SunPosition[#]]], Polygon[Entity["Country", "UnitedStates"]]}, ImageSize -> 400, GeoRange -> {{20, 65}, {-130, -65}}], Background -> None] & /@ DateRange[Sunrise[Today], Sunset[Today], {1, "Hour"}];

In[2]:=

X Manipulate[frame, {frame, frames, Animator}]

Play Animation Stop Animation