pro test, filename, res,  title = title
get_timespan,  tspan
load_stb_l1_ste


options,'stb_ste_D0','spec',0
options,'stb_ste_D0','ytitle','STE e- Cnts'
get_data,'stb_ste_D0',ptr=pste
options,'stb_ste_D0','labels',reform(string((*pste.v)[0,*],format='(f5.1)')+'keV')
;options,'stb_ste_D0','ztitle','e- Cnts'
;options,'stb_ste_D0','zlog',1
options,'stb_ste_D0','labflag',-1
options,'stb_ste_D0','labsize',1.
stebins = bytarr(32)
for i = 0,10 do stebins[3*i] = 1b
options,'stb_ste_D0','bins',stebins

if not keyword_set(title) then $
   tplot_options,'title','STEREO-B IMPACT Summary Plot' else $
   tplot_options,'title',title

set_plot,'z'
device,set_res=[780,780]
loadct2,34
!p.background = 255
!p.color = 0

tplot,['stb_ste_D0']
makegif, filename
device, /close
return

end