Re: No mesh with Graphics3D
- To: mathgroup at smc.vnet.net
- Subject: [mg64776] Re: No mesh with Graphics3D
- From: Peter Pein <petsie at dordos.net>
- Date: Thu, 2 Mar 2006 19:27:48 -0500 (EST)
- References: <du6m7d$59o$1@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
giurrero at gmail.com schrieb:
> Hi, I have a Graphics3D generated by SpericalPlot3D and I want to
> eliminate the mesh. How I can do it. I tried to use Mesh->False, but it
> doesn't work, I think I need to convert Graphics3D to GraphicsSurface,
> but I'm not able.
>
> << Graphics`
>
> Grafico1 =
> SphericalPlot3D[
> Evaluate[
> Abs[SphericalHarmonicY[2, 1, θ, Ï?]]
> ],
> {θ, 0, Ï?}, {Ï?, 0, 2Ï?}]
>
Grafico1 = SphericalPlot3D[Evaluate[Abs[SphericalHarmonicY[2, 1, θ, Ï?]]],
{θ, 0, Pi}, {Ï?, -Pi, Pi}, PlotPoints -> {123, 234}, DisplayFunction -> Identity];
Show[Graphics3D[Prepend[First[Grafico1], EdgeForm[]], Sequence @@ Grafico1[[2]]],
DisplayFunction -> $DisplayFunction];
Peter