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

*To*: mathgroup at smc.vnet.net*Subject*: [mg26713] Re: 3D-Plots: Coloring edges (simple)*From*: "Allan Hayes" <hay at haystack.demon.co.uk>*Date*: Thu, 18 Jan 2001 00:57:17 -0500 (EST)*References*: <943dn4$cju@smc.vnet.net>*Sender*: owner-wri-mathgroup at wolfram.com

Some suggestions: gr1 = ParametricPlot3D[{x, y, x y}, {x, -1, 1}, {y, -1, 1}] The following will color the edges by average height of the polygon vertices. gr1 /. pl : Polygon[p_] :> {EdgeForm[Hue[Plus @@ p[[All, 3]]/4]], pl} // Show SurfaceGraphics objects, sg, generated by Graphics3D can be converted to Graphics3D objects by Graphics3D[sg]. We can construct edges as lines and then manipulate the lines: Show[gr1 /. Polygon[p_] :> {Hue[Plus @@ p[[All, 3]]/4], Line[Append[p, Last[p]]] }] -- Allan --------------------- Allan Hayes Mathematica Training and Consulting Leicester UK www.haystack.demon.co.uk hay at haystack.demon.co.uk Voice: +44 (0)116 271 4198 Fax: +44 (0)870 164 0565 <24stoffel at my-deja.com> wrote in message news:943dn4$cju at smc.vnet.net... > > > 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/ >