;+
; NAME:
;  unsetps
; PURPOSE: (one line)
;  Prepare to stop making a postscript plot
; DESCRIPTION:
;  
; CATEGORY:
;  Util
; CALLING SEQUENCE:
;  unsetps, fn
; INPUTS:
;  none
; OPTIONAL INPUT PARAMETERS:
;  filename - if set, look at file just made
; KEYWORD INPUT PARAMETERS:
;  none
; KEYWORD OUTPUT PARAMETERS:
;  none
; OUTPUTS:
;  none
; COMMON BLOCKS:
;  None
; SIDE EFFECTS:
;  sets the plotting back to X or mac
; RESTRICTIONS:
;  None
; PROCEDURE:
; MODIFICATION HISTORY:
;  2005 Oct 17 Leslie Young SwRI Moved to layoung/util
;-
pro unsetps, fn 
 device, /close 
 if !version.os_family eq 'unix' then begin
   set_plot, 'x' 
   if keyword_set(fn) then begin
       case !version.os of
           'linus': spawn, 'ghostview ' + fn 
           'darwin': begin
               spawn, 'ps2pdf ' + fn 
               spawn, 'open ' + strmid(fn,0,strlen(fn)-2)+'pdf' 
           end
           else:
       endcase 
   end
 end else if !version.os_family eq 'MacOS' then begin
   set_plot, 'mac' 
 end
 !p.color=0
 !p.background = 255
end