; 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,768,512,/uright & !p.multi=[0,1,3]		; make a window
linecolors					        ; set up color table

; *** reading GOES second resolution [G7D Files] ***
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 1 minute averages [G71 Files] ***
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 5 minute averages [G75 Files] ***
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 
clear_utplot
; Using one minute averages...
plot_goes,'22-aug-95','26-aug-95',/one_min, title='ONE MINUTE AVG.'
clear_utplot
; Using five minute averages 
plot_goes,'22-aug-95','26-aug-95', /five_min, title='FIVE MINUTE AVG.'

end