Skip to main content
replaced http://mathematica.stackexchange.com/ with https://mathematica.stackexchange.com/
Source Link

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]

enter image description here

This is another Magnify problem like (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]

enter image description here

This is another Magnify problem like (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]

enter image description here

added 1191 characters in body
Source Link
Mr.Wizard
  • 273.1k
  • 34
  • 595
  • 1.4k

This is another Magnify problem like (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]

enter image description here

This is another Magnify problem like (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];

This is another Magnify problem like (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]

enter image description here

Source Link
Mr.Wizard
  • 273.1k
  • 34
  • 595
  • 1.4k

This is another Magnify problem like (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];