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

Re: Colored Surface

• To: mathgroup at smc.vnet.net
• Subject: [mg53544] Re: [mg53520] Colored Surface
• From: Yasvir Tesiram <tesiramy at omrf.ouhsc.edu>
• Date: Sun, 16 Jan 2005 22:24:01 -0500 (EST)
• References: <200501160207.VAA05685@smc.vnet.net>
• Sender: owner-wri-mathgroup at wolfram.com

Hi,
Here is one example to get you started.

<< Graphics`Shapes`
(*Uncomment the line below for Mathematica Versions 5.0 and less*)
(*<<Graphics`Colors`*)

Show[Graphics3D[{

      {
        EdgeForm[],
        SurfaceColor[Blue],
        Sphere[1.0, 20, 20]
        },
      {
        EdgeForm[],
        SurfaceColor[Green],
        Torus[1.5, 0.25, 30, 30]
        }

      },
    Boxed -> False
    ]
  ]

Cheers
Yas


On Sat, 15 Jan 2005 nicolas_hannachi at yahoo.fr wrote:

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

• References:
  • Colored Surface
    • From: nicolas_hannachi@yahoo.fr (Hannachi)