pro initialize,ps

; Initialize for colors, postscript, etc.

;Allow the use of Elaine's colors
linecolors
;linecolors,/help ;gets you the color swatch.
;0 black, 1 brown, 2 orange, 3 pink, 4 light brown, 5 yellow, 6 olive, 7 green, 8 dark green
;9 light blue, 10 blue, 11 darkblue, 12 fuscia, 13 purple

; Set up plot options
!P.TITLE = ' '
!P.LINESTYLE=0 ; solid line
!P.THICK = 1
if ps gt 0 then !P.THICK = 5  ; thicker lines for postscript output
;Use TrueType fonts
!P.FONT = -1
!P.charsize=1
!X.charsize = 1
!Y.CHARSIZE = 1
DEVICE, SET_FONT='Times', /TT_FONT

;To generate a Postscript file, set ps = 1 for portrait & 2 for landscape
;Unquote DEVICE statement at end of calling procedure for postscript output file.
;Use ps_config_p for portrait and ps_config_l for landscape.

;Set up Postscript options (same as for plotman - KIM).
ps_config_p = {xsize:7.5, xoff:0.6, ysize:10.0, $
      yoff:0.6, filename:'brians_plot_portrait.ps', $
      inches:1, color:1, bits_per_pixel:8, $
      encapsulated:0, landscape:0}

ps_config_l = {xsize:10., xoff:0.5, ysize:7.5, $
      yoff:10.4, filename:'brians_plot_landscape.ps', $
      inches:1, color:1, bits_per_pixel:8, $
      encapsulated:0, landscape:1}

set_plot,'win'

If (ps eq 0) then goto, label1
set_plot,'ps'

if (ps eq 1) then begin
device, _extra=ps_config_p
;device,file='brians_plot_portrait.ps',/portrait
endif else begin
device, _extra=ps_config_l
;device,file='brians_plot_landscape.ps',/landscape
endelse

label1:

return

end