;-----------------------------------------------------------------
; win2pr.pro
;
; written by Andreas Reigber
;------------------------------------------------------------------
; sends the content of an IDL graphic window directly to the 
; printer.
;
; KEYWORDS: 
;  /WIN : specifies the window number
;  /INV : print inverted
;  /COL : print in color 
;------------------------------------------------------------------
; This software has been released under the terms of the GNU Public
; license. See http://www.gnu.org/copyleft/gpl.html for details.
;------------------------------------------------------------------

pro win2pr,WIN=win,INV=inv,COL=col
	if not keyword_set(win) then win=0
	wset,win
	a=tvrd()
	if keyword_set(win) then a=255-a 	
	set_plot,"ps"
	device,filename="idl.ps",/landscape
	tv,a
	device,/close
	set_plot,"x"
	if keyword_set(col) then spawn,"lpr -Pcolor idl.ps" $
	                    else spawn,"lpr -Pps idl.ps" 
	spawn,"rm idl.ps"
end