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?
