Re: overwrite separate notebook
- To: mathgroup at smc.vnet.net
- Subject: [mg16960] Re: overwrite separate notebook
- From: Andrew Watson <abwatson at mail.arc.nasa.gov>
- Date: Thu, 8 Apr 1999 02:32:51 -0400
- Sender: owner-wri-mathgroup at wolfram.com
I found a simple solution, based on earlier code of P.J.Hinton.
If anyone is interested:
ExternalGraphicDisplay[object_Graphics] := Module[{nb},
nb = SetSelectedNotebook[
$ExternalGraphicsNotebook];
SelectionMove[ nb,All,Notebook];
NotebookDelete[nb];
NotebookWrite[nb,
Cell[GraphicsData[ "PostScript"
, DisplayString[object]]]];
]
$ExternalGraphicsNotebook = NotebookCreate[];
Plot[Sin[x], {x,0,4Pi},DisplayFunction->ExternalGraphicDisplay]
Regards
Andrew B. Watson
MS 262-2
NASA Ames Research Center
Moffett Field, CA 94035-1000
(650) 604-5419 (650) 604-0255 fax
abwatson at mail.arc.nasa.gov http://vision.arc.nasa.gov/