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 >