Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2005
*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 2005

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

Search the Archive

Re: Light and surface colors

  • To: mathgroup at smc.vnet.net
  • Subject: [mg58734] Re: [mg58688] Light and surface colors
  • From: "Jose Luis Gomez" <jose.luis.gomez at itesm.mx>
  • Date: Sat, 16 Jul 2005 01:03:42 -0400 (EDT)
  • Sender: owner-wri-mathgroup at wolfram.com

These commands produce a beautiful ellipsoid, with user-defined color in the
surface, with 3D "shadows" from the lighting, and WITHOUT having to use
parametric representation (it takes more than 30 seconds to evaluate):

<<Graphics`;
pressure[x_,y_,z_]:=x^2+y^2+Sin[4z];
myColorFunction[x_,y_,z_]=SurfaceColor[Hue[pressure[x,y,z]]];
mySphere=ContourPlot3D[x^2+4y^2+4z^2-1,{x,-1,1},{y,-1,1},{z,-1,1},
      PlotPoints->{9,7},DisplayFunction->Identity];
myColoredSphere=Graphics3D[Table[
        myPolygon=mySphere[[1,j]];
        myPolygonFirstPoint=myPolygon[[1,1]];
        myX=myPolygonFirstPoint[[1]];
        myY=myPolygonFirstPoint[[2]];
        myZ=myPolygonFirstPoint[[3]];
{myColorFunction[myX,myY,myZ],myPolygon},{j,Length[mySphere[[1]]]}]];
Show[Graphics3D[EdgeForm[]],myColoredSphere,Background->GrayLevel[0],
  DisplayFunction->$DisplayFunction]
 

Bye!
Jose Luis
http://homepage.cem.itesm.mx/lgomez/ 


  • Prev by Date: Re: Polynomial eigenvalue problem
  • Next by Date: Re: How do I add a secondary y-axis to MultipleListPlot
  • Previous by thread: Re: Light and surface colors
  • Next by thread: How can get the Path of current Notebook ?