;+
; Project     : SOHO - CDS     
;                   
; Name        : EXPINT_DEMO
;               
; Purpose     : Demonstrate effect of packetization module patch
;               
; Explanation : 
;               
; Use         : IDL> expint_demo
;    
; Inputs      : None
;               
; Opt. Inputs : None
;               
; Outputs     : None
;               
; Opt. Outputs: None
;               
; Keywords    : None
;
; Calls       : None
;
; Common      : None
;               
; Restrictions: None
;               
; Side effects: None
;               
; Category    : 
;               
; Prev. Hist. : None
;
; Written     : C D Pike, RAL, 4-Jun-97 
;               
; Modified    : 
;
; Version     : Version 1, 4-Jun-97
;-            
pro expint_demo

expint = 0
em = 0
fm = 0

restore,concat_dir('$CDS_ENG_DEMO','expint_demo')

circle_sym,/fill
plot,em,psym=8,yr=[50,60],xr=[-50,150],xtickname=[' ','0','50','100',' '],$
  chars=1.5,$
  tit='Exposure interval (patch) demo. Raster 10/44.',$
  xtit = 'Exposure number',ytit='Interval (secs)'

oplot,expint

circle_sym
oplot,fm,psym=8

print,' '
print,'Plotting symbols are:'
print,'Filled circles: exposure interval obtained on EM with patch installed'
print,'Line:           new software model prediction.'
print,'Open circles:   observed exposure interval on flight model.'
print,' '
print,'Note that the overall raster duration comes down from 6940s to 6488s'
print,' '  

end