Re: fit to page using inline postscript

*To*: mathgroup at smc.vnet.net*Subject*: [mg32033] Re: fit to page using inline postscript*From*: pbrandani at ucdavis.edu (pbrandani)*Date*: Wed, 19 Dec 2001 04:29:20 -0500 (EST)*References*: <9vche3$3ma$1@smc.vnet.net>*Sender*: owner-wri-mathgroup at wolfram.com

pbrandani at ucdavis.edu (pbrandani) wrote in message news:<9vche3$3ma$1 at smc.vnet.net>... > Is there a way to insert page breaks at set intervals to delimit > sections of a large notebook output (mixed text/graphics)? > > and then use inline postscript instructions to have these individual > sections fit a single page of output on a printer? > > Is the outlined scheme feasible? what combination of mathematica and > postscript code should be used? HERE IS A SOLUTION SUGGESTED BY Paul Hinton OF Wofram Research: <<<<<<<<<< A safer route is to probably separate discrete units of output into individual cells. This isn't too hard to implement with a couple of utility functions: evaluateToOutputCell[input_] := Cell[BoxData[ToBoxes[input]], "Output"] evaluateToGraphicsCell[input_] := Cell[GraphicsData["PostScript", DisplayString[input]], "Graphics", CellLabel -> StringJoin["From In[", ToString[$Line], "]="]] /; MatchQ[input, _Graphics | _Graphics3D | _SurfaceGraphics | _ContourGraphics | _DensityGraphics] You then use these functions as wrappers to your inputs that generate outputs. Here is what they would look like for relatively simple inputs. evaluateToOuputCell[Integrate[x, x]] evaluateToGraphicsCell[Plot3D[Sin[x] Cos[y], {x, 0, 2 Pi}, {y, 0, 2 Pi}]] If you want to specify that a page break be added, after a cell, you can edit the functions above to include the option PageBreakBelow -> <boolean> where <boolean> may be True or False. >>>>>>>>>> e.g. CellPrint[Cell["**--**", PageBreakAbove -> True]]