Q:

Problem upgrading SphericalPlot3d to V11

I am converting some code, which ran under V10.2, into V11.  However, the results is different and undesirable.   Here is a simplified version of the code:
mI = Image[
  Graphics @@ GeoGraphics[
    GeoModel -> Entity["PlanetaryMoon", "Moon"],
    GeoProjection -> GeoProjectionData[][[46]]
    (* GallIsographic *)
  ]
];

SphericalPlot3D[
  1, {u, 0, Pi}, {v, 0, 2 Pi},
  TextureCoordinateFunction -> ({#5, 1 - #4} &),
  (* x, y, z, \[Theta], \[Phi], r *)
  PlotStyle -> Directive[Texture[mI]],
  ViewVector -> {2 {Cos[6.392], Sin[6.392], 0}, {0, 0, 0} },
  Mesh -> False,
  Boxed -> False,
  Axes -> False
]

In V10.2, the output, as expected, looks like 
However, in V11, I get the following distortion: 
Note that the problem does not occur if the GeoProjection option is removed. 
Is this a bug in V11, or am I misunderstanding how to texture? 

A:

Thanks to the commenters I now realize that the order of the values in GeoProjectionData has changed in V11, and that I should be directly using the projection name instead of indexing into the array.   Here is code that works correctly in V11:
Image[
  GeoGraphics[
    GeoModel -> Entity["PlanetaryMoon", "Moon"],
    GeoProjection -> "GallIsographic"
  ]
]

Thanks also for the advice about Graphics being redundant in V11.