I am saving this image using "save graphics as" command but the image quality is poor after saving. How can i improve the resolution of this image.
After zooming the image pixels start distorting. I also wanted to get rid of black points on the corner of edges. Is there any nicer way to save in good resolution? I heard that SVG graphics are very pretty. Is that possible to save in SVG graphics?
My code is
SetOptions[{SphericalPlot3D, ParametricPlot3D}, Mesh -> None,
PlotPoints -> 200];
{fun = r {Sin[t], -Cos[t], 0}};
p0 = SphericalPlot3D[{20, 21}, {θ, 0, Pi/2}, {ϕ, -Pi, Pi},
PlotStyle ->
Directive[RGBColor[0.0863, 0.1216, 0.0784], Opacity[1],
Specularity[White, 30]]];
p1 = ParametricPlot3D[fun, {r, 0, 8}, {t, 0, 2 Pi},
PlotStyle ->
Directive[White, Opacity[1],
Lighting -> {{"Ambient", GrayLevel[1]}}, Specularity[]]];
p2 = ParametricPlot3D[fun, {r, 8, 14}, {t, 0, 2 Pi},
PlotStyle ->
Directive[RGBColor[0.8392, 0.8392, 0.8392], Opacity[1],
Lighting -> {{"Ambient", GrayLevel[1]}}, Specularity[]]];
p3 = ParametricPlot3D[fun, {r, 14, 21}, {t, 0, 2 Pi},
PlotStyle ->
Directive[RGBColor[0.9608, 0.9490, 0.5216], Opacity[1],
Lighting -> {{"Ambient", GrayLevel[1]}}, Specularity[]]];
Show[p0, p1, p2, p3, Axes -> False, Boxed -> False,
DisplayFunction :> Identity, ImageSize -> {360., 309.556},
Method -> {"ShrinkWrap" -> True},
PlotRange -> {{-21., 20.9569}, {-20.9892, 20.9892}, {0., 21.}},
PlotRangePadding -> {Scaled[0.02], Scaled[0.02], Scaled[0.02]},
ViewPoint -> {2.81505, 0.317116, -1.85065},
ViewVertical -> {0.451886, -0.726318, -1.03575}]
Export[filename, graphics, ImageSize -> {8000,6000}]
or similar (with a big ImageSize) may do what you want. $\endgroup$Export["filename.jpg", graphics, ImageResolution -> 600]
$\endgroup$