Services & ResourcesWolfram ForumsMathGroup Archive

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

Re: Voronoi diagram colours

• To: mathgroup at smc.vnet.net
• Subject: [mg85053] Re: [mg85043] Voronoi diagram colours
• From: Takashi YOSHINO <tyoshino at toyonet.toyo.ac.jp>
• Date: Sat, 26 Jan 2008 04:58:13 -0500 (EST)
• References: <200801251003.FAA28795@smc.vnet.net>

<< ComputationalGeometry`

data2D = {{4.4, 14}, {6.7, 15.25}, {6.9, 12.8}, {2.1, 11.1}, {9.5,
    14.9}, {13.2, 11.9}, {10.3, 12.3}, {6.8, 9.5}, {3.3, 7.7}, {0.6,
    5.1}, {5.3, 2.4}, {8.45, 4.7}, {11.5, 9.6}, {13.8, 7.3}, {12.9,
    3.1}, {11, 1.1}};

{vorvert, vorval} =
  BoundedDiagram[{{0, 1}, {14, 1}, {14, 16}, {0, 16}}, data2D];

{ColorData["Rainbow"][RandomReal[]],
    Polygon[#]} &  /@ (vorvert[[#]] & /@ (#[[2]] & /@
      vorval)) // Graphics


Fleck, Stefan wrote:
> Dear Mathematica-users,
> 
> 
> 
> I would like to add specific colours to a DiagramPlot of a voronoi diagram.
> The colours should be given depending on the number of each point in the
> vertex adjacency list, but I don't find a way to access the colour definition
> of the polygons. If there is no way to do this with DiagramPlot, does any
> other possibility exist?
> 
> 
> 
> With kind regards,
> 
> 
> 
> Stefan Fleck
> 
> 
> 
> ***********************************************
> 
> 
> 
> Stefan Fleck, research co-ordinator, Ph.D.
> 
> Plant Ecology
> Albrecht-von-Haller-Institute for Plant Sciences
> University of G=F6ttingen
> Untere Karsp=FCle 2
> 37073 G=F6ttingen
> 
> 
> 
> Tel. +49-551-3912178
> 
> Fax +49-551-395701
> 
> 


-- 
Takashi Yoshino

• Follow-Ups:
  • Re: Re: Voronoi diagram colours
    • From: Takashi Yoshino <tyoshino@toyonet.toyo.ac.jp>

• References:
  • Voronoi diagram colours
    • From: "Fleck, Stefan" <sfleck@gwdg.de>