pro over_lineplot tvlct, r, g, b, /get ; ; Swap black background, white foreground ; ; Get background color (element 0) background = r[0] foreground = r[255] ; Swap r[255] = background & g[255] = background & b[255] = background r[0] = foreground & g[0] = foreground & b[0] = foreground tvlct, r, g, b end ;+ ; 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. ; 24-Nov-98, added LASTSFD_DIFF (HSH) ; 06-Jan-99, added FAKE_PATROL, SHOW_CONTACTS. Commented out QUICKLIMB. ; (DMcK) ; 11-Jan-99, added SET_PLOT,'Z' after LATEST_SFDS_GIF, to counter the ; explicit set_plot,'x' within that program. (DMcK) ; 9-Jul-99, revised the terminator display to account for ; the new normal pointing installed 2-Jul-99. ; Added SXT_COVERAGE_MAP. (HSH) ; 9-Jul-99, OVER_LINEPLOT (BH) ; 18-Jul-99, LASTKSC added (HSH) ; 11-Oct-99, added spawn to 'convert' .gif for isass0/1 login banners (PGS) ; 17-Oct-99, added quick_dpe, note: reverses color table. (PGS) ; 12-nov-99, added '/quick' to fake_patrol call. (PGS) ; 18-Apr-00, added plottrav call. (BNH) ; 23-AUg-00, wrapped separate activities in 'execute' statements & IF-blocks. (PGS) ; 09-Jul-01, edited path to 'convert' (DMcK) ;- get_lun,lun openw,lun,'$DIR_SITE_FTP/pub/sxt_co/quick/lastksc.html' pro_lastksc='lastksc,names' stat_lastksc=execute(pro_lastksc) IF (stat_lastksc) THEN BEGIN printf,lun,'' for i = 0,6 do printf,lun,'

