MathGroup Archive 2005

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

Search the Archive

Re: Colored Surface

  • To: mathgroup at smc.vnet.net
  • Subject: [mg53537] Re: [mg53520] Colored Surface
  • From: Jeff Bryant <jeffb at wolfram.com>
  • Date: Sun, 16 Jan 2005 22:23:55 -0500 (EST)
  • References: <200501160207.VAA05685@smc.vnet.net>
  • Sender: owner-wri-mathgroup at wolfram.com

The easiest way is probably the following:

In[1]:= <<Graphics`Shapes`

In[2]:= Show[Graphics3D[{Blue, Sphere[1, 50, 50]}], Lighting -> False]

You can add additional directives and options to get fancier effects 
such as a blue sphere that reflects the light source:

In[3]:= Show[Graphics3D[{EdgeForm[], SurfaceColor[Blue, White,
       50], Sphere[1, 50, 50]}], LightSources -> {{{1, 1, 2}, White}}]

-Jeff

--------------
Jeff Bryant
Wolfram Research, Inc.


Hannachi wrote:

> How to do a just blue sphere (for example) ?


  • Prev by Date: Re: Colored Surface
  • Next by Date: Re: Colored Surface
  • Previous by thread: Colored Surface
  • Next by thread: Re: Colored Surface