Return to Answer

deleted 4 characters in body

edited Jul 4, 2022 at 16:27

5.7k
3
17
30

For Plot3D, here is a try and hope experts can improve it,

first for the plot profile

Rast1 = Rasterize[ Plot3D[Sin[x] Sin[y], {x, -4, 4}, {y, -3, 3}, PlotPoints -> 200, LabelStyle -> None, AxesLabel -> None, Axes -> False, Boxed -> False, ColorFunction -> Hue, BoxRatios -> {1, 1, 1.5}, ImagePadding -> 30, ViewPoint -> {1, -1.3, 0.5}, PlotTheme -> None, Mesh -> None], RasterSize -> 800, Background -> None, ImageSize -> 200]

and then for axes and labels

Rast2 = Rasterize[ Plot3D[Sin[x] Sin[y], {x, -4, 4}, {y, -3, 3}, PlotPoints -> 10, LabelStyle -> {FontFamily -> "LM Roman 12", Black, FontSize -> 16}, AxesLabel -> (MaTeX[#, FontSize -> 17] &) /@ {"X", "Y"}, PlotStyle -> None, Mesh -> None, BoundaryStyle -> None, BoxRatios -> {1, 1, 1.5}, ImagePadding -> 30, ViewPoint -> {1, -1.3, 0.5}, PlotTheme -> "Detailed"], RasterSize -> 4000, ImageSize -> 200]

finally, combine both

Overlay[{Rast2, Rast1}]

For Plot3D, here is a try and hope experts can improve it,

first for the plot profile

Rast1 = Rasterize[ Plot3D[Sin[x] Sin[y], {x, -4, 4}, {y, -3, 3}, PlotPoints -> 200, LabelStyle -> None, AxesLabel -> None, Axes -> False, Boxed -> False, ColorFunction -> Hue, BoxRatios -> {1, 1, 1.5}, ImagePadding -> 30, ViewPoint -> {1, -1.3, 0.5}, PlotTheme -> None, Mesh -> None], RasterSize -> 800, Background -> None, ImageSize -> 200]

and then for axes and labels

Rast2 = Rasterize[ Plot3D[Sin[x] Sin[y], {x, -4, 4}, {y, -3, 3}, PlotPoints -> 10, LabelStyle -> {FontFamily -> "LM Roman 12", Black, FontSize -> 16}, AxesLabel -> (MaTeX[#, FontSize -> 17] &) /@ {"X", "Y"}, PlotStyle -> None, Mesh -> None, BoundaryStyle -> None, BoxRatios -> {1, 1, 1.5}, ImagePadding -> 30, ViewPoint -> {1, -1.3, 0.5}, PlotTheme -> "Detailed"], RasterSize -> 4000, ImageSize -> 200]

finally, combine both

Overlay[{Rast2, Rast1}]

For Plot3D, here is a try and hope experts can improve it,

first for the plot profile

Rast1 = Rasterize[ Plot3D[Sin[x] Sin[y], {x, -4, 4}, {y, -3, 3}, PlotPoints -> 200, LabelStyle -> None, AxesLabel -> None, Axes -> False, Boxed -> False, ColorFunction -> Hue, BoxRatios -> {1, 1, 1.5}, ImagePadding -> 30, ViewPoint -> {1, -1.3, 0.5}, PlotTheme -> None, Mesh -> None], RasterSize -> 800, Background -> None, ImageSize -> 200]

and then for axes and labels

Rast2 = Rasterize[ Plot3D[Sin[x] Sin[y], {x, -4, 4}, {y, -3, 3}, PlotPoints -> 10, LabelStyle -> {FontFamily -> "LM Roman 12", Black, FontSize -> 16}, AxesLabel -> (MaTeX[#, FontSize -> 17] &) /@ {"X", "Y"}, PlotStyle -> None, Mesh -> None, BoundaryStyle -> None, BoxRatios -> {1, 1, 1.5}, ImagePadding -> 30, ViewPoint -> {1, -1.3, 0.5}, PlotTheme -> "Detailed"], RasterSize -> 4000, ImageSize -> 200]

finally, combine both

Overlay[{Rast2, Rast1}]

added 14 characters in body

Source Link

edited Jul 4, 2022 at 14:49

MMA13

5.7k
3
17
30

HereFor Plot3D, here is a try and hope experts can improve it,

first for the plot profile

Rast1 = Rasterize[ Plot3D[Sin[x] Sin[y], {x, -4, 4}, {y, -3, 3}, PlotPoints -> 200, LabelStyle -> None, AxesLabel -> None, Axes -> False, Boxed -> False, ColorFunction -> Hue, BoxRatios -> {1, 1, 1.5}, ImagePadding -> 30, ViewPoint -> {1, -1.3, 0.5}, PlotTheme -> None, Mesh -> None], RasterSize -> 800, Background -> None, ImageSize -> 200]

and then for axes and labels

Rast2 = Rasterize[ Plot3D[Sin[x] Sin[y], {x, -4, 4}, {y, -3, 3}, PlotPoints -> 10, LabelStyle -> {FontFamily -> "LM Roman 12", Black, FontSize -> 16}, AxesLabel -> (MaTeX[#, FontSize -> 17] &) /@ {"X", "Y"}, PlotStyle -> None, Mesh -> None, BoundaryStyle -> None, BoxRatios -> {1, 1, 1.5}, ImagePadding -> 30, ViewPoint -> {1, -1.3, 0.5}, PlotTheme -> "Detailed"], RasterSize -> 4000, ImageSize -> 200]

finally, combine both

Overlay[{Rast2, Rast1}]

Here is a try and hope experts can improve it,

first for the plot profile

Rast1 = Rasterize[ Plot3D[Sin[x] Sin[y], {x, -4, 4}, {y, -3, 3}, PlotPoints -> 200, LabelStyle -> None, AxesLabel -> None, Axes -> False, Boxed -> False, ColorFunction -> Hue, BoxRatios -> {1, 1, 1.5}, ImagePadding -> 30, ViewPoint -> {1, -1.3, 0.5}, PlotTheme -> None, Mesh -> None], RasterSize -> 800, Background -> None, ImageSize -> 200]

and then for axes and labels

Rast2 = Rasterize[ Plot3D[Sin[x] Sin[y], {x, -4, 4}, {y, -3, 3}, PlotPoints -> 10, LabelStyle -> {FontFamily -> "LM Roman 12", Black, FontSize -> 16}, AxesLabel -> (MaTeX[#, FontSize -> 17] &) /@ {"X", "Y"}, PlotStyle -> None, Mesh -> None, BoundaryStyle -> None, BoxRatios -> {1, 1, 1.5}, ImagePadding -> 30, ViewPoint -> {1, -1.3, 0.5}, PlotTheme -> "Detailed"], RasterSize -> 4000, ImageSize -> 200]

finally, combine both

Overlay[{Rast2, Rast1}]

For Plot3D, here is a try and hope experts can improve it,

first for the plot profile

Rast1 = Rasterize[ Plot3D[Sin[x] Sin[y], {x, -4, 4}, {y, -3, 3}, PlotPoints -> 200, LabelStyle -> None, AxesLabel -> None, Axes -> False, Boxed -> False, ColorFunction -> Hue, BoxRatios -> {1, 1, 1.5}, ImagePadding -> 30, ViewPoint -> {1, -1.3, 0.5}, PlotTheme -> None, Mesh -> None], RasterSize -> 800, Background -> None, ImageSize -> 200]

and then for axes and labels

Rast2 = Rasterize[ Plot3D[Sin[x] Sin[y], {x, -4, 4}, {y, -3, 3}, PlotPoints -> 10, LabelStyle -> {FontFamily -> "LM Roman 12", Black, FontSize -> 16}, AxesLabel -> (MaTeX[#, FontSize -> 17] &) /@ {"X", "Y"}, PlotStyle -> None, Mesh -> None, BoundaryStyle -> None, BoxRatios -> {1, 1, 1.5}, ImagePadding -> 30, ViewPoint -> {1, -1.3, 0.5}, PlotTheme -> "Detailed"], RasterSize -> 4000, ImageSize -> 200]

finally, combine both

Overlay[{Rast2, Rast1}]

Source Link

answered Jul 4, 2022 at 14:27

MMA13

5.7k
3
17
30

Here is a try and hope experts can improve it,

first for the plot profile

Rast1 = Rasterize[ Plot3D[Sin[x] Sin[y], {x, -4, 4}, {y, -3, 3}, PlotPoints -> 200, LabelStyle -> None, AxesLabel -> None, Axes -> False, Boxed -> False, ColorFunction -> Hue, BoxRatios -> {1, 1, 1.5}, ImagePadding -> 30, ViewPoint -> {1, -1.3, 0.5}, PlotTheme -> None, Mesh -> None], RasterSize -> 800, Background -> None, ImageSize -> 200]

and then for axes and labels

Rast2 = Rasterize[ Plot3D[Sin[x] Sin[y], {x, -4, 4}, {y, -3, 3}, PlotPoints -> 10, LabelStyle -> {FontFamily -> "LM Roman 12", Black, FontSize -> 16}, AxesLabel -> (MaTeX[#, FontSize -> 17] &) /@ {"X", "Y"}, PlotStyle -> None, Mesh -> None, BoundaryStyle -> None, BoxRatios -> {1, 1, 1.5}, ImagePadding -> 30, ViewPoint -> {1, -1.3, 0.5}, PlotTheme -> "Detailed"], RasterSize -> 4000, ImageSize -> 200]

finally, combine both

Overlay[{Rast2, Rast1}]