# Strange artifacts when exporting Plot3D images

I have a variable that stores a Show[] that has surface (Plot3D) and two Graphics3D objects. When I view the variable in Mathematica, it looks like the following (screenshot),

Ignoring the aliasing effects at the lines, the image is very clear.

But once I export this as,

Export["surface.png", Show[combined, opts], Background -> None,
ImageResolution -> 600]

the image shows horrible vertical lines in the exported images.

Now, I know it is not so visible here, but when it is placed over a darker background, the vertical lines are more evident as shown below.

I have also noticed that these vertical lines disappear when I reduce the ImageResolution value. However, it didn't this time, so here I am.

Is there a way to remove these vertical lines?

(Note: My graphics card is powerful enough, and so is the CPU. I don't think this is a machine-level problem.)

The opts stores the following.

opts = {AxesOrigin -> {0, 0, 0},
AxesStyle -> Directive[Opacity[0.], Arrowheads[1000]],
BoxRatios -> {1, 1, 1}, BoxStyle -> Opacity[0], ImagePadding -> 30,
ImageSize -> 700, ImageSizeRaw -> Automatic,
PlotRange -> {{-2.92136742857578,
77.9213674432664}, {-0.931522065286616,
79.91121280655557}, {-23.4605903418342, 57.38214453000798}},
Ticks -> None,
ViewCenter -> {{0.5, 0.5, 0.5}, {0.5516019772359866,
0.6271170658740157}},
ViewPoint -> {2.786191380458111, -1.891436586218329,
0.3310668086289387},
ViewVertical -> {-0.11353340076881425, 0.00665791396588277,
0.9935118716409436}}
• Please post the main code. Jun 24 '21 at 7:48