Grade projetada de linhas de latitude e longitude
Esta função traça a grade completa de paralelos e meridianos (em vermelho e azul, respectivamente) depois de serem projetadas com uma projeção geográfica.
In[1]:=

graticule[proj_] :=
With[{centering = {0, 0, 1.5},
diff = Quantity[10, "AngularDegrees"]},
Framed[Labeled[
GeoGraphics[GeoRange -> "World",
GeoProjection -> {proj, "Centering" -> centering},
GeoGridLines -> diff, GeoGridLinesStyle -> {Red, Blue},
GeoBackground -> None, PlotRangePadding -> Scaled[0.1]], proj]]
]
Esses sãpo três exemplos.
In[2]:=

graticule["Armadillo"]
Out[2]=

In[3]:=

graticule["AmericanPolyconic"]
Out[3]=

In[4]:=

graticule["Bonne"]
Out[4]=

Calcule as grades de latitude e longitude para todas as 151 projeções com um modelo de referência esférico.
In[5]:=

plots = graticule /@ GeoProjectionData["Spherical"];
Rasterize-os usando um tamanho da imagem pequena o suficiente.
In[6]:=

images = Rasterize[#, ImageSize -> 200] & /@ plots;
Faça uma colagem de imagens.
In[7]:=

ImageCollage[images]
Out[7]=
