;+
;
; NAME:
;	HXISHARD.PRO 
;
; PURPOSE:
;	Print a hard copy
;
; CATEGORY:
;	HXIS diplay
;
; CALLING SEQUENCE:
;	HXISHARD, COLO=COLO, [/FILEOPEN, /FILECLOSE]
;
; CALLED BY:
;	HXISCPLOT, HXISTPLOT, HXISXPLOT, HXISTSPEC
;
; CALLS TO:
;	PSPLOT
;
; INPUTS:
;	COLO :  0 mean black and white print
;		1 mean color print
;
; OPTIONAL INPUTS:
;	FILEOPEN  : if set, then open file to be printed
;	FILECLOSE : if set, then close file to be printed and print
;
; OUTPUT:
;	none
;
; OPTIONAL OUTPUT:
;	none
;
; COMMON BLOCKS:
;	HXISDATA_INFO	for the structure INFO
;
; SIDE EFFECTS:
;	If FILEOPEN is set, then SET_PLOT is set to hardcopy device
;	If FILECLOSE is set, then SET_PLOT is set to X window device,
;			     and a file is printed.
;
; RESTRICTIONS:
; 	none
;
; PROCEDURE:
;	Set appropriate device, and if /CLOSEFILE is set then print
;
; MODIFICATION HISTORY:
;	MAR 1993 - Elaine Einfalt (HSTX)
;
;-	

pro hxishard, fileopen=fileopen, fileclose=fileclose, colo=colo

@hxisdata_info.common

if keyword_set(fileopen) then begin
 ;
 ; Set up device for hard copy
 ;

 oxsiz=21.  &  oysiz = oxsiz * (!d.y_size/float(!d.x_size))  ; proportional
 
 set_plot,'PS',/copy
 device, /landscape, bits_per_pixel=8, $
	 xsize=oxsiz, ysize=oysiz, $
         xoffset=2, yoffset=24.5, $
	 color=colo, filename='HXIS.PS'
 

endif

if keyword_set(fileclose) then begin
 ;
 ; Close and print
 ;

 device,/close  
 set_plot,'X'
 psplot, filename='HXIS.PS', color=colo, /delete

 ;
 ; reset to screen output
 ;

 info.hard = 0		

endif

return
end