;sday='2008/08/01'
;eday='2008/08/31'

;for d=gt_day(sday),gt_day(eday) do begin

;    evntdate=anytim2cal(ygt_date(d,/str),form=11)
;    print,''
;    print, evntdate
;    print,''

;    evntdate='2007/02/17'
;    get_cor1_jpg, evntdate, /behind
sdate = '20020207'
read,'sdate=?',sdate
    mk_jsmovie, sdate

;endfor
end