This is another Magnify
problem like (138978)(138978), as you observe. I think the lesson from this, unhappy as it may be, is not to expect ImageResolution
to work properly. Instead craft your graphics (or other output) directly at the resolution that you want.
I mean something like this:
plot =
Plot3D[100, {x, 0, 3}, {y, 0, .4}
, PlotRange -> {{0, 3}, {0, .4}, {0, 100}}
, BoxRatios -> {3, .4, .5}
, ViewPoint -> {0, -Pi, 1.3}
, AxesStyle -> AbsoluteThickness[5]
, BoxStyle -> AbsoluteThickness[5]
, Mesh -> None
, TicksStyle -> Directive[FontSize -> 24]
, ImageSize -> 3 {710, 220}
]
Export["test.png", plot];
It may be possible in some (many?) cases to still take advantage of automatic scaling using things like Thickness
in place of AbsoluteThickness
, and Scaled
. The use of a Scaled
FontSize
does not seem to be universal however so be prepared for problems of its own if you use this. Exampe:
plot2 =
Plot3D[100, {x, 0, 3}, {y, 0, .4}
, PlotRange -> {{0, 3}, {0, .4}, {0, 100}}
, BoxRatios -> {3, .4, .5}
, ViewPoint -> {0, -Pi, 1.3}
, AxesStyle -> Thickness[0.002]
, BoxStyle -> Thickness[0.002]
, Mesh -> None
, BaseStyle -> {FontSize -> Scaled[0.02]}
, ImageSize -> {710, 220}
];
You can Show
or Export
this object at different ImageSize
specifications and have it scale fairly accurately:
Show[plot2, ImageSize -> 400]
Show[plot2, ImageSize -> 1800]