; goes_average_demo
;
; This demo reads and oveplots GOES data using 3 different cadences and
; then demonstrates a simple goes_summary call'
;
; set window and color table
wdef,w1,512,512,/ur & !p.multi=[0,1,3]		; make a 512x768 window, upper right
linecolors					; set up color table

; *** reading goes data at 3 second resolution ***
rd_gxd,'24-AUG-95 08:00','24-AUG-95 20:00',gdat
;
; plotting goes 3 second data, LOW channel
utplot,gdat,gdat.lo,color=9,/ytyp,yran=[1.e-9,1.e-3]
wait,1

; *** reading goes data at 1 minute resolution ***
rd_gxd,'24-AUG-95 08:00','24-AUG-95 20:00',gdat, /one_min

; overplotting the 1 minute resolution data
outplot,gdat,gdat.lo, psym=2, color=5			

; *** reading goes data at 1 minute resolution ***
rd_gxd,'24-AUG-95 08:00','24-AUG-95 20:00',gdat, /five_min

; overplotting the 5 minute resolution data
outplot,gdat,gdat.lo, psym=1, color=2			

; overplot goes grid and epehmeris
goes_grid, color=8 & fem_grid,scolor=4,/fillsaa,/fillnight, ncolor=10

; Demonstrate relative plot_goes speed for 1 week 
; Using one minute averages...
plot_goes,'22-aug-95','27-aug-95',/one_min, title='ONE MINUTE AVG.'
; Using five minute averages 
plot_goes,'22-aug-95','27-aug-95', /five_min, title='FIVE MINUTE AVG.'

end