0
$\begingroup$

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), screenshot image

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. exported image

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.

enter image description here

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`}}
$\endgroup$
1
  • $\begingroup$ Please post the main code. $\endgroup$
    – cvgmt
    Jun 24 '21 at 7:48

Your Answer

By clicking “Post Your Answer”, you agree to our terms of service, privacy policy and cookie policy

Browse other questions tagged or ask your own question.