
Re: coloring individual hexagons in a grid...
Posted:
Aug 31, 2012 4:02 AM


Thanks Bob, However, I am trying to color the interior of the hexagons, not the edges.
On Wed, Aug 29, 2012 at 11:26 PM, Bob Hanlon <hanlonr357@gmail.com> wrote:
> Hexagon[x_] := > Line[x + # & /@ > (Through[{Cos, Sin}[Pi #/3]] & /@ > Range[0, 6])] > > HexagonalGrid[nbrRows_, nbrColumns_, > colorFunction_: Null] := > Module[{i, j}, > Table[{ > If[colorFunction === Null, > Black, > colorFunction[i, j]], > Hexagon[ > {3/2 j, Sqrt[3] i + Mod[j, 2] Sqrt[3]/2}]}, {i, nbrRows}, {j, > nbrColumns}]] > > With[{k = 3}, > Show[Graphics[ > HexagonalGrid[k, k]], > AspectRatio > Automatic]] > > With[{k = 3}, > Show[Graphics[ > HexagonalGrid[k, k, Hue[ > Rescale[#1 + #2, {2, 2 k}]] &], > AspectRatio > Automatic]]] >
 Richard Palmer
Home 941 412 8828 Cell 508 9827266

