Skip to content

Instantly share code, notes, and snippets.

Embed
What would you like to do?
Night Hemispheres in Mathematica.
(* 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

This comment has been minimized.

Copy link
Owner Author

commented Aug 31, 2018

1

@sighingnow

This comment has been minimized.

Copy link
Owner Author

commented Aug 31, 2018

2

@sighingnow

This comment has been minimized.

Copy link
Owner Author

commented Aug 31, 2018

3

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
You can’t perform that action at this time.