pro ps_start, filename, landscape=landscape, portrait=portrait, $
square=square, color=color, encapsulated=encapsulated
set_plot, "ps"
device, filename=filename
device, encapsulated=encapsulated
if keyword_set(landscape) then begin
device, /landscape, xsize=9, ysize=6.5, xoffset=1, yoffset=10, /inches
endif else if keyword_set(portrait) then begin
device, /portrait, xsize=6.5, ysize=9, xoffset=1, yoffset=1, /inches
endif else if keyword_set(square) then begin
device, /portrait, xsize=6.5, ysize=6.5, xoffset=1, yoffset=2.5, /inches
endif else begin
device, /landscape, xsize=9, ysize=6.5, xoffset=1, yoffset=10, /inches
endelse
device, color=color, bits_per_pixel=8
end