MathGroup Archive 2005

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

Search the Archive

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


  • Prev by Date: Re: Colored Surface
  • Next by Date: NIntegrate with Minimize
  • Previous by thread: Re: Colored Surface
  • Next by thread: Re: Colored Surface