'+names(i) printf,lun,'' close,lun ENDIF ; set_plot,'z' loadct,0 over tvlct,r,g,b,/get pro_term_fids = 'term_fids' stat_term_fids = execute(pro_term_fids) IF (stat_term_fids) THEN BEGIN plottime 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 ENDIF ELSE mail, 'problem with term_fids in go_quick.pro',users='software' erase set_plot,'z' loadct,0 over tvlct,r,g,b,/get pro_quickatt = 'quickatt' stat_quickatt = execute(pro_quickatt) IF(stat_quickatt) THEN BEGIN 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 ENDIF ELSE mail, 'problem with quick_att in go_quick.pro',users='software' erase set_plot,'z' loadct,0 over tvlct,r,g,b,/get pro_quickdark = 'quickdark' stat_quickdark = execute(pro_quickdark) IF (stat_quickdark) THEN BEGIN 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 ENDIF ELSE mail, 'problem with quick_dark in go_quick.pro',users='software' erase set_plot,'z' loadct,0 over tvlct,r,g,b,/get pro_quickstray = 'quickstray' stat_quickstray = execute(pro_quickstray) IF (stat_quickstray) THEN BEGIN 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 ENDIF ELSE mail, 'problem with quickstray in go_quick.pro',users='software' erase set_plot,'z' loadct,0 over tvlct,r,g,b,/get ;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 pro_weekly_goes = 'weekly_goes' stat_weekly_goes = execute(pro_weekly_goes) IF (stat_weekly_goes) THEN BEGIN 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 ENDIF ELSE mail, 'problem with weekly_goes in go_quick.pro',users='software' erase set_plot,'z' loadct,0 over tvlct,r,g,b,/get pro_goes_tek= 'goes_tek' stat_goes_tek = execute(pro_goes_tek) IF (stat_goes_tek) THEN BEGIN 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 ENDIF ELSE mail, 'problem with goes_tek in go_quick.pro',users='software' ; ; new terminator program, installed 8-Jul-99 (HSH) ; erase set_plot,'z' wdef linecolors over_lineplot pro_term_quick='term_quick' stat_term_quick = execute(pro_term_quick) IF (stat_term_quick) THEN BEGIN out_img = tvrd() tvlct,r,g,b,/get write_gif,'$DIR_SITE_FTP/pub/sxt_co/quick/term_quick.gif',out_img,r,g,b write_gif,'$DIR_SITE_FTP/pub/sxt_co/quick/term_quick_thumb.gif',$ rebin(out_img,128,128),r,g,b ENDIF ELSE mail, 'problem with term_quick in go_quick.pro',users='software' erase set_plot,'z' wdef linecolors over_lineplot pro_term_quick2='term_quick,/radius' stat_term_quick2 = execute(pro_term_quick2) IF (stat_term_quick2) THEN BEGIN out_img = tvrd() tvlct,r,g,b,/get write_gif,'$DIR_SITE_FTP/pub/sxt_co/quick/term_quick_rad.gif',out_img,r,g,b write_gif,'$DIR_SITE_FTP/pub/sxt_co/quick/term_quick_rad_thumb.gif',$ rebin(out_img,128,128),r,g,b ENDIF ELSE mail, 'problem with second term_quick call in go_quick.pro',users='software' erase set_plot,'z' wdef linecolors over_lineplot pro_latest_sfds_gif='latest_sfds_gif' stat_latest_sfds_gif=execute(pro_latest_sfds_gif) IF (stat_latest_sfds_gif) THEN BEGIN ; spawn, '/usr/local/bin/convert $ftp/pub/sxt_co/quick/latest_sfd_18.gif -colors 180 $ftp/pub/sxt_co/quick/latest_sfd_18.xpm' spawn, '/usr/X11R6/bin/convert $ftp/pub/sxt_co/quick/latest_sfd_18.gif -colors 180 $ftp/pub/sxt_co/quick/latest_sfd_18.xpm' ENDIF ELSE mail, 'problem with latest_sfds_gif in go_quick.pro',users='software' set_plot,'z' ; Added 11-jan-99 loadct,0 wdef,0,512,512 pro_lastsfd_diff = 'lastsfd_diff' stat_lastsfd_diff = execute(pro_lastsfd_diff) IF (stat_lastsfd_diff) THEN BEGIN plottime img8 = tvrd() tvlct,r,g,b,/get write_gif,'$DIR_SITE_FTP/pub/sxt_co/quick/diff.gif',img8,r,g,b write_gif,'$DIR_SITE_FTP/pub/sxt_co/quick/diff_thumb.gif',$ rebin(img8,((size(img8))(1))/4,((size(img8))(2))/4),r,g,b ; rebin(img8,128,128),r,g,b ENDIF ELSE mail, 'problem with lastsfd_diff in go_quick.pro',users='software' erase set_plot,'z' loadct,0 tvlct,r,g,b,/get pro_fake_patrol = 'fake_patrol, /quick' stat_fake_patrol = execute(pro_fake_patrol) IF (stat_fake_patrol) THEN BEGIN plottime pat_img=tvrd() write_gif,'$DIR_SITE_FTP/pub/sxt_co/quick/fake_patrol_image.gif',pat_img,r,g,b write_gif,'$DIR_SITE_FTP/pub/sxt_co/quick/fake_patrol_image_thumb.gif',$ rebin(pat_img,128,128),r,g,b ENDIF ELSE mail, 'problem with fake_patrol in go_quick.pro',users='software' erase set_plot,'z' loadct,0 tvlct,r,g,b,/get outgif_show_contacts='$DIR_SITE_FTP/pub/sxt_co/quick/contacts.gif' pro_show_contacts = 'show_contacts,/zbuffer,outgif=outgif_show_contacts' stat_show_contacts = execute(pro_show_contacts) IF (stat_show_contacts) THEN BEGIN read_gif,'$DIR_SITE_FTP/pub/sxt_co/quick/contacts.gif',contacts,r,g,b wdef,0,1200,300 tv,contacts plottime contacts=tvrd() write_gif,'$DIR_SITE_FTP/pub/sxt_co/quick/contacts.gif',contacts,r,g,b write_gif,'$DIR_SITE_FTP/pub/sxt_co/quick/contacts_thumb.gif',$ rebin(contacts,400,100),r,g,b ENDIF ELSE mail, 'problem with show_contacts in go_quick.pro',users='software' ; ; PFI coverage ; erase set_plot,'z' wdef,0,256 loadct,15 over tvlct,r,g,b,/get pro_sxt_exposure_map = 'sxt_exposure_map' stat_sxt_exposure_map = execute(pro_sxt_exposure_map) IF (stat_sxt_exposure_map) THEN BEGIN out_img = tvrd() write_gif,'$DIR_SITE_FTP/pub/sxt_co/quick/coverage.gif',out_img,r,g,b write_gif,'$DIR_SITE_FTP/pub/sxt_co/quick/coverage_thumb.gif',$ rebin(out_img,128,128),r,g,b ENDIF ELSE mail, 'problem with sxt_exposure_map in go_quick.pro',users='software' ; ;quick_dpe ; erase set_plot,'z' wdef, 0, 512, 512 loadct, 0 over tvlct,r,g,b,/get pro_quick_dpe = 'quick_dpe' stat_quick_dpe = execute(pro_quick_dpe) !p.multi=[0,1,0] IF (stat_quick_dpe) THEN BEGIN out_img = tvrd() write_gif,'$DIR_SITE_FTP/pub/sxt_co/quick/quick_dpe.gif',out_img,r,g,b write_gif,'$DIR_SITE_FTP/pub/sxt_co/quick/quick_dpe_thumb.gif',$ rebin(out_img,((size(out_img))(1))/4,((size(out_img))(2))/4),r,g,b ENDIF ELSE mail, 'problem with quick_dpe in go_quick.pro',users='software' ; ; ; plot_trav ; erase set_plot, 'z' loadct, 0 tvlct, r, g, b, /get pro_quick_plottrav = 'quick_plottrav' stat_quick_plottrav = execute(pro_quick_plottrav) IF (stat_quick_plottrav) THEN BEGIN imgpi = tvrd() write_gif,'$DIR_SITE_FTP/pub/sxt_co/quick/plottrav.gif',imgpi,r,g,b write_gif,'$DIR_SITE_FTP/pub/sxt_co/quick/plottrav_thumb.gif',rebin(imgpi,128,128),r,g,b ENDIF ELSE mail, 'problem with quick_plottrav in go_quick.pro',users='software' end