Creating GIFs using Display
- To: mathgroup at smc.vnet.net
- Subject: [mg24794] Creating GIFs using Display
- From: Brian Higgins <bghiggins at ucdavis.edu>
- Date: Thu, 10 Aug 2000 00:33:03 -0400 (EDT)
- Sender: owner-wri-mathgroup at wolfram.com
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
Display["BGH50.gif",
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.
Brian
Sent via Deja.com http://www.deja.com/
Before you buy.