c = SphericalPlot3D[1, {u, 0, Pi}, {v, 0.0, 2.0 Pi}, Mesh -> None,
TextureCoordinateFunction -> ({#5, 3 - #4} &),
PlotStyle -> Directive[Texture[p]], Lighting -> "Neutral",
SphericalRegion -> False,
PlotLabel -> Row[{"Energy = ", Energy , " eV"}],
ViewPoint -> {-12.0, -2.0 , -11}, ViewRange -> All,
ViewVector -> Automatic, ViewVertical -> {1, -20, 0.5},
PlotLegends -> Automatic,
BaseStyle -> {FontWeight -> Bold, FontSize -> 13}, PlotPoints -> 50]
