set_ps.pro

IDL语言编写的用于天文自适应光学仿真的软件CAOS V6.0的第一部分。

; $Id: set_ps.pro,v 1.2 2002/03/14 11:49:14 riccardi Exp $

pro set_ps, filename, PORTRAIT=port
set_plot, 'ps'
if n_elements(filename) eq 0 then filename = dialog_pickfile(/WRITE)
if filename ne '' then $
    	device, LANDSCAPE=(not keyword_set(port)) $
    	      , /COLOR, BIT=8, FILE=filename
end