5
$\begingroup$

Bug introduced in 10.3 or earlier and persisting through 11.1.0 or later

Exporting the filled Bézier curve to PDF or EPS yields 

pts1 = {{3, 0}, {-1, 3}, {1, -5}, {5, -1}, {3, 0}};
test = Graphics[{{EdgeForm[Black], GrayLevel[0.8], 
    FilledCurve[BezierCurve[pts1, SplineDegree -> 4]]}}, 
  PlotRange -> {{0.6, 3.6}, {-1.8, 1.}}, Frame -> False]
Export["i.pdf", test] // SystemOpen

screenshot

In the notebook it renders correctly as

Mathematica graphics

The export to EPS and PDF, thought, remains broken. Exporting to raster formats works correctly.

Improve this question
$\endgroup$
9
  • $\begingroup$ Do you see this only when exporting or also in the notebook? This is what I see in the notebook in M version 10.0 or later, but not in version 9.0. What Mathematica version are you using? $\endgroup$
    – Szabolcs
    Commented Feb 1, 2017 at 10:27
  • $\begingroup$ I edited your question, please review it. I removed any references to exporting because I could not verify that there is a difference between export and in-notebook rendering. I tried this on OS X. Please check again, and add the necessary information: is export really different? What version, what OS? Then we will have collected more diagnostic info. $\endgroup$
    – Szabolcs
    Commented Feb 1, 2017 at 10:32
  • 1
    $\begingroup$ @Szabolcs I use 10.3. In the notebook it renders correctly. Only export is broken. Exporting to raster format and then importing and reexporting again to vector format, of course, helps (it then contains points only objects). OS is Ubuntu Linux, 14.03, (32 bit edition). $\endgroup$
    – Acus
    Commented Feb 1, 2017 at 11:50
  • 2
    $\begingroup$ I am running V11.0.1 on OS X 10.10.2. The graphic object is rendered correctly in the notebook and when saved into PDF file using the notebook menu commands. When I export it using Export, I get the broken version. $\endgroup$
    – m_goldberg
    Commented Feb 1, 2017 at 13:27
  • 1
    $\begingroup$ With Mma 11.0.1 and macOS Sierra 10.12.3 I get the "truncated" image in the notebook $\endgroup$
    – Bob Hanlon
    Commented Feb 1, 2017 at 14:21

1 Answer 1

Reset to default
3
$\begingroup$

Fixed in V13.0.1 or earlier:

pts1 = {{3, 0}, {-1, 3}, {1, -5}, {5, -1}, {3, 0}};
test = Graphics[{{EdgeForm[Black], GrayLevel[0.8], 
    FilledCurve[BezierCurve[pts1, SplineDegree -> 4]]}}, 
  PlotRange -> {{0.6, 3.6}, {-1.8, 1.}}, Frame -> False]
Export[FileNameJoin[{$TemporaryDirectory, "i.pdf"}], test] // SystemOpen

enter image description here

Improve this answer
$\endgroup$
1
  • 1
    $\begingroup$ Appears to be fixed from version 12.0.0. $\endgroup$
    – bmf
    Commented Mar 28, 2022 at 17:32

Your Answer

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

Not the answer you're looking for? Browse other questions tagged or ask your own question.