Re: Grid Graphics
- To: mathgroup at smc.vnet.net
- Subject: [mg93131] Re: Grid Graphics
- From: dh <dh at metrohm.ch>
- Date: Tue, 28 Oct 2008 04:53:09 -0500 (EST)
- References: <gdrqen$mqs$1@smc.vnet.net>
Hi John,
You may use TableForm to give headings.E.g.:
headrow=GraphicsGrid[{{"","",""},{"",Graphics[Disk[],ImageSize->6],""},{"","",""}},Frame->True,Spacings->{3,3},Background->Red];
headrows=Table[headrow,{6}];
headcol=GraphicsGrid[{{"","",""},{"",Graphics[Disk[],ImageSize->6],""},{"","",""}},Frame->True,Spacings->{3,3},Background->Green];
headcols=Table[headcol,{6}];
TableForm[Table[1/36,{i,1,6},{j,1,6}],TableHeadings->{headrows,headcols}]
hope this helps, Daniel
John wrote:
> 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
>
>
>
>
--
Daniel Huber
Metrohm Ltd.
Oberdorfstr. 68
CH-9100 Herisau
Tel. +41 71 353 8585, Fax +41 71 353 8907
E-Mail:<mailto:dh at metrohm.com>
Internet:<http://www.metrohm.com>