How to resize elements in GraphicsGrid

*To*: mathgroup at smc.vnet.net*Subject*: [mg99864] How to resize elements in GraphicsGrid*From*: dch888 <dch888 at googlemail.com>*Date*: Sat, 16 May 2009 18:25:01 -0400 (EDT)

Hi Mathematica Folks, I'm trying to write a Mathematica program which will draw a Leopold Matrix. This is used in environmental science. I've managed to create a program which does indeed draw the matrix but there is just one problem - I can't seem to scale the final output properly. If I draw the graphic and make it smaller the individual elements in the GraphicsGrid don't resize properly. I've tried making the inidivual items in the grid smaller to start with (with the variable 'cellsize') but oddly that seems to have little effect. If someone could have a quick look over my code and make some suggestions I'd be VERY grateful! Otherwise when I run the program with the full set of data (something like 20 x 20) the output is going to be gargantuan. A simple operation in Mathematica to scale down the whole output would be ok. Many thanks, David. Code: ===================================== cellsize=0.125; cell[x_,y_]=Graphics[ { Line[{{0,0},{cellsize,cellsize}}], Text[Style[x,Large,Bold,Black],{cellsize/4,3cellsize/4}], Text[Style[y,Large,Bold,Black],{3cellsize/4,cellsize/4}] } ]; word[x_]=Graphics[ {Text[Style[x,Large,Bold,Black],{0,cellsize/2}] } ]; vword[x_]=Graphics[ {Rotate[ Text[Style[x,Large,Bold,Black],{0,cellsize/2}], 90Degree] } ]; uppers={1,3,5,7,9,11,13,15,G}; lowers={2,4,6,8,10,12,14,F,H}; vlabels1={aardvark,beowulf,church}; vlabels2={dragon,earwig,flimflam}; vlabels3={greengrocer,hello,indigo}; hlabels1={Angstrom,Beeblebox,Chatterbox}; hlabels2={Dribble,Elongated,Freddy}; hlabels3={Glue,Hulaballo,Iridescant}; g=Grid[Table[ cell[ uppers[[3(i-1)+j]], lowers[[3(i-1)+j]] ], {i,3},{j,3} ], {Spacings->{0,0},Frame->All} ]; hl=Grid[Table[ List[ word[vlabels1[[i]]], word[vlabels2[[i]]], word[vlabels3[[i]]] ],{i,3} ], {Spacings->{0,0},Frame->All} ]; vl=Grid[Table[ List[ vword[hlabels1[[i]]], vword[hlabels2[[i]]], vword[hlabels3[[i]]] ],{i,3} ], {Spacings->{0,0},Frame->All} ]; spaces=Grid[Table[ List[ Graphics[Text[" "]], Graphics[Text[" "]], Graphics[Text[" "]] ],{i,3} ], {Spacings->{0,0}} ]; GraphicsGrid[{{spaces,vl},{hl,g}},ImageSize->Tiny]