pro plot_save_rhi,radar,org_file_base,img_file,field,like_field,isweep,$
                      maxhgt,maxrng,SCAN_TYPE=scan_type,POSTSCRIPT=postscript
    !QUIET=1
    COMMON dirs,img_dir,uf_dir,hid_img_dir,hid_dir,dsd_dir
    COMMON misc,TRUE,FALSE
    COMMON graphics,USE_Z_BUFFER,TC,XS,YS
    COMMON graphic_parms,scale,bottom,ncolors
    COMMON my_colors,black,purple,blue,cyan,green,yellow,orange,red,white
    COMMON symbols,plot,asterisk,dot,diamond,triangle,square,exx
    COMMON linestyles,solid,dotted,dashed,dashdot,dashdotdot,longdash
    COMMON web,server,dir

    date_time = rsl_datetime(radar,jdate=jdate)
    year  = strmid(date_time,0,4)
    month = strmid(date_time,4,2)
    day   = strmid(date_time,6,2)
;
; *** plot_type=0... RHI
; *** plot_type=1... PPI or PPS
;   
    xs=600 & ys=400

    img_base = img_dir + org_file_base + '.' + strupcase(scan_type) + $
      '_' + string(isweep,format='(I2.2)') + '_' + field
    setup_graphics,img_base,img_file,postscript=postscript,$
      cols=cols,rows=rows,CHARSIZE=1.0

    if(field eq 'RR') then like_file = 'RR'
    rsl_plotrhi,radar,field=field,like_field=like_field, $
      maxrange=maxrng,maxheight=maxhgt,sweep_index=isweep
;
; *** Calculate the distances of the disdrometers from the radar.
;
    plot_rhi_disd_locations,radar
;
; *** Save the image to a file
;  
    if(postscript) then begin
        device,/close
        fileb = file_basename(img_file,'.ps')
        new_png = img_dir + fileb + '.png'
        c = 'convert -density 150 -background white -flatten ' + img_file + ' ' + new_png
        spawn,c
        print,' ' + new_png
        spawn,'rm ' + img_file ; Remove postscript version
        img_file = new_png
    endif else begin
        if(!D.name ne 'X') then pngit,img_file
        pngit,img_file
    endelse

    return
    end