;+
; NAME:
;     QUICKDRIFT
; PURPOSE:
;     look at the /yd3/reformat on-line data for Yohkoh drift
; CATEGORY:
; CALLING SEQUENCE:
;     .run quickdrift
; INPUTS:
; OPTIONAL (KEYWORD) INPUT PARAMETERS:
; OUTPUTS:
; COMMON BLOCKS:
; SIDE EFFECTS:
;     takes about a minute to run, makes a plot in your current window
; RESTRICTIONS:
; MODIFICATION HISTORY:
;     7-Jul-98, written (HSH)
;    18-jul-98, converted to procedure (HSH)
;-
pro quickdrift, side=side
if n_elements(side) eq 0 then side = 512
wdef,0,side
infil = findfile('/yd3/reformat/sfd*')
rd_roadmap,infil,rm
xy = sxt_cen(rm)
!p.multi = [0,1,2]
utplot,rm,smooth(xy(0,*),10),/ynoz,psym=1,tit='Sun center - X'
utplot,rm,smooth(xy(1,*),10),/ynoz,psym=1,tit='Sun center - Y'
!p.multi = 0
end