MathGroup Archive 2000

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

Search the Archive

Creating GIFs using Display

  • To: mathgroup at
  • Subject: [mg24794] Creating GIFs using Display
  • From: Brian Higgins <bghiggins at>
  • Date: Thu, 10 Aug 2000 00:33:03 -0400 (EDT)
  • Sender: owner-wri-mathgroup at

Hi All,

I would like to construct a GIF that consists of two cells (i) a
mathematica expression, (ii) a plot. I have been able to do this in
the front end . Here is a simple  example

mycell = Cell[BoxData[ToBoxes[Series[Sin[x], {x, 0, 5}]]]]
myplot = DisplayString[Plot[Sin[x], {x, 1, 2\[Pi]}]];
myGraphicCell =
    Cell[GraphicsData["PostScript", myplot], "Graphics",
      ImageSize -> {100, 100}, ImageMargins -> {{50, 30}, {0, 0}}];
CellPrint[Cell[BoxData[GridBox[{{mycell}, {myGraphicCell}}]]]]

This produces in the FrontEnd a cell with the Sine series and
below it a plot of the Sine function.

Now when I try to use the same strategy with Display

  Cell[BoxData[GridBox[{{mycell}, {myGraphicCell}}]]], "GIF"];

A gIf is created with the correct layout : The sine series and below
it a placeholder for the plot except the Sin plot is not rendered.

Any suggestions how I can get this to work. Note, I do not want to
use Export or use Epilog to add text to the plot. I would like to have
a general procedure that will allow me to combine text ,
mathematical expressions and graphic plots together in a single
GIF using cell expressions.


Sent via
Before you buy.

  • Prev by Date: Re: Re: Correlation function and data
  • Next by Date: Re: Help: 1.#QNAN ??
  • Previous by thread: Re: What happened to MonomialList?
  • Next by thread: Re: extract style sheet from nb w/ private style sheet