;+
; NAME:
;     QUICKLIMB
; PURPOSE:
;     show in 2D where (if at all) ATT is failing
; CATEGORY:
; CALLING SEQUENCE:
; INPUTS:
; OPTIONAL (KEYWORD) INPUT PARAMETERS:
; OUTPUTS:
; COMMON BLOCKS:
; SIDE EFFECTS:
; RESTRICTIONS:
; MODIFICATION HISTORY:
;     7-Jul-98, written (HSH)
;    25-Jul-98, converted to procedure and improved (HSH)
;    13-aug-98, changed hard paths to environment paths (DA)
;    22-aug-98, revised same (HSH)
;     7-sep-98, fixed bug (HSH)
;-
pro quicklimb,xr=xr,yr=yr, qdebug=qdebug
if n_elements(xr) eq 0 then xr = [530,550]
if n_elements(yr) eq 0 then yr = [570,610]
infil = findfile('$DIR_SITE_NEWDATA*/sfd*')
rd_roadmap,infil,rm
fmt_timer,rm,t1,t2
rd_att,t1,t2,att
tt = tim2dset(att,rm)
ss = where(att(tt).status1 ne 4)
xy = sxt_cen(rm)
plot,xy(0,*),xy(1,*),psym=1,xr=xr,yr=yr,$
  tit='Recent SFDs: diamonds have bad attitudes'
oplot,xy(0,ss),xy(1,ss),psym=4,symsiz=4
timestamp
if n_elements(qdebug) ne 0 then stop
end