;+
; NAME:
;     LATEST_SFDS_GIF
; PURPOSE:
;     write .gif files on the ftp directory (sxt_co/quick)
; CATEGORY:
;     Yohkoh operations
; CALLING SEQUENCE:
; INPUTS:
; OPTIONAL (KEYWORD) INPUT PARAMETERS:
; OUTPUTS:
; COMMON BLOCKS:
; SIDE EFFECTS:
; RESTRICTIONS:
; MODIFICATION HISTORY:
;     22-aug-98, written (HSH)
;     26-Aug-98, converted to environmentals (HSH); added thumbnail
;-
pro latest_sfds_gif, number = number, qstop=qstop
if n_elements(number) eq 0 then number = 20
infil = findfile('$DIR_SITE_NEWDATA*/sfd*')
rd_roadmap,infil,rm
n_sfd = n_elements(rm)
ss = where(gt_res(rm) eq 1)
ss20 = n_elements(ss)-number
rd_xda,infil,ss(ss20+indgen(number)),index,data
set_plot,'z'
wdef,0,512
loadct,3
over
tvlct,r,g,b,/get
for i = 0,number-1 do begin
  tvscl,data(*,*,i)
  grid,1,1,512,512
  xyouts,10,10,/dev,charsi=2,'SXT '+gt_filtb(index(i),/str)+' '+$
     fmt_tim(index(i))
  out = tvrd()
  write_gif,'$DIR_SITE_FTP/pub/sxt_co/quick/latest_sfd_'+strtrim(string(i),1)+$
    '.gif',out,r,g,b
endfor
write_gif,'$DIR_SITE_FTP/pub/sxt_co/quick/lastsfd_thumb.gif',$
  rebin(out,128,128),r,g,b
;set_plot,'x'
if n_elements(qstop) ne 0 then stop
end