pro tvpinit,fn=fn,color=color,landscape=landscape
;+
;  set up the plot for PS file
; fn = a file name
; color = keyword indicating a color plot
;-
set_plot,'PS'
device,/helvetica,/bold
if keyword_set(color) then device,/color,bits_per=8
if n_elements(fn) ne 0 then device,filename='Hard Drive:'+fn else device,filen='Hard Drive:idl.ps'
if keyword_set(landscape) then device,/landscape else device,/portrait
return
end