MathGroup Archive 1999

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

Search the Archive

Re: HTMLSave and GIF size

  • To: mathgroup at
  • Subject: [mg21109] Re: HTMLSave and GIF size
  • From: paulh at (P.J. Hinton)
  • Date: Fri, 17 Dec 1999 01:21:08 -0500 (EST)
  • Organization: "Wolfram Research, Inc."
  • References: <831igt$>
  • Sender: owner-wri-mathgroup at

In article <831igt$df7 at>, Pasquale Nardone <Pasquale.Nardone at> writes:

>how can I change the gif size
>of the MathOutput ?
>(they are too small)
>thanks a lot

What version of Mathematica are you using?  If you are running 
Mathematica 3.0, there isn't much you can do, but for Mathematica
4, there is a simple fix that can be applied.

Add this snippet of code to your kernel init.m file.

[begin snippet]


createGIF[channel:(_OutputStream | _String), nbExpr_Notebook, opts___] :=
    {cells, nbopts, convexpr},
    cells = nbExpr /. Notebook[cellList_List, ___] -> cellList;
    nbopts = nbExpr /. Notebook[_, optSequence___] -> {optSequence};
    nbopts = DeleteCases[nbopts, WindowSize -> Automatic, -1];
    (* Needed to keep the front end aware of window size *)
    nbopts = nbopts /. Rule[WindowSize, {width_, height_}] :>
      Rule[WindowSize, {width, 384 + Mod[FromDate[Date[]], 384]}];
    convexpr = Notebook[cells, Sequence @@ nbopts];
    Rest @ System`Dump`PutGIF[convexpr, channel,
      Sequence @@ System`Dump`DisplayToGIFOptions[opts]]

[end snippet]

This code will force HTMLSave[] under Mathematica 4 to use the current
notebook window width as the basis for the linebreak calculation of 
multiline formulae.  It is very close to what you see on screen.

P.J. Hinton
Mathematica Programming Group           paulh at
Wolfram Research, Inc.
Disclaimer: Opinions expressed herein are those of the author alone.

  • Prev by Date: Re: Eigensystem applied to a unitary matrix crashes Mathematica 4.
  • Next by Date: Re: Re: Running Mathematica under Linux Red Hat
  • Previous by thread: HTMLSave and GIF size
  • Next by thread: maldelbrot set