;$Id: palign.pro,v 1.5 2017/03/28 12:09:26 brandenb Exp $
if !d.name eq 'PS' then begin
  ;device,xsize=18,ysize=20,yoffset=3
  ;!p.charthick=3 & !p.thick=3 & !x.thick=3 & !y.thick=3
  device,xsize=18,ysize=6.6,yoffset=3
  !p.charthick=2 & !p.thick=2 & !x.thick=2 & !y.thick=2
end
;
;  mv idl.ps ~/tex/tina/Decay/fig/palign.ps
;  mv idl.ps ~/tex/teach/ASTR_5410/17_KarmanHowarth/fig/palign.ps
;
;!p.charsize=1.7
!p.charsize=1.2
!x.margin=[5.8,1.2]
!y.margin=[3.2,.7]
;
file='align_VAR3_16.sav'
;
restore,file
siz=1.8
siz=.9
;
;!p.multi=[0,1,2]
!p.multi=[0,2,1]
!x.range=[0,1]
print,max(yo2)
print,max(yb2)
;
!y.range=[0,10.]
!y.title='!8p!6'
!x.title='!6cos(!7x,!8e!di!n!6)'
plot,xo2,yo2,li=0
oplot,xo1,yo1,li=1,col=55
oplot,xo3,yo3,li=2,col=122
xyouts,.88,6,siz=siz,'!8i!6=2'
xyouts,.05,1.0,siz=siz,'!8i!6=1',col=55
xyouts,.10,2.4,siz=siz,'!8i!6=3',col=122
;
!y.range=[0,2.2]
!x.title='!6cos(!8B,!8e!di!n!6)'
plot,xb2,yb2,li=0
oplot,xb1,yb1,li=1,col=55
oplot,xb3,yb3,li=2,col=122
xyouts,.86,1.17,siz=siz,'!8i!6=2'
xyouts,.56,1.3,siz=siz,'!8i!6=1',col=55
xyouts,.5,1.72,siz=siz,'!8i!6=3',col=122
;
END