MathGroup Archive 2005

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

Search the Archive

Re: Colored Surface

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 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