;+
; NAME:
;     GO_QUICK
; PURPOSE:
;     create quick looks at Yohkoh data, software, database diagnostics
;       to be shown on the $ftp/pub/sxt_co/quick/quick.html display
; CATEGORY:
; CALLING SEQUENCE:
;     main program
; INPUTS:
; OPTIONAL (KEYWORD) INPUT PARAMETERS:
; OUTPUTS:
; COMMON BLOCKS:
; SIDE EFFECTS:
; ROUTINES
;     runs the "quick" series of programs on this directory (/0p/sxt_co/idl)
; RESTRICTIONS:
; MODIFICATION HISTORY:
;     August 1998, written (HSH)
;     23-Aug-98, added LASTSFD (HSH)
;     08-Oct-98, added default ftp location, recast in terms of environmentals. 
;-
set_plot,'z'
loadct,0
over
tvlct,r,g,b,/get
term_fids
img7 = tvrd()
write_gif,'$DIR_SITE_FTP/pub/sxt_co/quick/fids.gif',img7,r,g,b
write_gif,'$DIR_SITE_FTP/pub/sxt_co/quick/fids_thumb.gif',$
  rebin(img7,((size(img7))(1))/4,((size(img7))(2))/4),r,g,b
;  rebin(img7,160,120),r,g,b
;  rebin(img7,128,128),r,g,b
quickatt
img1 = tvrd()
write_gif,'$DIR_SITE_FTP/pub/sxt_co/quick/att.gif',img1,r,g,b
write_gif,'$DIR_SITE_FTP/pub/sxt_co/quick/att_thumb.gif',rebin(img1,128,128),r,g,b
quickdark
img2 = tvrd()
write_gif,'$DIR_SITE_FTP/pub/sxt_co/quick/dark.gif',img2,r,g,b
write_gif,'$DIR_SITE_FTP/pub/sxt_co/quick/dark_thumb.gif',rebin(img2,128,128),r,g,b
quickstray
img3 = tvrd()
write_gif,'$DIR_SITE_FTP/pub/sxt_co/quick/stray.gif',img3,r,g,b
write_gif,'$DIR_SITE_FTP/pub/sxt_co/quick/stray_thumb.gif',rebin(img3,128,128),r,g,b
quicklimb
img4 = tvrd()
write_gif,'$DIR_SITE_FTP/pub/sxt_co/quick/limb.gif',img4,r,g,b
write_gif,'$DIR_SITE_FTP/pub/sxt_co/quick/limb_thumb.gif',rebin(img4,128,128),r,g,b
weekly_goes
img5 = tvrd()
tvlct,r,g,b,/get
write_gif,'$DIR_SITE_FTP/pub/sxt_co/weeklygoes.gif',img5,r,g,b
write_gif,'$DIR_SITE_FTP/pub/sxt_co/weeklygoes_thumb.gif',rebin(img5,128,128),r,g,b
goes_tek
img6 = tvrd()
tvlct,r,g,b,/get
write_gif,'$DIR_SITE_FTP/pub/sxt_co/quick/goes_tek.gif',img6,r,g,b
write_gif,'$DIR_SITE_FTP/pub/sxt_co/quick/goes_tek_thumb.gif',$
  rebin(img6,128,128),r,g,b
term_review_gif
latest_sfds_gif
end