Re: Export a graphical plot to pdf file
- To: mathgroup at smc.vnet.net
- Subject: [mg128585] Re: Export a graphical plot to pdf file
- From: Szymon Roziewski <szymon.roziewski at gmail.com>
- Date: Wed, 7 Nov 2012 00:58:15 -0500 (EST)
- Delivered-to: l-mathgroup@mail-archive0.wolfram.com
- Delivered-to: l-mathgroup@wolfram.com
- Delivered-to: mathgroup-newout@smc.vnet.net
- Delivered-to: mathgroup-newsend@smc.vnet.net
- References: <CAMxxcfYqCu8LEYN5YW9YF-g9vOd6uyZvgYvw7TdrATn7DN7psQ@mail.gmail.com>
Hello,
I've found such a suggestion
antialias[g_] :=
ImageResize[
Rasterize[g, "Image", ImageResolution -> 600, Background -> White],
Scaled[2]]
g = ContourPlot[x^2 + y^2, {x, -1, 1}, {y, -1, 1}];
img = antialias[Show[g, Axes -> False, Boxed -> False]];
Export["file.pdf", img, "AllowRasterization" -> False]
But the background is lightred although I set it up to be white.
Bes wishes,
Szymon Roziewski
On 6 November 2012 16:03, Szymon Roziewski <szymon.roziewski at gmail.com>wrote:
> Hi there,
>
> I have a ContourPlot result which I need to put into pdf file.
> The problem is that the filled area is in a mess, I mean there are lots of
> thin white stripes on it.
>
> For example, please try out this bunch of code
>
> gr = ContourPlot[x^2 + y^2, {x, -1, 1}, {y, -1, 1}];
> Export["file.pdf", gr]
>
>
> Best regards,
> Szymon Roziewski
>
>
--
Z wyrazami szacunku,
Szymon Roziewski