MathGroup Archive 2007

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

Search the Archive

Re: Mathematica 3DPlot Making Objects


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



  • Prev by Date: Re: InverseFourierTransform strange behaviour
  • Next by Date: Re: ListPlot: Choose segents to draw.
  • Previous by thread: Mathematica 3DPlot Making Objects
  • Next by thread: Applying Math 6