;
; sample script to generate postscript output
;
x = findgen(20)
plot,x,x,psym=4,color=red
; This is what I would like in my ps file

; Here is how to do it.
set_plot,'ps'
filename='idl.ps'
aspect = PSWINDOW()
DEVICE, FILENAME=filename, XSIZE=aspect.xsize, YSIZE=aspect.ysize, $
        XOFFSET=aspect.xoffset, YOFFSET=aspect.yoffset, COLOR=1, $
        ENCAPSULATED=Keyword_Set(encapsulated), Inches=aspect.inches
plot,x,x,psym=4,color=red
DEVICE, /CLOSE_FILE
;
set_plot,'X'


; hummm -- it seems you'll need to find pswindow first.