Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2004
*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 2004

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

Search the Archive

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
> 



  • Prev by Date: Re: Univers font for PDF files
  • Next by Date: full QR decomposition
  • Previous by thread: Combining different colored 3-D Plots
  • Next by thread: Re: Combining different colored 3-D Plots