Services & ResourcesWolfram ForumsMathGroup Archive

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

coloring individual hexagons in a grid...

• To: mathgroup at smc.vnet.net
• Subject: [mg127869] coloring individual hexagons in a grid...
• From: Richard Palmer <rhpalmer at gmail.com>
• Date: Tue, 28 Aug 2012 04:53:02 -0400 (EDT)
• Delivered-to: l-mathgroup@mail-archive0.wolfram.com
• Delivered-to: l-mathgroup@wolfram.com
• Delivered-to: mathgroup-newout@smc.vnet.net
• Delivered-to: mathgroup-newsend@smc.vnet.net

I am using the code shown below to draw square hexagonal grids.

Hexagon[x_]:=Line[x+#&/@(Through[{Cos,Sin}[Pi #/3]]&/@Range[0,6])]

HexagonalGrid[x_,y_]:=Module[{i,j},
Table[Hexagon[{3/2i,Sqrt[3]j+Mod[i,2]Sqrt[3]/2}],{i,x},{j,y}]
]

k;
Show[Graphics[HexagonalGrid[k,k]],
AspectRatio->Automatic]

How does one assign a color to individual cells in the hex grid?
-- 
Richard Palmer

Home                            941 412 8828
Cell                               508 982-7266

• Follow-Ups:
  • Re: coloring individual hexagons in a grid...
    • From: Bob Hanlon <hanlonr357@gmail.com>
  • Re: coloring individual hexagons in a grid...
    • From: Richard Palmer <rhpalmer@gmail.com>
  • Re: coloring individual hexagons in a grid...
    • From: Bob Hanlon <hanlonr357@gmail.com>