MathGroup Archive: March 2006 [00062]

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

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

Prev by Date: Re: No mesh with Graphics3D

Next by Date: Re: Help: running external program on Mac OS X

Previous by thread: Re: No mesh with Graphics3D

Next by thread: Re: No mesh with Graphics3D