MathGroup Archive 2004

[Date Index] [Thread Index] [Author Index]

Search the Archive

Re: how to save selected cells to an EPS file?

  • To: mathgroup at
  • Subject: [mg53160] Re: how to save selected cells to an EPS file?
  • From: AES/newspost <siegman at>
  • Date: Mon, 27 Dec 2004 06:41:30 -0500 (EST)
  • References: <cqjbjm$ifg$>
  • Sender: owner-wri-mathgroup at

In article <cqjbjm$ifg$1 at>, Fred <Fred at> 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---

then use

    gTotal = Show[GraphicsArray[{{g1,g2},{g3,g4}}]


    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 

  • Prev by Date: Re: Re: Re: Re: Mathematica language issues
  • Next by Date: Re: Re: rotating 3D graphic by the mouse
  • Previous by thread: how to save selected cells to an EPS file?
  • Next by thread: Help with a summation