
(** set graphics outputs to settings suitable for a
    notebook front end **)

Begin["System`"] (* currently unnecessary, since no new symbols defined *)

(* Display streams *)

$Display = "stdout"
$SoundDisplay = "stdout"

(* Display functions *)
$DisplayFunction = (Display[$Display, #] &)
$SoundDisplayFunction = (Display[$SoundDisplay, #] &)

(* Animation *)

$RasterFunction = (($AnimationDisplayFunction[#1];)&)
$AnimationDisplayFunction = (Display[$Display,#1] &)


End[]

Null

