#
# Plot NULL  --  A Null plotting package for the SPECTRA analysis pack.
#		Use this set of procedures if you do not yet have hooks
#		for your local plotting application.
#		It will allow you to run Spectra without plotting anything.
#		to use this, put 'set viz NULL' in your .spectra file.

proc init_NULL {} {
global vp wpp dx dy x y
	set vp [open [exec tty] w+]
	puts $vp init_NULL
	set wpp 0
}


proc window_NULL {title {geometry 600x250}} {
global vp wpp 
# initialize the geometry if it hasn't been done already
    incr wpp
    puts $vp "window_NULL title = $title, geometry = $geometry"
    return $wpp
}


proc plot_NULL {infile format plotstyle window} {
global vp
# Plot 1 dimensional data from a file
# Plot the data
	puts $vp "plot_NULL $infile $format $plotstyle $window"
}


proc close_NULL {} {}