(* Graphics output for Tektronix 4010 type terminals *)

(* These variables can be reset during a session to alter subsequently
   created graphics windows: *)

Begin["System`"]

$DisplayWidth = 780
$DisplayHeight = 780

$Display := $TekDisplay
$TekDisplay := StringJoin["!rasterps -format tektronix -h '", 
				ToString[N[$DisplayHeight]],
				"' -w '", ToString[N[$DisplayWidth]],
				"'" ]

$DisplayFunction = Display[$Display, #]&

$SoundDisplayWidth = 300
$SoundDisplayHeight = 250
$SoundDisplayTitle := StringForm["Mathematica Sound:  Out[`1`]", $Line]

$SoundDisplay := {$TekSoundDisplay}
$TekSoundDisplay := StringJoin["!tekps -h '", ToString[N[$SoundDisplayHeight]],
				"' -w '", ToString[N[$SoundDisplayWidth]],
				"' -T '", ToString[$SoundDisplayTitle], "'" ]

End[]

If[ !($BatchOutput || $Remote || $ParentLink =!= Null),
	Print[" -- Tektronix graphics initialized -- "] ]
