Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
1998
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 1998

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

Search the Archive

Re: Q: Graphics3D

  • To: mathgroup at smc.vnet.net
  • Subject: [mg13381] Re: Q: Graphics3D
  • From: Martin Kraus <mkraus at theorie3.physik.uni-erlangen.de>
  • Date: Thu, 23 Jul 1998 03:32:29 -0400
  • Organization: Univ. Erlangen-Nuernberg, Theoret. Physik III
  • References: <6ouocl$iv6@smc.vnet.net>
  • Sender: owner-wri-mathgroup at wolfram.com

Ulf Saalmann wrote:
> 
> Hello,
> 
> using the following functions
> 
> -------------------------------------------------
> Needs["Graphics`Shapes`"];
> 
> SetOptions[Graphics3D,LightSources->{}];
> 
> a=Graphics3D[TranslateShape[Sphere[],{+1,0,0}],
>              AmbientLight->RGBColor[1,0,0]];
> b=Graphics3D[TranslateShape[Sphere[],{-1,0,0}],
>              AmbientLight->RGBColor[0,1,0]];
> 
> Show[{a,b}];
> -------------------------------------------------
> 
> Mathematica shows two red spheres.
> 
> (1) Why I don't get a red and green one?
> 
> (2) How to obtain a red and green one (with Lightning->True)?
> 
> Thanks for any help.    Ulf (us at mpipks-dresden.mpg.de)

The problem is that the AmbientLight option can have only one setting
(in this case red) for both plots when they are compined. In order to
have a red and green sphere, define white LightSources and make the
surface of the spheres red and green respectively. (With a simple color
directive in front of the shapes or with the more sophisticated
SurfaceColor directive.)

Hope that helps

Martin


  • Prev by Date: Re: Math3.0 OptionInspector | NotebookOptions | PrintingOptions | Headers --> all 'None' keeps printing headers. HELP
  • Next by Date: Re: MathLink with PowerPlant
  • Previous by thread: Re: Q: Graphics3D
  • Next by thread: Re: Q: Graphics3D