Re: Export[] hi-res JPEG not affecting Axes|Plot Label->
- To: mathgroup at smc.vnet.net
- Subject: [mg110636] Re: Export[] hi-res JPEG not affecting Axes|Plot Label->
- From: telefunkenvf14 <rgorka at gmail.com>
- Date: Wed, 30 Jun 2010 01:48:37 -0400 (EDT)
- References: <i09ffm$517$1@smc.vnet.net>
On Jun 28, 1:29 am, divisor <congruentialumina... at yahoo.com> wrote:
> Hello MathGroup:
>
> I am making some plots and exporting high-resolution JPEGs from them.
> But the AxesLabel and PlotLabels are not "scaled"ed with the desired
> resolution. As a result, although the graphic is "large", the user
> must scroll in to read the labels.
>
> Has anyone had this problem and/or found a workaround? Here is a
> simple test case using a Documentation Center-supplied example:
>
> f[x_, y_] := x^2 + y^2
> g[x_, y_] := -x^2 - y^2
> h[q, r, s] := Function[{q, r, s}, q^2 + r^2 <= 4]
>
> Plot3D[{f[q, r], g[q, r]}, {q, -2, 2}, {r, -2, 2}
> , RegionFunction -> h[q, r, s]
> , BoxRatios -> Automatic
> , AxesLabel -> {q, r}
> , PlotLabel ->
> Style[ToString@TraditionalForm@f[q, r] <> " and " <>
> ToString@TraditionalForm@g[q, r] <> "\n constrained by " <>
> ToString@TraditionalForm@h[q, r, s]
> , Blue, Italic, 18]
> ]
>
> Export[
> "C:\\Users\\toshW7_0611\\Documents\\iConecto\\dzcMmaT3.jpg"
> , %6, "JPEG"
> , ImageSize -> {3000, 2000}
> , ImageResolution -> 300
> ]
>
> TIA.
>
> Regards..
>
> Roger Williams
> Franklin Laboratory
(1) I'd use a different format, if at all possible. JPEG = lossy. If
it has to be an image file, PNG would probably be better.
(2) Try adjusting the LabelStyle and TicksStyle pts.
Rasterize[
Plot3D[{f[q, r], g[q, r]}, {q, -2, 2}, {r, -2, 2},
RegionFunction -> h[q, r, s], BoxRatios -> Automatic,
AxesLabel -> {q, r},
LabelStyle -> Directive[Black, 36],
TicksStyle -> Directive[Black, 36],
PlotLabel ->
Style[ToString@TraditionalForm@f[q, r] <> " and " <>
ToString@TraditionalForm@g[q, r] <> "\n constrained by " <>
ToString@TraditionalForm@h[q, r, s], Blue, Italic, 48]],
ImageSize -> {3000, 2000}, ImageResolution -> 300]
Export["C:\\Users\\x61Tablet\\Desktop\\dzcMmaT3.jpg", %, "JPEG",
"CompressionLevel" -> .25] (*lower compression for better
quality...*)
-RG