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?