Re: Combining different colored 3-D Plots
- To: mathgroup at smc.vnet.net
- Subject: [mg51629] Re: Combining different colored 3-D Plots
- From: "Jens-Peer Kuska" <kuska at informatik.uni-leipzig.de>
- Date: Wed, 27 Oct 2004 23:42:20 -0400 (EDT)
- Organization: Uni Leipzig
- References: <clne5o$o8p$1@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
Hi,
something like:
Needs["Graphics`Shapes`"]
lst = Table[
TranslateShape[Sphere[],
4*({Random[], Random[], Random[]} - {1/2, 1/2, 1/2})],
{16}];
Show[Graphics3D[
{SurfaceColor[Hue[Random[]]], #} & /@ lst
]]
Regards
Jens
"charlie rosenthal" <c.e.rosenthal at cox.net> schrieb im Newsbeitrag
news:clne5o$o8p$1 at smc.vnet.net...
> Greetings,
>
> I have been using Mathematica to render a 3-D model which is made up of
> several different shapes plotted individulally and then combined. I
> would like to have each piece displayed in the combined plot with its
> own color. This should be straight forward ... any ideas on how this
> might be done.
>
> Thanks,
> Charlie
>