MathGroup Archive 2012

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

Search the Archive

Re: coloring individual hexagons in a grid...


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...