Graphics output as input

*To*: mathgroup at yoda.physics.unc.edu*Subject*: Graphics output as input*From*: fulling at sarastro.math.tamu.edu (Stephen A. Fulling)*Date*: Thu, 26 Aug 93 14:03:41 CDT

We are plotting some graphs that take a long time to compute (at least on an aging Sun-3). We want to save the graphics to files, then come back and display them all at once. The first step is easy: Display["<filename>.ps", <graphics command>] where <graphics command> is something like Plot[myslowfunction[x], {x,-1,1}] . But how to read the files back in, in a later session? In the Mathematica book, the documentation for Read[] and ReadList[] gives a list of allowed "types" of input data, but "Graphics" is not among them! Our solution is somewhat complex, and not exactly obvious from the book, so it may be of general interest: Show[Graphics[Thread[PostScript[Readlist["<filename>.ps", String]]]]] . =========================== clip here =================== ReadGraph[x_] := Show[Graphics[Thread[PostScript[ReadList[x,String]]]]] =========================== clip here =================== Davin M. Potts Stephen A. Fulling