Re: Exporting Plot with Customized Legend to PDF
- To: mathgroup at smc.vnet.net
- Subject: [mg109490] Re: Exporting Plot with Customized Legend to PDF
- From: "Gehricht at googlemail.com" <gehricht at googlemail.com>
- Date: Fri, 30 Apr 2010 05:48:46 -0400 (EDT)
- References: <hqjtc0$96s$1@smc.vnet.net>
Hi!
The problem seems to be related to 'Framed', i.e. it works, if I use
'GraphicsGrid[...,Frame->True] instead
With thanks
Yours Wolfgang
On Apr 20, 11:49 am, Murray Eisenberg <mur... at math.umass.edu> wrote:
> 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, Gehri... 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 mur... at math.umas=
s.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