Navigation Menu

Skip to content

Instantly share code, notes, and snippets.

@sighingnow

sighingnow/hemispheres.mma

Created October 19, 2016 11:32
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save sighingnow/96946f539342085a0759474d5389af7a to your computer and use it in GitHub Desktop.
Save sighingnow/96946f539342085a0759474d5389af7a to your computer and use it in GitHub Desktop.
Download ZIP
Night Hemispheres in Mathematica.
Raw
hemispheres.mma
(* set geography data server *)
server := "http://www.staremapy.cz/naturalearth/`1`/`2`/`3`.png"
(* plot *)
GeoGraphics[{GeoStyling[Opacity[0.5], GeoServer -> server],
NightHemisphere[]},
GeoBackground -> GeoStyling["ReliefMap", GeoServer -> server]]
(* more simple graph *)
GeoGraphics[{NightHemisphere[Now], Red, Point[$GeoLocation]}]
(* global night hemispheres *)
GeoGraphics[{
GeoStyling[Opacity[.5]], NightHemisphere[],
RGBColor[0.5, 0., 0.], Thickness[0.007], PointSize[.02],
Point[$GeoLocation], GeoPath["ArcticCircle"],
GeoPath["AntarcticCircle"]
}, GeoRange -> "World", GeoProjection -> "LambertAzimuthal",
GeoBackground -> GeoStyling["ReliefMap"]]
@sighingnow
Copy link
Author

1

@sighingnow
Copy link
Author

2

@sighingnow
Copy link
Author

3

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment