I have been using Mathematica 9 to generate images of fractals for some time, and I noticed an uncomfortable phenomenon when I export the fractal image into a PDF. The lines get thick so that the details of the fractals get lost to some extent. This did not happen when I was using Mathematica 8. Now I have to make my pictures in Mathematica 9, save them, and export them in Mathematica 8, which is really inconvenient. I was just wondering if anyone would have a solution to this problem.

Here are two pictures of the Sierpinski gasket I have. The first was exported in Mathematica 8, the other was exported in 9.

Mathematica 8 Image Mathematica 9 Image

The code for generating the gasket is like this:

q1 = {0, 0}; q2 = {-1/2, -Sqrt[3]/2}; q3 = {1/2, -Sqrt[3]/2};
F1[{x_, y_}] := .5 ({x, y} - q1) + q1;
F2[{x_, y_}] := .5 ({x, y} - q2) + q2;
F3[{x_, y_}] := .5 ({x, y} - q3) + q3;

S = {{{{0., 0.}, {-.5, -Sqrt[3]/2.}, {.5, -Sqrt[3]/2.}}}};
For[i = 2, i <= 8, i++,
 old = S[[-1]];
 new = Join[
   Table[F1 /@ s, {s, old}],
   Table[F2 /@ s, {s, old}],
   Table[F3 /@ s, {s, old}]
 AppendTo[S, new]

  Polygon /@ S[[8]]
  ], ImageSize -> 400

I personally use a Windows computer, I have noticed this issue on Macs and Linux as well, but only with Mathematica 9. I am guessing there is some parameter of the default setting to change.


closed as off-topic by user9660, Öskå, dr.blochwave, MarcoB, m_goldberg Dec 22 '15 at 2:19

This question appears to be off-topic. The users who voted to close gave this specific reason:

  • "The question is out of scope for this site. The answer to this question requires either advice from Wolfram support or the services of a professional consultant." – Community, Öskå, dr.blochwave, MarcoB, m_goldberg
If this question can be reworded to fit the rules in the help center, please edit the question.

  • 5
    $\begingroup$ Please show us the code you used to generate the fractal, so that we can try to replicate and then work the problem. $\endgroup$ – 2012rcampion May 14 '15 at 4:01
  • $\begingroup$ Platform? Just did a quick-n-dirty on Windows, 9.x MMA, PDF via export looks fine, no details lost compared to notebook... $\endgroup$ – ciao May 14 '15 at 6:54
  • 2
    $\begingroup$ I reopened your question. What method are you using to save/export the graphic? $\endgroup$ – Mr.Wizard May 15 '15 at 14:08
  • $\begingroup$ Are you using the default style sheet in Mathematica 9? $\endgroup$ – Simon Woods May 15 '15 at 18:04
  • $\begingroup$ and have you tried using EdgeForm[] in the graphics expression? $\endgroup$ – Simon Woods May 15 '15 at 18:05