Re: No mesh with Graphics3D
- To: mathgroup at smc.vnet.net
- Subject: [mg64774] Re: [mg64738] No mesh with Graphics3D
- From: "David Park" <djmp at earthlink.net>
- Date: Thu, 2 Mar 2006 19:27:46 -0500 (EST)
- Sender: owner-wri-mathgroup at wolfram.com
You have to get in the 3D graphics directive EdgeForm[]. This is difficult
(but possible) to do with the regular Mathematica graphics paradigm.
However, it is far easier with the DrawGraphics package for Mathematica
graphics from my web site.
Needs["DrawGraphics`DrawingMaster`"]
Draw3DItems[
{EdgeForm[],
SphericalDraw3D[
Abs[SphericalHarmonicY[2, 1, t, p]] // Evaluate, {t, 0, Pi}, {p, 0,
2 Pi},
PlotPoints -> {40, 60}]},
Background -> Linen,
BoxStyle -> Gray,
ImageSize -> 450];
However, supressing the polygon edges does not always look that great.
Because of the shading, the viewer can still see where the edges are. I
prefer to give the surface a pastel color using SurfaceColor, and then use
EdgeForm to color the edges a slightly deeper shade. That way the 'mesh'
lines are there but are very subdued. DrawGraphics also provides a
NeutralLighting option so that the colors of the regular Mathematica
lighting won't overwhelm the surface color.
Draw3DItems[
{SurfaceColor[Salmon], EdgeForm[ColorMix[Salmon, Black][0.2]],
SphericalDraw3D[
Abs[SphericalHarmonicY[2, 1, t, p]] // Evaluate, {t, 0, Pi}, {p, 0,
2 Pi},
PlotPoints -> {40, 60}]},
NeutralLighting[0.3, 0.5, 0.1],
Background -> Linen,
BoxStyle -> Gray,
ImageSize -> 450];
David Park
djmp at earthlink.net
http://home.earthlink.net/~djmp/
From: giurrero at gmail.com [mailto:giurrero at gmail.com]
To: mathgroup at smc.vnet.net
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Ï?}]