Re: how to save selected cells to an EPS file?
- To: mathgroup at smc.vnet.net
- Subject: [mg53160] Re: how to save selected cells to an EPS file?
- From: AES/newspost <siegman at stanford.edu>
- Date: Mon, 27 Dec 2004 06:41:30 -0500 (EST)
- References: <cqjbjm$ifg$1@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
In article <cqjbjm$ifg$1 at smc.vnet.net>, Fred <Fred at nowhere.com> wrote:
> I select a number of cells. These cells can be input cells
> and/or output cells, and can contain graphics.
>
> I want all selected cells to be saved to one EPS file.
I think what you want to do is to put multiple graphics, plus supporting
text or comments, into one graphic, then save it as EPS. (Can a single
EPS file contain multiple graphics, i.e. multiple pages? -- my
impression is, no.)
If so, one solution that comes to mind is to assign a symbol to each
graphic-containing cell, e.g
g1 = ---stuff that creates cell #1---
g2 = ---stuff that creates cell #2---
etc
then use
gTotal = Show[GraphicsArray[{{g1,g2},{g3,g4}}]
and
Export["gTtotal.eps",gTotal, "EPS"]
to create the single Exported cell (check the syntax on this; I haven't).
The "assignment" referred to above can certainly be done at the time the
cells are created. The cells can probably also be captured after
creation by using their cell number or a cell label, but I haven't done
any digging into this. Or, if you want to capture Input cells, you may
have to write them, or the data in them, into a graphic envelope in some
fashion.