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

Q: Graphics3D

  • To: mathgroup at smc.vnet.net
  • Subject: [mg13320] Q: Graphics3D
  • From: Ulf Saalmann <us at mpipks-dresden.mpg.de>
  • Date: Mon, 20 Jul 1998 02:49:40 -0400
  • Organization: TU Dresden (URZ)
  • Sender: owner-wri-mathgroup at wolfram.com

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)


  • Prev by Date: Re: keys in a hash table (aka, all assigned indices in an array): awf
  • Next by Date: Conditions on patterns in Flat functions
  • Previous by thread: Re: keys in a hash table (aka, all assigned indices in an array): awf
  • Next by thread: Re: Q: Graphics3D