Re: ColorFunction TriangularSurfacePlot
- To: mathgroup at smc.vnet.net
- Subject: [mg35396] Re: ColorFunction TriangularSurfacePlot
- From: Jens-Peer Kuska <kuska at informatik.uni-leipzig.de>
- Date: Thu, 11 Jul 2002 05:24:00 -0400 (EDT)
- Organization: Universitaet Leipzig
- References: <aggkjf$ik$1@smc.vnet.net>
- Reply-to: kuska at informatik.uni-leipzig.de
- Sender: owner-wri-mathgroup at wolfram.com
Hi,
<< DiscreteMath`ComputationalGeometry`
data3D = Table[{x, y} = {Random[], Random[]}; {x, y, Sin[x*y]}, {36}];
gr = TriangularSurfacePlot[data3D];
and the color is obtained by
Show[gr /. Polygon[
pnts_] :> {SurfaceColor[Hue[Last[Plus @@ pnts/Length[pnts]]]],
Polygon[pnts]}
]
Regards
Jens
Boris Fain wrote:
>
> Hi. I am a complete newbie, and I am making surface plots out of sets
> of points in 3-D. I am using TriangleSurfacePlot - a wonderful function
> btw, I gladly junked my own triangulation codes! However, I simply need
> to color the polygons according to their height - or the height of,
> say, the lowest vertex. Actually, any vertex would be just fine. Is
> there a way to do this?
>
> thanks, boris.