Function Repository Resource:

GeoElevationGraphics3D

Visualize 3D geographics with elevation

Contributed by: Jon McLoone

ResourceFunction["GeoElevationGraphics3D"][primitives]

generates a 3D surface of GeoElevationData with GeoGraphics mapped onto the surface.

Details and Options

ResourceFunction["GeoElevationGraphics3D"] accepts most of the same options as GeoGraphics and ListPlot3D. In addition it supports the following option:

"SeaLevelStyle"

None

style for drawing a layer to show sea level

Examples

Basic Examples (1)

Generate a 3D map of the region around Durham, UK:

In[1]:=

Out[1]=

Scope (1)

GeoElevationGraphics3D can accept any contents supported by GeoGraphics:

In[2]:=

Out[2]=

Options (7)

Most GeoGraphics options are supported:

In[3]:=

Out[3]=

Most ListPlot3D options are supported:

In[4]:=

Out[4]=

All GeoBackground values are supported:

In[5]:=

Out[5]=

GeoElevationGraphics3D displays underwater levels by default:

In[6]:=

Out[6]=

You can also display sea level using "SeaLevelStyle":

In[7]:=

Out[7]=

Display sea level using "SeaLevelStyle", which accepts any style directives:

In[8]:=

Out[8]=

Alternatively you can use PlotRange to only display positive values:

In[9]:=

Out[9]=

At a large scale, some map projections produce non-rectangular regions:

In[10]:=

ResourceFunction["GeoElevationGraphics3D"][{}, GeoRange -> "World", GeoZoomLevel -> 1, GeoRange -> "World", GeoProjection -> {"Albers", "Centering" -> GeoPosition[{40, -90}], "StandardParallels" -> {30, 50}}]

Out[10]=

Using RegionFunction→Automatic will attempt to trim the graphic to only show mapped areas:

In[11]:=

Out[11]=

Possible Issues (1)

All GeoElevationGraphics3D use a planar map projection, resulting in "flat earth" graphics at a large scale:

In[12]:=

ResourceFunction["GeoElevationGraphics3D"][{}, GeoRange -> "World", GeoZoomLevel -> 1, GeoProjection -> {"LambertAzimuthal", "Centering" -> GeoPosition[{90, 0}]}, RegionFunction -> Automatic, "SeaLevelStyle" -> Automatic]

Out[12]=

Neat Examples (2)

Drape the African nations in their national flags:

In[13]:=

$flags = EntityValue[\!\(\* NamespaceBox["LinguisticAssistant", DynamicModuleBox[{WolframAlphaClient`Private`query$$ = "Africa", WolframAlphaClient`Private`boxes$$ = TemplateBox[{"\"Africa\"", RowBox[{"EntityClass", "[", RowBox[{"\"Country\"", ",", "\"Africa\""}], "]"}], "\"EntityClass[\\\"Country\\\", \\\"Africa\\\"]\"", "\"countries\""}, "EntityClass"], WolframAlphaClient`Private`allassumptions$$ = {{ "type" -> "Clash", "word" -> "Africa", "template" -> "Assuming \"${word}\" is ${desc1}. Use as \ ${desc2} instead", "count" -> "2", "Values" -> {{ "name" -> "CountryClass", "desc" -> "a continent", "input" -> "*C.Africa-_*CountryClass-"}, { "name" -> "GivenName", "desc" -> "a given name", "input" -> "*C.Africa-_*GivenName-"}}}}, WolframAlphaClient`Private`assumptions$$ = {}, WolframAlphaClient`Private`open$$ = {1, 2}}, DynamicBox[ToBoxes[ AlphaIntegration`LinguisticAssistantBoxes["", 1, Dynamic[WolframAlphaClient`Private`query$$], Dynamic[WolframAlphaClient`Private`boxes$$], Dynamic[WolframAlphaClient`Private`allassumptions$$], Dynamic[WolframAlphaClient`Private`assumptions$$], Dynamic[WolframAlphaClient`Private`open$$]], StandardForm], ImageSizeCache->{171., {7., 17.}}, TrackedSymbols:>{ WolframAlphaClient`Private`query$$, WolframAlphaClient`Private`boxes$$, WolframAlphaClient`Private`allassumptions$$, WolframAlphaClient`Private`assumptions$$, WolframAlphaClient`Private`open$$}], DynamicModuleValues:>{}, UndoTrackedVariables:>{WolframAlphaClient`Private`open$$}], BaseStyle->{"Deploy"}, DeleteWithContents->True, Editable->False, SelectWithContents->True]\), {"Entity", "FlagImage"}];$