1
$\begingroup$

Mathematica chopps off the arrowheads when I export the image generated as below

rot = RGBColor["#A52A2A"];
blau = RGBColor["#004699"];
hellblau = RGBColor["#0071b9"];
p1 = {1, 0};
p2 = {-0.8, 1};
p3 = {-0.8, 0};
p4 = {0, 1};
plot = Show[Graphics[{Thickness[0.005], Line[{p2, p3}]}], 
  Graphics[{Dashed, Thickness[0.005], Line[{-1.5*p1, 1.5*p1}]}], 
  Graphics[{Thickness[0.01], Arrow[{{0, 0}, p1}]}], 
  Graphics[{blau, Thickness[0.01], Arrow[{{0, 0}, p2}]}], 
  Graphics[{hellblau, Thickness[0.01], Arrow[{{0, 0}, p4}]}], 
  Graphics[{rot, Thickness[0.01], Arrow[{{0, 0}, p3}]}], 
  Graphics[Disk[{0, 0}, 0.04]]]
Export["~/Desktop/orthogonalprojection.pdf", plot];

A similar problem has been described here How to stop Mathematica 12.1 from chopping off the axes arrows? but I don't see how I can adapt the proposed solution to my setting.

How can I export the plot correctly as a vector graphic?

$\endgroup$
3
  • $\begingroup$ 236340 is a good workaround. $\endgroup$
    – Syed
    Commented Feb 9, 2022 at 18:50
  • $\begingroup$ @Syed Many thanks! $\endgroup$
    – 220284
    Commented Feb 10, 2022 at 10:02
  • $\begingroup$ Still a problem in 13.1 $\endgroup$
    – Kai
    Commented Sep 19, 2023 at 21:08

0

Your Answer

By clicking “Post Your Answer”, you agree to our terms of service and acknowledge you have read our privacy policy.

Browse other questions tagged or ask your own question.