       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.

```

• Prev by Date: Graphics Question
• Next by Date: RE: How to display one plot as an inset in another plot?
• Previous by thread: ColorFunction TriangularSurfacePlot
• Next by thread: Re: ColorFunction TriangularSurfacePlot