PRO PSWINDOW, LANDSCAPE=LANDSCAPE

;$Id: pswindow.pro,v 1.2 1999/11/15 22:58:21 gumley Exp $

;- Get screen size
device, get_screen_size=screen_size

if keyword_set(landscape) then begin

  ;- Create window with landscape aspect
  xsize = screen_size[1] - 150
  ysize = long(xsize * (8.5 / 11.0))
  window, /free, xsize=xsize, ysize=ysize

endif else begin

  ;- Create window with portrait aspect
  ysize = screen_size[1] - 150
  xsize = long(ysize * (8.5 / 11.0))
  window, /free, xsize=xsize, ysize=ysize

endelse

;- Set the vector fonts to an appropriate size
device, set_character_size=[10, 12]

END