Services & ResourcesWolfram ForumsMathGroup Archive

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

Re: No mesh with Graphics3D

• To: mathgroup at smc.vnet.net
• Subject: [mg64780] Re: [mg64738] No mesh with Graphics3D
• From: gardyloo <gardyloo at mail.wsu.edu>
• Date: Thu, 2 Mar 2006 19:27:53 -0500 (EST)
• References: <200603021147.GAA05106@smc.vnet.net>
• Sender: owner-wri-mathgroup at wolfram.com

Hi, Giurrero,

I don't know how it works, but this question came up several years ago, 
and the solution is to use EdgeForm[] as another argument to the 
plotting function. In your case, try this:

Grafico1 = SphericalPlot3D[{Evaluate[Abs[SphericalHarmonicY[2, 1, theta, phi]]], EdgeForm[]}, 

   {theta, 0, Pi/2}, {phi, 0, 2*Pi}]


Best of luck!
Curtis



giurrero at gmail.com wrote:
> 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Ï?}]
>
>
>   

• References:
  • No mesh with Graphics3D
    • From: giurrero@gmail.com