MathGroup Archive 2005

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

Search the Archive

Re: Colored Surface

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

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