MathGroup Archive 2011

[Date Index] [Thread Index] [Author Index]

Search the Archive

Defective Mesh lines in ContourPlot3D

  • To: mathgroup at smc.vnet.net
  • Subject: [mg121112] Defective Mesh lines in ContourPlot3D
  • From: "Alexey Popkov" <lehin.p at gmail.com>
  • Date: Mon, 29 Aug 2011 03:46:57 -0400 (EDT)
  • Delivered-to: l-mathgroup@mail-archive0.wolfram.com

Hello,

I have a problem with rendering of Mesh lines on a 3D surface produced by 
ContourPlot3D in Mathematica 7.0.1:

p=ContourPlot3D[x^4+y^4+z^4-(x^2+y^2+z^2)^2+3(x^2+y^2+z^2)==3,
      {x, -2,2}, {y, -2, 2}, {z,-2,2},
     BoundaryStyle->Directive[Black,Thickness[.003]],
     ContourStyle->Directive[Orange,Opacity[0.5],Specularity[White,300]],
     PlotPoints->90,Ticks->None,
     MeshStyle->Directive[GrayLevel[.7],Thickness[.001]],
     Lighting->{{"Directional",RGBColor[1,1,1],
                           {ImageScaled@{1,0,1},ImageScaled@{0,0,0}}}}];
p=Graphics[Inset[p,{0,0},Center,{1,1}],
                        PlotRange->{{-.5,.5},{-.5,.5}},Frame->True]

(see screenshot here: http://i.stack.imgur.com/zBtYC.png )

Let us to look closer on Mesh lines:

Show[p, PlotRange -> {{-.16, -.05}, {0, .1}}]

(see screenshot here: http://i.stack.imgur.com/JBkcc.png )

You can see that gray Mesh lines are overlapped by surface-forming triangles 
in many places and even look dashed. Is there a way to avoid this?






  • Prev by Date: NDSolve solution does not fulfill boundary condition ??
  • Next by Date: Re: Replace
  • Previous by thread: Re: NDSolve solution does not fulfill boundary condition ??
  • Next by thread: Re: Defective Mesh lines in ContourPlot3D