Re: 3D-Plots: Coloring edges (simple)

*To*: mathgroup at smc.vnet.net*Subject*: [mg26697] Re: 3D-Plots: Coloring edges (simple)*From*: Bernd Brandt <bernd at bio.vu.nl>*Date*: Thu, 18 Jan 2001 00:57:07 -0500 (EST)*Organization*: VU Biology, Amsterdam, The Netherlands*References*: <943dn4$cju@smc.vnet.net>*Sender*: owner-wri-mathgroup at wolfram.com

Hi, To give the Edge one color (the Klein Bottle has red only), you can do: << Graphics` gr = SphericalPlot3D[2, {theta, 0, Pi}, {phi, 0, 2 Pi}] Show[Insert[gr, EdgeForm[Hue[0.3]], {1, 1}]] I hope this helps. I do not know how to make Hue a ColorFunction here where the color depends on the coordinates. Regards, Bernd 24stoffel at my-deja.com wrote: > I need to color the edges of a 3D-Plot according > to a predefined ColorFunction, pretty much the > same way as it works for the surface itself, > e.g. ColorFunction->(Hue[1-#*0.45]&). > > How can one apply this function to the edges > only because MeshStyle->(Hue[1-#*0.45]&) > or so obviously doesn't work. It certainly > can be done because one of the color charts > in the Mathematica book has a Klein bottle > colored like this. > > Thanks a lot in advance. > > Stoffel > Email: ch_karner at yahoo.com > > Sent via Deja.com > http://www.deja.com/