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) ?
- References:
- Colored Surface
- From: nicolas_hannachi@yahoo.fr (Hannachi)
- Colored Surface