Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2006
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2006

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

Search the Archive

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Ï?}]



  • Prev by Date: Re: Possible Bug in ArcTan ?
  • Next by Date: Re: Ploting a changing constant
  • Previous by thread: Re: No mesh with Graphics3D
  • Next by thread: Help: running external program on Mac OS X