linee sovrapposta maglie in ContourPlot3D

Question

Ho un problema con il rendering di Mesh linee su una superficie 3D prodotto da 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] 

un'occhiata più da vicino su di loro:

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

Si vede che le linee grigie Mesh sono sovrapposte da triangoli che formano la superficie in molti punti e sembrano addirittura tratteggiate. c'è un modo per evitarlo?

Answer 1

John Fultz has answered la mia domanda nel newsgroup ufficiale. La soluzione per Mathematica 7 utenti (e, probabilmente, per la versione 8 gli utenti che hanno una scheda grafica senza il supporto per DepthPeeling metodo di rendering) è quello di utilizzare una forma non documentata di MeshStyle opzione:

MeshStyle -> {{GrayLevel[.7], Tube[0.01]}} 

Per avere Mesh linee appaiono come oggetti piatti si può usare Glow:

MeshStyle -> {{Glow[GrayLevel[.7]], Black, Tube[0.005]}} 

Ora maglia è reso ben:

p1 = 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]], 
    Ticks -> None, PlotPoints -> 40, 
    MeshStyle -> {{Glow[GrayLevel[.7]], Black, Tube[0.005]}}, 
    Lighting -> {{"Directional", 
     RGBColor[1, 1, 1], {ImageScaled@{1, 0, 1}, 
     ImageScaled@{0, 0, 0}}}}]; 
p = Graphics[Inset[p1, {0, 0}, Center, {1, 1}], 
    PlotRange -> {{-.5, .5}, {-.5, .5}}, Frame -> True, 
    GridLines -> Automatic] 

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

Answer 2

Per quello che vale, non vedo questo problema in M8.0.1 su Mac OS 10.7.1: