Grid Graphics

*To*: mathgroup at smc.vnet.net*Subject*: [mg93042] Grid Graphics*From*: John <jwa0 at lehigh.edu>*Date*: Fri, 24 Oct 2008 02:32:31 -0400 (EDT)

Mathematica 6 Six die faces, each in two colors, created by using variations on the following: GraphicsGrid[{{"", "", ""}, {"", Graphics[Disk[], ImageSize -> 6], ""}, {"", "", ""}}, Frame -> True, Spacings -> {3, 3}, Background -> Red] A 6 by 6 grid, created as follows: Grid[Table[1/36, {i, 1, 6}, {j, 1, 6}], Frame -> All, ItemStyle -> Directive[FontSize -> 24, Bold]] I want to expand the 6 by 6 grid to a 7 by 7 grid. The last six column headings should be the six red die faces, and the last six row headings should be the six green die faces. The cell in the upper left hand corner of the 7 by 7 grid is empty. John