Re: coloring individual hexagons in a grid...

• To: mathgroup at smc.vnet.net
• Subject: [mg127912] Re: coloring individual hexagons in a grid...
• From: Richard Palmer <rhpalmer at gmail.com>
• Date: Fri, 31 Aug 2012 04:00:46 -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
• References: <20120828085302.9525568C1@smc.vnet.net>

```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 at 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 982-7266

```

• Prev by Date: Re: Landau letter, Re: Mathematica as a New Approach...
• Next by Date: Re: Creating animated 3d graphic in Mathematica for export
• Previous by thread: Re: coloring individual hexagons in a grid...
• Next by thread: Re: coloring individual hexagons in a grid...