# What I exported is different from what I drew?

This is the code. I wish to export figure containing vectorial elements. I successfully achieved the goal but the exported result is just subjected to distortion. How to solve this problem.

(*强度以x^2从0变到1*)
SetOptions[MaTeX, FontSize -> 30, "Preamble" -> {"\\usepackage{bm}"}];
a1 = DensityPlot[Abs[(Sqrt[x^2 + y^2])^2], {x, -1, 1}, {y, -1, 1},
ColorFunction -> GrayLevel, ColorFunctionScaling -> False,
RegionFunction -> (#1^2 + #2^2 <= 1 &), PlotPoints -> 300,
PlotTheme -> "Minimal", Background -> White,
PlotRange -> {{-2, 2}, {-2, 2}}];
a2 = ParametricPlot[
Table[a {Cos[t], Sin[t]}, {a, 0, 1, 0.01}], {t, 0, 2 Pi},
ColorFunction -> (Hue[#3] &),
RegionFunction -> (#1^2 + #2^2 <= 1 &), PlotStyle -> Thick,
Axes -> False, Background -> Black,
PlotRange -> {{-2, 2}, {-2, 2}}];
a3 = Rasterize[(ImageMultiply[a1, a2] // ColorNegate),
RasterSize -> 1000];
a4 = Graphics[{Dashing[{0.01, 0.03}], Black, Thickness[0.015],
Line[{{0, 0}, {0.9, 0}}]}, PlotRange -> {{-2, 2}, {-2, 2}}];
a5 = Graphics[{PointSize[0.03], Black, Point[{0.5, 0.7}]}];
a6 = Graphics[{PointSize[0.025], Black, Point[{0, 0}]}];
a7 = Graphics[{Thickness[0.015], Black, Line[{{0, 0}, {0.5, 0.7}}]}];
data = Table[1.2 {Cos[t], Sin[t]}, {t, 0 \[Pi], 0.28 Pi, 0.05}];

• The only difference I can identify is the arrow. Unfortunately, when exporting to PDF, Mathematica adds a stroke thickness around the edge of the arrow. If you must have PDF, the only workaround I’m aware of is to open the image in a vector graphics program and remove the edge stroke for the arrow. If you are okay with a high-resolution raster image, you could export it as PNG with the option ImageResolution -> 300 or whatever setting you want. – MassDefect Apr 6 at 18:51