Re: convert table into graphics object
- To: mathgroup at smc.vnet.net
- Subject: [mg56414] Re: [mg56397] convert table into graphics object
- From: "David Park" <djmp at earthlink.net>
- Date: Sun, 24 Apr 2005 03:29:05 -0400 (EDT)
- Sender: owner-wri-mathgroup at wolfram.com
Juergen,
This is an interesting question. You could use...
mygraphic = Show[Graphics[Text[myGraph, {0, 0}]]]
and then export mygraphic. However the matrix fills only the center of the
graphic and there is much wasted space. The obvious methods of trying to
change this, using PlotRange or PlotRegion do not work. However changing the
FontSize as in the following statement gives a graphic where the matrix
fills the space.
mygraphic =
Show[Graphics[Text[StyleForm[myGraph, FontSize -> 50], {0, 0}]],
ImageSize -> {300, 172}]
Otherwise, you could use more primitive routines to format your array
graphically. Line to draw the frame and four Text statements to fill in the
numbers. Something like this...
mytable = {{1, 2}, {2, 3}};
mygraphic =
Show[Graphics[
{AbsoluteThickness[2],
Line[{{0, 0}, {1, 0}, {1, 1}, {0, 1}, {0, 0}}],
Table[Text[StyleForm[mytable[[i,j]], FontSize -> 40],
{i/2 - 0.25, j/2 - 0.25}], {i, 1, 2}, {j, 1, 2}]}],
AspectRatio -> Automatic];
David Park
djmp at earthlink.net
http://home.earthlink.net/~djmp/
From: juejung [mailto:juejung at indiana.edu]
To: mathgroup at smc.vnet.net
how can i convert the following expression into a graphics object, so that
i can export it as an eps?
is there something like a ConvertTo eps command. i know that in the menue,
if one goes to cell and then ConvertTo postscript it is possible to
convert the thing into a graph. but i have a lot of graphs and would
rather not do this by hand.
here's a sample expression:
myGraph = DisplayForm[FrameBox[TableForm[{{1, 2}, {2, 3}}]]]
Export["c:\Table11.eps", myGraph]
this won't work since myGraph is not a graphics object yet. any idea?
thanks.
juergen