Re: Mathematica 3DPlot Making Objects
- To: mathgroup at smc.vnet.net
- Subject: [mg82376] Re: Mathematica 3DPlot Making Objects
- From: Will Robertson <wspr81 at gmail.com>
- Date: Thu, 18 Oct 2007 05:05:54 -0400 (EDT)
- References: <ff4g25$e78$1@smc.vnet.net>
On Oct 17, 5:10 pm, James <NightWolf... at gmail.com> wrote:
> Im trying to make an object like an animal using the 3DPlot equations in mathematica, can anyone help me?
You mean something like this? (From the documentation of
GraphicsComplex)
g = ExampleData[{"Geometry3D", "Cow"}, "GraphicsComplex"];
Grid@Table[
With[{f = ColorData[RandomChoice[ColorData["Gradients"]]]},
Graphics3D[{EdgeForm[],
g /. GraphicsComplex[v_, r__] :>
GraphicsComplex[v, r,
VertexColors -> ({Specularity[White, 30], f[#[[1]] + .5]} & /@
v)]}, Lighting -> "Neutral", Boxed -> False,
Background -> GrayLevel[.15], ImageSize -> 150]], {3}, {3}]
Hope this helps,
Will