Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2007

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

Search the Archive

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



  • 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