Re: Graphics saving nightmare
- To: mathgroup at smc.vnet.net
- Subject: [mg100430] Re: Graphics saving nightmare
- From: dh <dh at metrohm.com>
- Date: Wed, 3 Jun 2009 05:28:04 -0400 (EDT)
- References: <h02vj5$87p$1@smc.vnet.net>
Hi Sebastian,
in version 7.0.1 PDF and JPEG and BMP seem to do their job. I have not
tried any other formats.
Daniel
Sebastian Meznaric wrote:
> Try the following function:
> w[\[Alpha]_, \[Phi]_] :=
> Exp[\[Alpha]^2 (I Sin[\[Phi]/2] Cos[\[Phi]/2] - Sin[\[Phi]/2]^2)]
>
> Produce a 3D plot as follows:
> Plot3D[Abs[w[\[Alpha], \[Phi]]], {\[Alpha], -5, 5}, {\[Phi], -2 \[Pi],
> 2 \[Pi]}, ColorFunction -> "BrownCyanTones",
> AxesLabel -> {\[Alpha], \[Phi], Abs[Subscript[A, w]]},
> Ticks -> {Range[-4, 4, 2], Range[-2 \[Pi], 2 \[Pi], \[Pi]], {0, 1}}]
>
> Exporting the image turns out to be much harder than one would think.
> Right click and Save Graphics As ... has the following effect:
> - EPS: Mesh polygons become visible, making the image useless
> - PDF: Same as above
> - PNG, JPG, etc: The image produced is gibberish of 1x52 pixels in
> size
>
> Thankfully, the Export function can handle the JPG, PNG etc cases
> successfully. However, the polygons in PDF are extremely annoying and
> the save graphics function should definitely be fixed.
>
> Note: The polygons can be successfully removed from contour images
> with the following package: http://library.wolfram.com/infocenter/MathSource/7029/.
> This only works for contour plots, though...
>