MathGroup Archive 1999

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

Search the Archive

Re: overwrite separate notebook

  • To: mathgroup at
  • Subject: [mg16960] Re: overwrite separate notebook
  • From: Andrew Watson <abwatson at>
  • Date: Thu, 8 Apr 1999 02:32:51 -0400
  • Sender: owner-wri-mathgroup at

I found a simple solution, based on earlier code of P.J.Hinton.

If anyone is interested:

ExternalGraphicDisplay[object_Graphics] := Module[{nb},
	nb = SetSelectedNotebook[
	SelectionMove[  nb,All,Notebook];
	Cell[GraphicsData[ "PostScript"
		, DisplayString[object]]]];

$ExternalGraphicsNotebook = NotebookCreate[];

Plot[Sin[x], {x,0,4Pi},DisplayFunction->ExternalGraphicDisplay]


Andrew B. Watson
MS 262-2
NASA Ames Research Center
Moffett Field, CA 94035-1000
(650) 604-5419	(650) 604-0255 fax
abwatson at

  • Prev by Date: Help Formatting Outputs?
  • Next by Date: Re: Help needed with List!
  • Previous by thread: overwrite separate notebook
  • Next by thread: Re: overwrite separate notebook