Re: Exporting Plot with Customized Legend to PDF
- To: mathgroup at smc.vnet.net
- Subject: [mg109272] Re: Exporting Plot with Customized Legend to PDF
- From: Murray Eisenberg <murray at math.umass.edu>
- Date: Tue, 20 Apr 2010 05:50:00 -0400 (EDT)
Export to pdf continues to be buggy when one thing has to overwrite
another or where transparency is involved.
Normally, a work-around is to create the entire graphic with your Plot
expression, then select the output and Save Selection As to PDF. But
that still didn't work here, either.
On 4/19/2010 4:10 AM, Gehricht at googlemail.com wrote:
> MyLegend =
> Inset[Framed[
> GraphicsGrid[{{Graphics[{Black, Thickness[0.05],
> Line[{{0, 0}, {3, 0}}]}],
> mystyle["109.5\[Degree]"]}, {Graphics[{Dashed, Red,
> Thickness[0.05], Line[{{0, 0}, {3, 0}}]}],
> mystyle["116\[Degree]"]}, {Graphics[{DotDashed, Blue,
> Thickness[0.05], Line[{{0, 0}, {3, 0}}]}],
> mystyle["120\[Degree]"]}}, AspectRatio -> 1,
> Spacings -> {0, 0}], FrameMargins -> 0, FrameStyle -> Gray], {4,
> 0.4}, {0, 0}, 3, Background -> White];
> Export["1.pdf",Plot[1/x, {x, 0, 10}, Epilog -> MyLegend]]
--
Murray Eisenberg murray at math.umass.edu
Mathematics & Statistics Dept.
Lederle Graduate Research Tower phone 413 549-1020 (H)
University of Massachusetts 413 545-2859 (W)
710 North Pleasant Street fax 413 545-1801
Amherst, MA 01003-9305