如何用IDL出png格式的图

六角亭十佳病人

求助各位大神，如何用IDL出png格式的图，能直接把定格式的语句换掉吗。这是原本出ps格式图的程序段。本来想用ai转格式的，一个个转太慢了。

   figname='F:\work\draw\pre\'+strcompress(string(fday))+'_CRAIN.ps'
   set_plot,'ps'
device,xoffset=0,yoffset=10.5,xsize=10.5,ysize=10,/inches,/landscape,$

       filename=figname,/times,/bold,/color,bits_per_pixel=8

    for ipanel=0,0 do begin
        if (ipanel eq 0) then begin
           xname=['109E','110E','111E','112E','113E','114E','115E','116E','117E','118E']
           x_num=n_elements(xname)
           yname=['20N','22N','24N','26N']
           y_num=n_elements(yname)
          loadct,39
          contour,CRAIN[*,*],lon,lat,xrange=x_range,yrange=y_range,level=lev,c_colors=colors1,title=strcompress(strmid(fday,50,2))$
                              +' UTC '+strcompress(strmid(fday,48,2))+' '+'Rainfall',CHARSIZE=2,$
                  pos=pos1[ipanel,*],xticks=x_num-1,xtickname=xname,yticks=y_num-1,ytickname=yname,xcharsize=1.1,ycharsize=1.1,yminor=2,xminor=5,/fill,/noerase,/ISOTROPIC   

[20],C_CHARSIZE=1.6,C_CHARTHICK=6,C_thick=10,C_LABELS =lev2*0+1,/noerase,/overplot,min_value=-1   
       endif
          print,max(CRAIN[*,*])