2

I have some planar graphics involving lines and text, produced by Line[] and Text[], accepting the default font on the latter. When I Save Graphics as .jpg, it looks fine, left below. When I save as .pdf, the fonts are mangled, right below.


          JPGvsPDF
This is using Mathematica 10.0.2.0 running under Mac OSX 10.9.5. Has anyone encountered this problem before?
Below, pts1 and pts2 are 2D points list:
n = Length[pts1];
text1 = MapThread[Text[#1, #2] &, {Range[1, n], pts1}];
text2 = MapThread[Text[#1, #2] &, {Range[1, n], pts2}];
g = Graphics[{
    Purple, Line[pts1], Red, text1,
    Green, Line[pts2], text2
    }]

I exported by right-clicking on the notebook image and selecting Save Graphics As...

Joseph O'Rourke
  • 4,731
  • 25
  • 42

0 Answers0