Re: Export challenge

*To*: mathgroup at smc.vnet.net*Subject*: [mg27126] Re: [mg27078] Export challenge*From*: "P.J. Hinton" <paulh at wolfram.com>*Date*: Sun, 4 Feb 2001 21:27:10 -0500 (EST)*Sender*: owner-wri-mathgroup at wolfram.com

On Sat, 3 Feb 2001 diacono at altavista.net wrote: > I want to make a gif image of a mathematical function but the > expression should be in a single line. Nevertheless, after applying: > > Export["imag.gif",ToBoxes["x123[i_,j_]=y123[i,j]-z123[i,j]*w123[i,j]+q123[i,j]/(m123[i,j]-n123[i,j]*p123[i,j]+s123[i,j])"]] > > The image shows the expression splitted in two lines. Is there any way > to pre-format the image output in order to get the expression > presented in a single line? Since the GIF that you create is based on what would be drawn on a notebook, your best bet is to specify the size of the notebook window into which the cell should be drawn. Below is an example that demonstrates ho you can do this step-by-step. boxexpr = MakeBoxes[ x123[i_,j_]= y123[i,j]-z123[i,j]*w123[i,j]+ q123[i,j]/(m123[i,j]-n123[i,j]*p123[i,j]+s123[i,j])]; cellexpr = Cell[BoxData[boxexpr]]; nbexpr = Notebook[ {cellexpr}, WindowSize -> {800, 400}, ShowCellBracket -> False ]; Export["imag.gif", nbexpr] If your front end settings are pretty close to the defaults, this should produce a GIF with a single line of typeset math. -- P.J. Hinton User Interface Programmer paulh at wolfram.com Wolfram Research, Inc. Disclaimer: Opinions expressed herein are those of the author alone.