proc psPlot {path} {

  global MsgW
        set n 1
        while {[file exists Plot$n.ps]} {
                incr n
        }
        set filen Plot$n.ps

        $path postscript output $filen -landscape 1 -maxpect 1 -decorations 0

        setMsg $MsgW "PostScript plot is in $filen"
	puts stderr "PostScript plot is in $filen"

}

